vba将数值转化文本格式_好用，容易理解的VBA积木代码

分享成果，随喜真能量（这是我视频教程的开场白）。大家好，今天继续和大家分享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讲的课程，开始第二级阶段的优惠期。