VBA常用技巧代码解析

初学者2009号

楼主：
不知道为何， 我用以下的语言，咋就不运行？
Sub Cell()
Dim icell As Integer
For icell = 1 To 100
    Sheet2.Cells(icell, 1).Value = icell
    Next
End Sub

Hoer

原帖由 初学者2009号 于 2009-2-28 18:56 发表
楼主：
不知道为何， 我用以下的语言，咋就不运行？
Sub Cell()
Dim icell As Integer
For icell = 1 To 100
    Sheet2.Cells(icell, 1).Value = icell
    Next
End Sub

你把这段代码放到模块中去运行，在表名为Sheet2中有结果。

[ 本帖最后由 Hoer 于 2009-2-28 20:18 编辑 ]

大江东去2004

Sub Cell()
     Dim icell As Integer
     For icell = 1 To 100
           Sheet2.Cells(icell, 1).Value = icell
           Next
End Sub

zgzsa

附件在哪里 想学啊

人笨啊 到处都找不到附件 ?

一_一

原帖由 zgzsa 于 2009-3-1 11:04 发表
附件在哪里 想学啊

人笨啊 到处都找不到附件 ?

去一楼找楼梯

初学者2009号

还是不可以。



是否可以作为一个宏命令来运行？

yuanzhuping

原帖由 初学者2009号 于 2009-3-1 16:13 发表
还是不可以。



是否可以作为一个宏命令来运行？

代码中的Sheet6是工作表的代码名称,不是标签上的名称,从图上看你工作簿中没有Sheet6这张表.而标签名为Sheet6的工作表的CodeName属性为Sheet3,请参阅技巧21[引用工作表的方式]

[ 本帖最后由 yuanzhuping 于 2009-3-1 19:37 编辑 ]

zjdh

多谢版主无私奉献！！

yuanzhuping

技巧52         返回窗口的可视区域地址
       VBA中使用VisibleRange属性返回当前窗口的可视区域，如下面的代码所示。

1. #001  Sub VbRange()
   
2. #002      Dim s As String
   
3. #003      s = ActiveWindow.VisibleRange.Address(0, 0)
   
4. #004      MsgBox "窗口的可视区域为：" & s
   
5. #005  End Sub

复制代码

代码解析：
       VbRange过程使用消息框显示当前窗口的可视区域的地址。
       应用于当前Window对象的VisibleRange属性返回一个Range对象，代表当前窗口的可视区域。窗口的可视区域就是用户可以在窗口或窗格中看到的单元格区域，如果行或列部分可见，该行或列也包括在可视区域中。
       因为VisibleRange属性返回的是一个Range对象，因此可以直接使用该对象的属性和方法。
       当窗口的大小发生变化时，返回的可视区域的地址也会不同，如图所示。


PS：其实Window对象的VisibleRange属性不应放在工作簿对象一节中，因为个人认为Window对象的实用性不大，所以只整理了一个，就归在这了。

yuanzhuping

第1部分到第3部分的Word文档及第3部分 Wordbook（工作簿）对象的附件。