【ExcelVBA】if文

■構文

　If 条件式1 Then

　　　処理1

　ElseIf 条件式2 Then

　　　処理2

　Else

　　　処理3

　End If

■例

　Sub sample1()

　　　Dim year As Integer

　　　Dim str As String

　　　'うるう年の場合

　　　year = 2016

　　　If year Mod 4 = 0 Then

　　　　　str = str & year & "年はうるう年です。" & vbCrLf

　　　Else

　　　　　str = srt & year & "年はうるう年ではありません。" & vbCrLf

　　　End If

　　　'うるう年でない場合

　　　If year Mod 4 = 0 Then

　　　　　str = str & year & "年はうるう年です。" & vbCrLf

　　　Else

　　　　　str = srt & year & "年はうるう年ではありません。" & vbCrLf

　　　End If

　　　MsgBox str, vbInformation

　End Sub