はじめてのVBA その4

VBAではIf分も書ける。

Sub IfTest()

    If Range("a1").Value > 80 Then
        Range("a2").Value = "OK!"
    ElseIf Range("a1").Value > 60 Then
        Range("a2").Value = "soso..."
    Else
        Range("a2").Value = "NG!"
    End If


End Sub

VBAではCase文だって書ける。

Sub SelectTest()

    Dim signal As String
    signal = Range("a1").Value
    
    Dim result As Range
    Set result = Range("a2")
    
    Select Case signal
    
    Case "red"
        result.Value = "STOP!"
        
    Case "green"
        result.Value = "GO!"
    
    Case "yellow"
        result.Value = "CAUTION!"
        
    Case Else
        result.Value = "n.a."
        
    End Select
    

End Sub

VBAではWhile分だって。

Sub WhileTest()
    Dim i As Integer
    i = 1
    
    Do While i < 10
        Cells(i, 1).Value = i
        i = i + 1
    Loop

End Sub
Sub ForTest()
    Dim i As Integer
    
    For i = 1 To 9 Step 2
        Cells(i, 1).Value = i
    Next i

End Sub

基本的なif、ループ系に関しても全然使える。 書き方だけは各々特徴がある感じだけども。