龙空技术网

学习VBA,报表做到飞 第一章 入门篇 1.8 FOR循环语句

云飞扬2654 443

前言:

如今兄弟们对“利用for循环语句编写计算n的函数程序取n分别为”大概比较着重,你们都想要分析一些“利用for循环语句编写计算n的函数程序取n分别为”的相关文章。那么小编同时在网络上网罗了一些对于“利用for循环语句编写计算n的函数程序取n分别为””的相关文章,希望各位老铁们能喜欢,看官们一起来学习一下吧!

第一章 入门篇

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次。

示例:

科目

姓名

语文

数学

英语

美术

体育

A同学

99

64

25

60

79

B同学

81

99

37

98

23

C同学

76

68

96

82

68

D同学

67

89

62

39

54

E同学

82

82

62

65

85

F同学

23

83

77

59

60

把上表中不及格的成绩填充为红色。

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

往期精彩回顾:

学习VBA,报表做到飞 第一章 入门篇 1.7 IF语句

学习VBA,报表做到飞 第一章 入门篇 1.6 方法

第一章 入门篇 1.5 属性

我是云飞扬,职场财会人员,愿与大家分享表格制作和数据统计分析的技巧与方法,希望大家的工作更便捷,更轻松!

标签: #利用for循环语句编写计算n的函数程序取n分别为