【Excel】VBAでセルに色を塗る方法～かんたんなガントチャートを例に～

中山テック 代表の中山です。

さて、しばらくVBA特集です。

今回はボタンを押してセルに色を塗るというVBAをご紹介。

かんたんなガントチャートを例にお話していければと思います。

※Excel公式

• Excel関連記事(記事はまだまだ続きます)

• VBAの基礎構文について～変数定義やif文、for文、内部関数の定義方法を備忘的に残します～
• Excelで悩むのはもう終わり！お悩み相談受け付けます！
• Excel(エクセル)で数字を順番に振る方法～項目番号やカレンダーまで応用～
• 条件に当てはまる在庫はいくつ？Excel(エクセル)の1関数でグループ化する方法
• Excel(エクセル)でワークシートが表示されない時の対処法
• タイムカードはExcel(エクセル)で超カンタンに作れます！～労働時間管理～
• Excel(エクセル)で見出しを固定する方法～見やすさが格段に変わります！～

Sub ボタン1_Click()
  Dim fromDate As Date    ' 予定FROM日付
  Dim toDate As Date      ' 予定TO日付
  Dim nowDate As Date     ' 比較対象日付(列)
  Dim counter As Integer  ' 現在の行
  
  counter = 1
  
  For i = 7 To 100　⇒①
    If Cells(i, 2) = "" Then　⇒②
      Exit For
    End If
  
    '--------------------------------
    ' 予定のFROM・TO日付を取得
    '--------------------------------
    fromDate = Cells(i, 2)　⇒③
    toDate = Cells(i, 3)　⇒④
    
    For j = 4 To 100　⇒⑤
    
      If Cells(6, j) = "" Then　⇒⑥
        Exit For
      End If
    
      nowDate = Cells(6, j)　⇒⑦
      
      If fromDate <= nowDate And toDate >= nowDate Then
      
        Cells((6 + counter), j).Interior.Color = RGB(102, 255, 0)　⇒⑧

      Else

        Cells((6 + counter), j).Interior.Color = xlNone　⇒⑨

      End If
    
    Next j
    
    counter = counter + 1　⇒⑩
  
  Next i
  
End Sub

予定のFROM・TO日付を取得

カレンダーの日付を取得

色を付ける