VBA过程代码85:VBA中的For Each …Next循环 Sub mynz() Sheets('3').Select For Each d In Selection ………. Next End Sub 代码的解析说明:上述代码的过程将执行一个For Each …Next循环,中间的'……….'是在循环过程中将执行的操作。 For Each d In Selection. Selection是一个集合,d 是这个集合中的一个元素,For Each d In Selection是指在这个集合中的每一个元素都将执行一次循环体的操作。对于For Each …Next循环也称为遍历的操作。 --------------------------------------------------------------------------------------------------------------- VBA过程代码86:VBA中的如何判断数值 Sub mynz() Sheets('3').Select k = 0 For Each d In Selection If Not IsNumeric(d.Value) Then t = t + d.Value End If Next End Sub 代码的解析说明:上述代码的过程IsNumeric(d.Value) 如何判断数值。 VBA过程代码87:选择一个名为'4'的工作表 Sub mynz() Sheets('4').Activate End Sub 代码的解析说明:执行上述代码后,选择一个名为'4'的工作表:在工作表的操作时可以用select. VBA过程代码88:选择一个名为' A1'的单元格 Sub mynz() Range('A1').Select End Sub 代码的解析说明:执行上述代码后,选择一个名为' A1'的单元格,RANGE是单元格,也可以用CELLS(M,N)来代替,其中M是行,N是列。 VBA过程代码89:选择'A1:G8'的连续单元格 Sub mynz() Range('A1:G8').Select End Sub 代码的解析说明:执行上述代码后,选择'A1:G8'的连续单元格: VBA过程代码90:选择选择不连续的单元格 Sub mynz() Range('A1,B6,D9').Select Range('A1,B6:B10,D9').Select End Sub 代码的解析说明:执行上述代码后,选择不连续单元格:'A1,B6,D9','A1,B6:B10,D9' 备注:CELLS()的单元格表示方式是不能用这种表示方法的。 越简单的事物往往越容易理解,简单的过程组合起来就是一个复杂的过程,我们要先认真掌握这些简单的过程,才能在可以为我们复杂的工程服务。 |
|
来自: 我的人生宝库 > 《电脑(软件应用)》