VBA常用技巧代码解析

初学者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

Hoer · 发表于 2009-2-28 20:16

原帖由 初学者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 · 发表于 2009-2-28 20:16

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

zgzsa · 发表于 2009-3-1 11:04

附件在哪里想学啊

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

一_一 · 发表于 2009-3-1 11:43

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

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

去一楼找楼梯

初学者2009号 · 发表于 2009-3-1 16:13

还是不可以。

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

yuanzhuping · 发表于 2009-3-1 19:36

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

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

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

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

zjdh · 发表于 2009-3-1 19:40

多谢版主无私奉献！！

yuanzhuping · 发表于 2009-3-1 19:42

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

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

复制代码

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

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

yuanzhuping · 发表于 2009-3-1 19:55

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

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

请教

附件在哪里想学啊

回复 279楼 Hoer 的帖子

第3部分 Wordbook（工作簿）对象

第3部分 Wordbook（工作簿）对象

VBA常用技巧代码解析

请教

附件在哪里 想学啊

回复 279楼 Hoer 的帖子

第3部分 Wordbook（工作簿）对象

第3部分 Wordbook（工作簿）对象

附件在哪里想学啊