《VBA编程及应用基础》第3章3ForEach...Next循环结构.pptx

VBA 程序控制结构For Each...Next 循环语句本讲内容循环体复习For…Next语句功能：以指定的次数重复执行循环体格式： For 变量 = 初值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [变量]变量又称循环控制变量、计数器变量，初值为循环起始值，终值为循环的结束值步长为循环控制变量的每次改变增量，缺省为1Exit For为强制退出循环语句复习编程。单击“随机数”按钮，产生10个两位随机正整数，并写入 A1:A10 区域单元格；单击“标记偶数”按钮，将 A1:A10 区域中偶数所在的单元格设置为黄色底纹、红色字体新问题编程。单击“随机数”按钮，产生30个两位随机正整数，并写入 A1:C10 区域单元格；单击“标记偶数”按钮，将 A1:C10 区域中偶数所在的单元格设置为黄色底纹、红色字体For Each…Next 语句For Each…Next 语句用于针对一个数组或一个集合中的每一个元素重复执行一组代码。语法格式如下：For Each 元素 In 集合 [代码段] [Exit For]Next [元素]元素是用来遍历集合中所有元素的变量For Each...Next 语句在对集合进行循环时，使用 For Each 循环要比 For 循环快 1/3 以上，因此，尽量对集合对象使用 For Each 循环对于数组，For Each 循环的速度优势不大，不过还是可以快 10% 左右For Each…Next 语句Activate是Worksheet对象的一个方法，使指定工作表成为活动工作表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 SubvCell为存储Range(“A1:C15”)集合中每个元素的变量，即每个单元格例：在指定的 A1:C15 区域中依次在每个单元格中插入一个[10, 99]之间的随机整数For Each…Next 语句实践1：使用 For Each…Next 语句实现“新问题”的需求？For Each…Next 语句Range.Offset 属性 P.120返回 Range 对象，它代表距离指定区域一定偏移量的区域语法：Range对象.Offset(RowOffset, ColumnOffset)示例： Range(A1).Offset(3, 3).Activate，此示例激活 A1 单元格向右偏移三列、向下偏移三行处的单元格，即 D4 单元格For Each…Next 语句实例1.xlsm实例实例1.xlsm1：在 A1:A10 区域中产生 10 个 [10,99] 之间的随机整数，然后判断它们的奇偶性，并在 B1:B10 各单元格中分别填写判断结果，如下图所示For Each…Next 语句购买数量 Q折扣Q50095%500≤Q60090%600≤Q100080%1000≤Q500070%Q≥500060%实践2某商场约定其某款产品的销售单价（原价为100元）根据不同的购买数量有不同的折扣（如下表所示），试编写一个VBA过程，计算产品销售单价.xlsx产品销售单价工作簿中该产品各销售数量情况下的折扣过的销售单价For Each…Next 语句实践3找出 成绩表.xlsm成绩表 中的最高分，并将成绩最高人的姓名设置为黑底白字格式，效果如图所示Thank you