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

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

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

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

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

※Excel公式

• システム開発関連記事

• 【JavaScript】メール送信機能付き問い合わせフォームを作る【勉強】
• Postgresqlのインストール・カラム追加方法(windows版)
• JavaScriptでデバッグ～プログラムエラー発生した時の解決に繋がる～
• Excel(エクセル)で罫線を引くコツ～太さや上下左右に引く場合は？～
• USBメモリを使ってWindowsを再インストール

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

カレンダーの日付を取得

色を付ける