処理のバリエーション

VBA学習

▼条件に応じて実行する処理を分岐

・D10セルが空欄の場合、アクティブシートの見出しの色を赤にする。

　D10セルにデータが入っている場合は、アクティブシートを非表示にする。

　If Range("D10").Value = "" Then
　　ActiveSheet.Tab.Color = RGB(255, 0, 0)
　Else
　　ActiveSheet.Visible = False
　End If

 

▼複数の条件を指定して実行する処理を分岐する

・D8セルの値を比較対象にし、D8セルの値に応じてD11セルに評価を入力する。いずれの条件にも一致しない場合はシートの見出しの色を赤にする。

Select Case Range("D8").Value
　Case Is >= 500
　　Range("D11").Value = "ランクA"
　Case Is >= 400
　　Range("D11").Value = "ランクB"
　Case Is >= 300
　　Range("D11").Value = "ランクC"
　Case Is >= 200
　　Range("D11").Value = "ランクD"
　Case Is >= 100
　　Range("D11").Value = "ランクE"
　Case Else
　　ActiveSheet.Tab.ColorIndex = 3
End Select

 

▼4つおきに処理を実行する

・Integer型の変数(数)を宣言し、C列の変数行目からD列の変数行目までのセルの色を水色にする

Dim amount As Integer
For amount = 7 To 23 Step 4
　Range(Cells(amount, 3), Cells(amount, 4)). _
　　Interior.ColorIndex = 37
Next

 

▼データ入力画面の表示

・文字を入力する画面を表示し、入力された内容をシート名にする

　Dim シート名 As String
　　シート名 = InputBox("アクティブシートの名前を変更する" & vbCrLf & _
　　　"シート名を入力してください", "シート名の指定")
　If シート名 <> "" Then
　　ActiveSheet.Name = シート名
　End If