VBATips

シートにRGBで指定したカラーの一覧を作成する

案件で何度か作成していたため、これを機にブログに落とし込みます。
ユーザーが指定した背景色で色分けしたい際に、事前に判別できるようカラー見本を作成しています。

シートのイメージ図(カラーRGB一覧)

シートにRGBで指定したカラーの一覧を作成するサンプルコード

’■指定したRGBで背景色を作成する
Public Sub call_ColorCreate()
    '■設定箇所ここから---------------------
    Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet  '色分けしたいシート名を指定
    Const COLOR_ROW_START As Long = 2 '2行目からスタート
    Const COLOR_COL_NUMBER As Long = 1 'A列の背景色を変更
    '■設定箇所ここまで---------------------
    Dim sR As Long, sG As Long, sB As Long
    
    Dim R As Long
    For R = COLOR_ROW_START To Call_LastRow(COLOR_COL_NUMBER)
        sR = ws.Cells(R, COLOR_COL_NUMBER + 1)
        sG = ws.Cells(R, COLOR_COL_NUMBER + 2)
        sB = ws.Cells(R, COLOR_COL_NUMBER + 3)
        
        ws.Cells(R, COLOR_COL_NUMBER).Interior.Color = RGB(sR, sG, sB)
    Next R
End Sub

注意点

  • RGBはCOLOR_COL_NUMBER から1つづつズレる前提条件があります。
  • 上記コードのみでは動きません。こちらのパーツも導入してください。

関連記事

コメント