第一章 入门篇 1.8 FOR循环语句 1、FOR循环语句 for 变量名=x to y step n '循环的内容' Next 变量从x循环到y,步长为n,每次都执行循环的内容。 例如下面这个for语句小程序,从“a2”单元格循环到“a100”单元格,步长默认为1,如果单元格的值小于60,就把单元格的字体颜色设置为红色。 Sub for语句() For i = 2 To 100 If Cells(i, 1) < 60 Then Cells(i, 1).Font.Color = 255 End If Next End Sub 如果每三行判断一次,就可以设置步长为3(以此类推): For i = 2 To 100 Step 3 '循环的内容' Next 2、FOR循环嵌套 在FOR循环里再写一个FOR循环,就是FOR循环嵌套。 for i=1 to 3 for n=1 to 10 '循环的内容' next n next i (next后面的n和i只是起注释提醒作用,可以不写。) 上面这个程序,外层循环3次,外层每循环一次时内层会循环10次,所以'循环的内容'一共会执行30次。 示例:
把上表中不及格的成绩填充为红色。 Sub for嵌套() For i = 2 To 7 For n = 2 To 6 If Cells(i, n) < 60 Then Cells(i, n).Interior.ColorIndex = 3 End If Next n Next i End Sub 因为表头和第一列是科目和姓名,所以行和列都是从2开始循环的。 需要特别说明的是,FOR循环里的STEP可以是负数,也就是FOR循环可以倒着从下往上循环。 例如本章节的第一个for语句小程序,也可以从“a100”单元格开始往上循环到“a2”单元格,步长为-1。 Sub for语句() For i =100 To 2 Step -1 If Cells(i, 1) < 60 Then Cells(i, 1).Font.Color = 255 End If Next End Sub |
|