Office中国论坛/Access中国论坛

标题: 高手,VBA中怎么对一个新增工作薄进行单元格定位? [打印本页]

作者: yiyaozjk 时间: 2008-11-10 11:43
标题: 高手,VBA中怎么对一个新增工作薄进行单元格定位?
VBA中,首先新增一个新工作薄 Sheets.Add,对其他原来的表进行操作后,怎么才能操作此这个刚刚新增的工作薄?

比如我,在一个已有二个工作薄的表格里,首先让他新一个工作薄,然后将满足条件的单元格的内容复制到这个新增的工作薄指定位置??

  Private Sub Workbook_Open()
  Dim i, j As Integer
  Dim a, b As String
  Sheets.Add
  Sheet1.Select
For i = 3 To 150
      If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
         i = i + 1
      Else
         If Cells(i, 10) <> "=" Then
               For j = 1 To 10
               If Cells(i, j) <> "" Then
                  a = Trim(Cells(i, j) & Cells(i, j))
               Sheets.Cells(i, 2) = a                ''我本来想把内容复制到新增的工作薄中去
                  End If

               Next j
      End If

End Sub
要怎么修改???

作者: pureshadow 时间: 2008-11-10 14:53
Selection.Copy
Workbooks.Add
ActiveSheet.Paste

作者: 方漠 时间: 2008-11-10 15:18
试试用个变量传递一下.

Dim a, b As String
Dim SH as String
  Sheets.Add
  SH=ActiveSheet.Name
  Sheet1.Select
...........
Sheets(SH).Cells(i, 2) = a

[ 本帖最后由方漠于 2008-11-10 15:20 编辑 ]

作者: yiyaozjk 时间: 2008-11-11 09:41
标题: 谢谢三楼的版主,
你是好样的

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)