VBA入门-循环

Sub   text()         '开始语句
	Range("a1") = 100
End Sub              '结束语句

Sub panduan()
    If Range("a1").Value > 0 Then
        Range("b1") = "正数"
    ElseIf Range("a1") = 0 Then
        Range("b1") = "零"
    Else
        Range("b1") = "负数"
    End If    
End Sub

2、select条件判断

Sub selectpanduan()
    Select Case Range("a1").Value
        Case Is > 0
        Range("b1") = "正数"
        Case Is = 0
        Range("b1") = 0
        Case Else
        Range("b1") = "负数"
    End Select
End Sub

Sub t1()
    Dim x As Integer    '定义x为一个整数型变量
    For x = 1 To 12     'for 定义x的范围
    Range("c" & x) = Range("a" & x) * Range("b" &