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

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

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

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

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

※Excel公式

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

• Excel(エクセル)で見出しを固定する方法～見やすさが格段に変わります！～
• コンビニでExcelを印刷～プリンタトラブルがあった場合の対処方法～
• Excelのフィルタ機能の困りごとブログはnoteに移動しました【リンクあり】
• 条件に当てはまる在庫はいくつ？Excel(エクセル)の1関数でグループ化する方法
• Excel（エクセル）で文字を強調～光彩・ぼかし・影を活用する～
• Excelで連番を振る方法についてのブログはnoteに移動しました【リンクあり】
• 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日付を取得

カレンダーの日付を取得

色を付ける