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

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

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

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

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

※Excel公式

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

• Excel(エクセル)で行を表示させない方法～グループ化らくらく非表示♪～
• Excel(エクセル)で画像加工～モザイク、明るさ、色変更など多彩です～
• Excel(エクセル)、行・列に複数の見出しを作る方法～テキストエディタを駆使～
• Excel(エクセル)のフィルターで空白セルがあるとソートされない場合の対処法
• 共有されたGoogleスプレッドシートで個別にフィルタを作成しソートする方法
• Excel(エクセル)で列表記をローマ字⇔数値に変更する方法～VBAで大活躍～
• 条件に当てはまる在庫はいくつ？Excel(エクセル)の1関数でグループ化する方法

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日付を取得

カレンダーの日付を取得

色を付ける