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

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

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

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

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

※Excel公式

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

• 小数点の扱い(Excel)に関する記事はnoteに移動しました【リンクあり】
• Excel(エクセル)で罫線を引くコツ～太さや上下左右に引く場合は？～
• 共有されたGoogleスプレッドシートで個別にフィルタを作成しソートする方法
• Excel(エクセル)、行・列に複数の見出しを作る方法～テキストエディタを駆使～
• Excel(エクセル)VBA入門～環境設定からif文・for文、変数など基礎構文を伝授～
• セルコピペ後指定セルがズレる理由と修正方法【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日付を取得

カレンダーの日付を取得

色を付ける