菜鸟也懂VBA-excle2007VBA入门教程(7)

Excel 2007 VBA 教程

Sub test6() '这个程序当C3单元格大于100时，那么D3单元格没有显示了 Select Case Range(\ Case Is < 60

Range(\不及格\ Case Is < 70

Range(\及格\ Case Is < 80

Range(\良好\ Case Is <= 100

Range(\优秀\ End Select End Sub

6) select calse…case…case else…end select

Sub test7() '这个程序就可以了，大于等于80以上的全部是优秀 Select Case Range(\ Case Is < 60

Range(\不及格\ Case Is < 70

Range(\及格\ Case Is < 80

Range(\良好\ Case Else

Range(\优秀\ End Select End Sub

Sub test8() '如果条件是区间时，如从几到几，就不能加Is了 Dim i As Integer i = Weekday(Date) Select Case i Case 1 To 6

MsgBox \今天是工作日\ Case Else

MsgBox \今天休息\ End Select End Sub 五、循环语句

1) For…Next A. 实例 在A1到A9单元格里依次输入1到9 Sub test1()

Dim i As Byte '定义变量i为字节型 For i = 1 To 9 'i从1到9循环

Cells(i, 1) = i '从单元A1开始写于i Next i '下一个 End Sub

Sub test2()’这个是在A1到A9依次输入9到到1

Dim i As Integer, k As Integer '定义变量i为字节型,注意如果从大到小，就不能定义i变量

第 18 页 共 52 页

Excel 2007 VBA 教程