vba跳到下⼀个循环_遍历⼯作薄和⼯作表（ForEach循环的利
⽤）
今⽇的内容是“VBA之EXCEL应⽤”的第三章“⼯作簿(Workbook)和⼯作表(Worksheet)对象(Object)”中第三节“遍历⼯作薄和⼯作表(For Each循环的利⽤)”。“VBA之EXCEL应⽤”这套教程从简单的录制宏的讲解，⼀直到窗体的搭建，内容丰富，案例众多。⼤家可以⾮常容易的掌握相关的知识，这套教程⾯向初学⼈员，共三册，⼗七章，都是我们在利⽤EXCEL⼯作过程中需要掌握的知识点，希望⼤家能掌握利⽤。
第三节遍历⼯作薄和⼯作表(For Each循环的利⽤)
⼤家好，我们在这讲中将讲解遍历循环语句，这种语句在VBA代码中利⽤的⼗分普遍，也是我们在VBA代码中经常利⽤的三种循环语句之⼀：For Each循环。下⾯我们将看到Excel vba中的⼀个程序，它遍历循环所有打开的⼯作簿和⼯作表，并显⽰所有的名称。
1  Next 语句讲解
vba做excel窗体录入教程语法： For Each element In group[ statements ][ Exit For ][ statements ]Next [ element ] 参数： 1)element 必需。⽤于循环访问集合或数组的变量。对于集合,element只能为Variant变量、通⽤对象变
量或任何特定的对象变量。对于数组，element仅可是Variant变量。  2)group 必需。对象集合或数组(⽤户定义类型除外)的名称。  3)statements  可选。在每个项⽬上执⾏的⼀个或多个语句。 注意点： l如果group中有⾄少⼀个元素，则进⼊“For Each”循环。在进⼊循环后, 循环中的所有语句都将对group中的每⼀个元素执⾏。如果group中有多个元素，则继续为每个元素执⾏循环中的语句。group中不再有元素时，退出循环并继续执⾏“Next”语句后的语句。 l可以将任意数量的Exit For语句作为另⼀种退出⽅式放置在循环中的任何位置。"退出" 通常在评估某些条件后使⽤, 例如,if…then…, 将执⾏下⼀个紧接着的语句。 l可通过将“Next”循环放置在另⼀个该循环内来嵌套“Next”循环。 但是，每个循
环element必须是唯⼀的。 l如果忽略Next [ element ] 语句中的[ element ]，循环⼀样继续执⾏。不可随⽤户定义类型的数组⼀起使
⽤“Next”语句，因为“Variant”不可包含⽤户定义类型。
2  遍历⼯作薄和⼯作薄的代码
下⾯代码中，我们将利⽤“Next”语句遍历所有打开的⼯作薄和每个⼯作薄的⼯作表的名称。 Sub mynzH() '遍历循环
Dim book As Workbook, sheet As Worksheet, text As String    For Each book In Workbooks        text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine        For Each sheet In book.Worksheets            text = text & sheet.Name & vbNewLine        Next        text = text & vbNewLine    Next    MsgBox text End Sub 代码截图：
代码讲解：  1) Dim book As Workbook, sheet As Worksheet, text As String 这句是对变量的声明，声明book、sheet、text分别为Workbook、Workbook、String。  2) For Each sheet In book.Worksheets            text = text & sheet.Name & vbNewLine    Next  以上是内层循环，将提取每个⼯作表的名称。  3) For Each book In Workbooks        text = text & "Workbook: " &
book.Name & vbNewLine & "Worksheets: " & vbNewLine        。。。。。        text = text & vbNewLin
e    Next  以上是外层循环讲提取每个⼯作薄的名称。 4) MsgBox text  将弹出⼀个对话框，告诉⽤户提取的内容。 l注意：可以使⽤&运算符连接(联接)元素。若要开始新⾏，可以使⽤vbNewLine。
3  代码执⾏的效果
我们先添加⼀个空⽩的⼯作薄，然后运⾏上述代码：
我们看到，最后弹出的对话框中包括每个打开的⼯作薄名称及每个⼯作薄中⼯作表的名称。 今⽇内容回向：    1) 什么是遍历语句？    2)
遍历语句的语法是什么样的？    3)  如何应⽤遍历语句？
本讲内容参考程序⽂件：⼯作簿03.xlsm 分享成果，随喜正能量
VBA的应⽤范围及学习⽅法：
VBA是利⽤Office实现个⼈⼩型办公⾃动化的有效⼿段(⼯具)。这是我对VBA的应⽤界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理⽅⾯做到极致，谁就是王者。其中登峰⾄极的技能⾮VBA莫属！ 我记得20年前⾃⼰初学VBA时，那时的资料甚少，只能看源码⾃⼰琢磨，真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据⾃⼰多年VBA实际利⽤经验，推出了七部VBA专门教程。 第⼀套：VBA代码解决⽅案  是VBA中各个知识点的讲解，教程共147讲，覆盖绝⼤多数的VBA知识点，提供的程序⽂件更是⼀座不可多得的代码宝库，是初学及中级⼈员必备教程；⽬前这套教程提供的版本是修订第⼆版，程序⽂件通过32位和64位两种OFFICE系统测试。 第⼆套：VBA数据库解决⽅案  数据库是数据处理的专业利器，教程中详细介绍了利⽤ADO连接ACCDB和EXCEL的⽅法和实例操作，适合中级⼈员的学习。⽬前这套教程提供的是修订第⼀版教程，程序⽂件通过32位和64位两种OFFICE系统测试。 第三套：VBA数组与字典解决⽅案  数组和字典是VBA的精华，字典是VBA代码⽔平提⾼的有效⼿段，值得深⼊的学习，是初级及中级⼈员代码精进的⼿段。⽬前这套教程提供的版本是修订第⼀版，程序⽂件通过32位和64位两种OFFICE系统测试。 第四套：VB
A代码解决⽅案之视频  是专门⾯向初学者的视频讲解，可以快速⼊门，更快的掌握这门技能。这套教程是第⼀套教程(修订⼀版)的视频讲解，视频更易接受。 第五套：VBA中类的解读和利⽤ 这是⼀部⾼级教程，讲解类的虚⽆与⾁⾝的度化，类的利⽤虽然较少，但仔细的学习可以促进⾃⼰VBA理论的提⾼。这套教程的领会主要是读者的领悟了，领悟⼀种佛学的哲理。⽬前这套教程提供的版本是修订第⼀版，程序⽂件通过32位和64位两种OFFICE系统测试。 第六套教程：VBA信息获取与处理，这是⼀部⾼级教程，涉及范围更⼴，实⽤性更强，⾯向中⾼级⼈员。教程共⼆⼗个专题，包括：跨应⽤程序信息获得、随机信息的利⽤、电⼦邮件的发送、VBA互联⽹数据抓取、VBA延时操作，剪切板应⽤、Split函数扩展、⼯作表信息与其他应⽤交互，FSO对象的利⽤、⼯作表及⽂件夹信息的获取、图形信息的获取以及定制⼯作表信息函数等等内容。程序⽂件通过32位和64位两种OFFICE系统测试。 第七套教程：VBA之EXCEL应⽤  这是⼀部初级教程这部教程共三册，从从创建宏、对话框、⼯作簿和⼯作表对象、单元格对象等基础内容讲起，到循环结构、错误处理、字符串操作、⽇期和时间、事件、数组应⽤，函数过程等⽅⾯，⼀直讲解到控件和窗体对象的应⽤都是我们提⾼⾃⼰EXCEL⽔平的必须。 以上各教程学习顺序：7 1 3 2 6 5或者7 4 3 2 6 5。其中第四套是对第⼀套的视频讲解，所以第⼀和第四只选其⼀即可。可以W^e^C^h^a^t：VBA6337(或者NZ9668)，两个对象是都是可以的。
_______________________________
有启发 点在看 朋友分享 约作者 请留⾔ 直接交流更多关联阅读

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。