VBA编程及应用基础课件3 For Each...Next 循环结构.pptx

1、VBA 程序控制结构For Each.Next 循环语句本讲内容 For EachNext循环语句复习lForNext语句功能：以指定的次数重复执行循环体l格式：For 变量=初值 To 终值 Step 步长 语句块 Exit For 语句块 Next 变量l变量又称循环控制变量、计数器变量，初值为循环起始值，终值为循环的结束值l步长为循环控制变量的每次改变增量，缺省为1lExit For为强制退出循环语句循环体复习l编程。单击“随机数”按钮，产生10个两位随机正整数，并写入 A1:A10 区域单元格；单击“标记偶数”按钮，将 A1:A10 区域中偶数所在的单元格设置为黄色底纹、红色字体新问题

2、l编程。单击“随机数”按钮，产生30个两位随机正整数，并写入 A1:C10 区域单元格；单击“标记偶数”按钮，将 A1:C10 区域中偶数所在的单元格设置为黄色底纹、红色字体For EachNext 语句lFor EachNext 语句用于针对一个数组或一个集合中的每一个元素重复执行一组代码。语法格式如下：For Each In 代码段 Exit ForNext 元素 l元素是用来遍历集合中所有元素的变量For Each.Next 语句l在对集合进行循环时，使用 For Each 循环要比 For 循环快 1/3 以上，因此，尽量对集合对象使用 For Each 循环l对于数组，For Eac

3、h 循环的速度优势不大，不过还是可以快 10%左右For EachNext 语句l例：在指定的 A1:C15 区域中依次在每个单元格中插入一个10,99之间的随机整数Sub Sample()Dim vCell As Range Worksheets(Sheet1).Activate Randomize For Each vCell In Range(A1:C15).Cells vCell.Value=Int(Rnd()*(99-10+1)+10 Next vCellEnd SubActivate是Worksheet对象的一个方法，使指定工作表成为活动工作表vCell为存储Range(“A1:C

4、15”)集合中每个元素的变量，即每个单元格For EachNext 语句l实践1：l使用 For EachNext 语句实现“新问题”的需求？For EachNext 语句lRange.Offset 属性 P.120l返回 Range 对象，它代表距离指定区域一定偏移量的区域l语法：Range对象.Offset(RowOffset,ColumnOffset)l示例：Range(A1).Offset(3,3).Activate，此示例激活 A1 单元格向右偏移三列、向下偏移三行处的单元格，即 D4 单元格For EachNext 语句l实例1：在 A1:A10 区域中产生 10 个 10,99 之间的随机整数，然后判断它们的奇偶性，并在 B1:B10 各单元格中分别填写判断结果，如下图所示For EachNext 语句l实践2l某商场约定其某款产品的销售单价（原价为100元）根据不同的购买数量有不同的折扣（如下表所示），试编写一个VBA过程，计算产品销售单价工作簿中该产品各销售数量情况下的折扣过的销售单价购买数量购买数量 Q折扣折扣Q50095%500Q60090%600Q100080%1000Q500070%Q500060%For EachNext 语句l实践3l找出 成绩表 中的最高分，并将成绩最高人的姓名设置为黑底白字格式，效果如图所示