分享成果,随喜真能量(这是我视频教程的开场白)。大家好,今天继续和大家分享VBA编程中常用的简单“积木”过程代码第85-90讲,内容是:For Each …Next循环,如何判断数值,以及如何进行选择等内容。
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()的单元格表示方式是不能用这种表示方法的。
越简单的事物往往越容易理解,简单的过程组合起来就是一个复杂的过程,我们要先认真掌握这些简单的过程,才能在可以为我们复杂的工程服务。
另外:下面是我根据自己20多年的VBA实际利用经验,编写的四部教程,这些是较大块的“积木”,可以独立的完成某些或者某类系统的过程,欢迎有需要的朋友联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率。
第一套:《VBA代码解决方案》是PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点。是初学及中级以下人员必备的资料。
第二套:《VBA数据库解决方案》是PDF教程。数据库是数据处理的利器,对于中级人员应该掌握这个内容了。
第三套:《VBA数组与字典解决方案》是PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备资料。
第四套:《VBA代码解决方案》的视频教程。目前正在录制,现在推出“每天20分钟,半年精进VBA”活动,越早参与,回馈越多。现在第一册48讲内容已经录制完成。录制到第二册66讲的课程,开始第二级阶段的优惠期。