EXCEL工作表视图：
运行后的结果：以上两讲，我讲解了FOR NEXT 语句和FOR EACH...NEXT两种方法，这两个方法是VBA中应用的最基本的方法，希望大家好好掌握。同时我讲了遍历工作表的方法，这可以用做固定代码来应用。
今日内容回向：
1 For Each...Next 语句的意义是什么？
2 For Each...Next 语句如何应用？
3 For Each...Next 语句如何实现遍历工作表？
分享成果，随喜正能量。
excel学习库
excel表格_excel函数公式大全_execl从入门到精通
VBA代码解决方案之如何遍历工作表之二2024-06-17 19:27:33
大家好，今日我们继续讲解VBA代码解决方案的二十四讲，这讲的内容和上一讲的内容是连续性的，共介绍两个VBA中的两个十分重要的语句，今日给大家讲解的是For Each...Next 语句，利用这个语句为核心，完成在Excel应用中遍历工作簿中所有的工作表的方法。
一语法讲解：
For Each...Next 语句的意义：表示遍历某范围内的所有变量
语法如下：
For Each element In Group
[statements]
[Exit For]
[statements]
Next [element]
参数说明：
a) element是必需的，用来遍历集合或数组中所有元素的变量。
b) group是必需的，对象集合或数组的名称。
c) statements是可选的，针对对象集合或数组中的每一项执行的一条或多条语句。
二 实例应用：使用For Each...Next语句遍历工作簿中所有的工作表，如下面的代码所示。
Sub MyShCount2()
Dim Sh As Worksheet
Dim s As String
K=0
For Each Sh In Worksheets
s = s & Sh.Name & Chr(13)
k=k+1
Next
MsgBox "工作簿中含有” & k & ”个工作表，如下:" & Chr(13) & s
End Sub
代码解析：
MyShCount2过程使用For Each...Next语句遍历工作簿中所有的工作表，并用消息框显示所有工作表名称。
a) 第5行代码使用For Each...Next语句遍历Worksheets集合中所有元素。For Each...Next语句针对一个数组或集合中的每个元素，重复执行一组语句
b) 第6行代码将返回的工作表的名称赋给字符串变量s。
c) 用K来记录工作表的个数，每次循环一次个数增加1.
d) Chr(13)是换行符。
e) MsgBox "工作簿中含有” & k & ”个工作表，如下:" & Chr(13) & s 是利用MsgBox函数弹出对话框，表明计算的结果。一是工作表的个数，一是工作表的名称。
三：代码截图： EXCEL工作表视图：
运行后的结果：以上两讲，我讲解了FOR NEXT 语句和FOR EACH...NEXT两种方法，这两个方法是VBA中应用的最基本的方法，希望大家好好掌握。同时我讲了遍历工作表的方法，这可以用做固定代码来应用。
今日内容回向：
1 For Each...Next 语句的意义是什么？
2 For Each...Next 语句如何应用？
3 For Each...Next 语句如何实现遍历工作表？
分享成果，随喜正能量。
EXCEL工作表视图：
运行后的结果：以上两讲，我讲解了FOR NEXT 语句和FOR EACH...NEXT两种方法，这两个方法是VBA中应用的最基本的方法，希望大家好好掌握。同时我讲了遍历工作表的方法，这可以用做固定代码来应用。
今日内容回向：
1 For Each...Next 语句的意义是什么？
2 For Each...Next 语句如何应用？
3 For Each...Next 语句如何实现遍历工作表？
分享成果，随喜正能量。
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
- 控制面板
- 网站分类
- 搜索
- 最新留言
-
- 文章归档
- 友情链接
Powered By Z-BlogPHP 1.7.3
ICP证:湘ICP备2021010693号-4