vba foreach实例

一、foreach语法

For Each...Next 语句对数组或集合中的每个元素重复执行一组语句。

For Each element In group

[statements]

[Exit For]

[statements]

Next [element]

参数介绍：

element 用来枚举集合或数组中所有元素的变量。对于集合，element 可能是 Variant 变量、通用 Object 变量或任意指定的 Automation 对象变量。对于数组，element 只能是 Variant 变量。

group 对象集合或数组的名称。

statements 对于 group 中的每一项执行的一条或多条语句。 说明如果 group 中有至少一个元素，就会进入 For Each 块执行。一旦进入循环，便首先对 group 中第一个元素执行循环中的所有语句。只要 group 中还有其他的元素，就会对每个元素执行循环中的语句。当 group 中的没有其他元素时退出循环，然后从 Next 语句之后的语句继续执行。

Exit For 只能用于 For Each...Next 或 For...Next 控制结构中，提供另一种退出循环的方法。可在循环的任意位置放置任意个 Exit For 语句。Exit For 经常和条件判断语句一起使用(例如 If...Then)，并立即将控制权转移到 Next 之后的语句。

可以将一个 For Each...Next 循环放置在另一个之中，组成嵌套式 For Each...Next 循环。但是每个循环的 element 必须是唯一的。注意 如果省略 Next 语句中的 element，则程序仍会象已包含它一样继续执行。如果 Next 语句在其相应的 For 语句之前出现，则会产生错误。

二、foreach例子

Dim Myarr(3) As Integer

Myarr(0) =3

Myarr(1) = 4

Myarr(2) = 5

Myarr(3) = 6

ForEach i In Myarr

MsgBox i

Next i

注意，在使用ForEach时，不必给数组标明其下标为多少。

Dim rng As Range, Arr, sums&

sums = 0

ForEach rng In Range("B1:B100")

sums = sums + rng.Row

Next

MsgBox sums

再来看具体的例子

Set myTotal = myRange.Offset(myRange.Rows.Count - 1).Rows

For Each myCell In myTotal

If IsNumeric(myCell.Value) = False Then

myCell.Value = "Total"

endif

Next myCell

赞 (0)

相关推荐

  • EXCEL中VBA实例技巧：[1]单元格字体格式设置

    首先说明一下,这一部分我尽量使用实例的方法来学习.大家最好有VB的基础.多多练习就可以了. 操作方法 01 如图所示我们想将单元格的文本的字体进行修改.原来是宋体字. 02 右击当前工作表,在弹出的菜 ...

  • vba中find函数的使用方法及实例（vba的find使用方法）

    vba中find函数的使用方法及实例（vba的find使用方法）

    我们致力于为大家奉献最有效的经验,让大家能够解决掉问题,但是大家也都知道,每个人遇到的情况都是不一样的,大家在看经验的同时,除了跟随操作,也需要自己的思考,举一反三的解决问题,这样才会变得更加有内涵, ...

  • Windows 8 应用框架理解及开发工具使用实例教程

    Windows 操作系统之所以风靡世界，是因为其“易学易用”，从用户的角度出发，让数以万计的非IT人员使用计算机实现娱乐，工作等目的。Windows 8继承Windows桌面的优点，同时提供一种新的用 ...

  • excel Criteria1实例

    关于excel的Criteria1用法实例，是结合VBA来使用的，下面是关于Criteria1用法的几个例子，希望对你有所帮助。 Sub SimpleOrFilter() Worksheets("Sa ...

  • vba统计有数据的单元格行数（VBA统计满足条件的单元格数）

    vba统计有数据的单元格行数（VBA统计满足条件的单元格数）

    工作中,我们经常会为单元格添加背景颜色,有时候我们需要通过计算同一背景颜色的单元格个数来实现我们的目的.今天,我们就学习下,如何计算指定区域内指定颜色的单元格个数吧!1案例一统计A1:C5区域内,单元 ...

  • Excel VBA中range对象的常见用法

    range对象在Excel VBA中的运用也是比较常见的,对于区域数据的操作往往我们需要用到range对象,下面小编根据自身的实战为大家分享一下range对象的常见用法! range的常见用法 01 ...

  • Excel VBA中if语句的用法

    我们都知道作为程序,它有两大结构,一个是if语句,一个是循环语句.在VBA中if语句即使基本的语句结构,也是用的非常广的语句,实用性也是非常强的,下面小编为大家分享VBA中if语句的详细用法! if语 ...

  • excel vba基础使用方法

    Excel除了使用公式进行数据的计算之外,还可以使用vba编程进行数据处理.本文就如何使用vba,做一个简单的实例介绍,希望读者能了解vba的初步使用方法. 打开vba编辑器 01 依次单击Offic ...

  • Excel VBA中的cells单元格的用法

    Excel中内嵌VBA开发模块,该模块可自主开发程序,那么对于刚接触VBA的新手来说对VBA中基本对象的了解是必要的,其中最基本的一个对象就是cells对象,下面小编给大家分享一下有关cells的故事 ...