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" & x) '单元格计算公式C1=A1*B1
    Next x      '下一个X的值，一直到12为止
End Sub

2、单元格循环
没有规律时用

Sub t3()
    Dim rg As Range     '定义rg为单元格类型
    For Each rg In Range("c1:c12")    '设置接收数据的范围
    rg = rg.Offset(0, -1) * rg.Offset(0, -2)    '计算公式
    Next rg     '循环下一个单元格
End Sub

Sub t4()
    Dim rg As Range
    For Each rg In Range("a1:b12")
    If rg = "" Then
    rg = 0
    End If
    Next rg
End Sub

'do  loop until 循环
Sub t5()
    Dim x As Integer    '定义x为整数型
        x = 0       '设置初始值
    Do
        x = x + 1       '每次加1
        Cells(x, 4) = Cells(x, 1) * Cells(x, 2)     '公式，单元格（横坐标，竖坐标）
    Loop Until x = 12   'Loop Until  '直到x=12停止
End Sub

'do while loop 循环
Sub t6()
    Dim x As Integer
    x = 0
    Do While x < 12
        x = x + 1
        Cells(x, 3) = Cells(x, 1) * Cells(x, 2)
    Loop
End Sub

最后

以上就是背后画板为你收集整理的VBA入门-循环的全部内容，希望文章能够帮你解决VBA入门-循环所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。