よねさんのWordとExcelの小部屋 のHomeへ戻る

条件分岐処理(If〜Then,Select Case):Excel VBA入門


スポンサードリンク


更新 2022/7/22

If〜Then〜Else〜Enf If Select Case〜End Select

条件分岐

If〜Then〜Else〜End If   topへ

  1. セル範囲B1:B5で値が
    1の時は赤色、2の時は黄色、3の時は水色、それ以外の時は緑色
    でセルを塗りつぶします。
    Sub rei_01()
     Dim myRng As Range
     Dim c As Range
     Dim myColor As Integer
     Set myRng = Range("B1:B5")
      For Each c In myRng
        If c.Value = 1 Then
          myColor = 3 '赤
        ElseIf c.Value = 2 Then
          myColor = 6 '黄
        ElseIf c.Value = 3 Then
          myColor = 8 '水色
        Else
          myColor = 10 '緑
        End If
          c.Interior.ColorIndex = myColor
      Next c
    End Sub
  2. 実行結果

Select Case〜End Select   topへ

  1. セル範囲B1:B5で値が
    1の時は赤色、2の時は黄色、3の時は水色、それ以外の時は緑色
    でセルを塗りつぶします。
  2. 条件範囲の書き方1 [条件がある値またはある値といったOR条件の場合]
  3. 条件範囲の書き方2 [条件がある範囲で、比較演算子を使用する場合]
  4. 条件範囲の書き方3 [条件がある範囲である場合]

スポンサードリンク



よねさんのWordとExcelの小部屋Excel(エクセル)講座の総目次Excel(エクセル) VBA入門:目次|条件分岐処理(If〜Then,Select Case)

PageViewCounter
 Counter
 Since2006/2/27