読者です 読者をやめる 読者になる 読者になる

VBA_IF文

VBAでのIF文の書き方。

範囲 C1:C8 において、aaa 文字を各ファイルごとに別の文字にするコード。

  ファイル名もシート名も記述する
  と、前の記事に書いたがIf以下のファイル名を省略しても想定通りに動いた…。

 

Sub ifthen()

    For i = 2 To 4
        Workbooks.Open "絶対パス\aa_" & i & ".xls"
       
        If i = 2 Then
            Workbooks("aa_" & i & ".xls").Sheets("test001").Range("C1:C8") _
            .replace What:="aaa", Replacement:="◆◆◆", Lookat:=xlPart
        
        ElseIf i = 3 Then
            Workbooks("aa_" & i & ".xls").Sheets("test001").Range("C1:C8") _
            .replace What:="aaa", Replacement:="●", Lookat:=xlPart


        Else
            Workbooks("aa_" & i & ".xls").Sheets("test001").Range("C1:C8") _
            .replace What:="aaa", Replacement:="▲", Lookat:=xlPart


        End If
       
        ActiveWorkbook.Save
       
        Workbooks("aa_" & i & ".xls").Close
    Next i
   
End Sub

 

If 条件式01 Then
    条件式01を満たした(TRUE)時の処理

ElseIf 条件式02 Then
    条件式02を満たした(TRUE)時の処理
Else
    条件式01と02を満たさなかった(FALSE)時の処理
End If

Then は PHP にはないがほぼ同じ書き方。

End IF は波括弧を使わないIF と同じ。

 

今日は以上!

 

koshinran.hateblo.jp