セルの背景色を2クリックで他範囲にも展開できるマクロ

エクセルVBAで、セルの背景色を他セルへの転用設置する時の面倒設定を解決します。
その都度RGB値を確認入力しなくてもコピペ感覚で背景色を設置することが出来ます。

こんにちは　じゅんぱ店長　(＠junpa33)　です。

エクセルシートでのセルの背景色の設置に関してのお悩みを解決します。

たくさんの美しい色が載っているカラーチャートの中で、気に入った色をエクセルシートのセルに使いたいと思ったことが少なからずあるでしょう。

例えば、” 空色　#a0d8ef　RGB( 160, 216, 239 ) ” を気に入って、背景色に設定したいという時はどの様に設定するでしょうか？　またそれを、他のセルにも使いたい時はどの様に設定するでしょうか？

最初に設定するときは、RGB要素が分かっているのでそのまま値を入力すればOKでしょう。

問題は、次にその色を他のセルに背景色設定する場合です。

今回は、この面倒くさい設定を少なからず簡単にすることが出来るマクロを作成していきます。

セルの編集

コンテンツ

背景色の設定方法について

通常はエクセルでセルの背景色を設定したい時は、リボンのホームタブで、「塗りつぶしの色」アイコンからエクセルでプリセットされた色のどれかを選択します。

プリセットの色を使用する分にはそんなに手間ではありません。

ところが、好みで選んだ色をを指定したい場合に、 ” 少々、面倒な操作 ” になります。

最初のセル背景色設定

プリセットされていない色を背景色に設定する場合は次のような操作を行います。

例えば「空色」　#a0d8ef　RGB( 160, 216, 239 ) ” を背景色に設定するには、

色の設定ウインドウで「ユーザー設定」からR・G・Bを設定します。

使った背景色の今までの再利用方法

同じ「空色」を他のセルに使用する場合は、使った色が履歴（メモリ）で残っている場合は、「最近使用した色」から指定することが出来ます。

既に残っていない時は、最初の設定と同じで「ユーザー設定」からR・G・Bを設定することになります。

更にもし、R・G・B要素を忘れてしまった場合は、その度に、要素を調べるため元に背景色設定したセルに戻って、値をチェックすることになります。

このような作業は、場合によっては結構面倒で ” 気に入った色を使おう ” という気を失せさせてしまい、「手間だしいつものカラーチャート色でいいか」ということにもなります。

目次へ戻る

背景色の簡単再使用のVBA

エクセルマクロを使えば、好みで決めた色をセルの背景色にしたとしても、

再利用時のその都度の面倒な設定作業をしなくても、簡単に背景色を設置することが出来ます。

簡単再使用マクロの全コード

同じシート内の好きなセルに背景色設定をすることが出来ます。

変数解説

ColorNO・・・背景色のカラー値

ColC ・・・・背景色の設定されたセル

CTGC・・・・背景色を設定するセル範囲

HTML

Sub 背景色簡単再利用()

    Dim ColorNo As Long
    Dim ColC, CTGC As Range
'利用したい背景色を選択します。
        Set ColC = Nothing
        On Error Resume Next
        Set ColC = Application.InputBox("利用する背景色の" & _
            "セルを選択してください。", _
            Title:="背景色セル選択", Type:=8)
        If Not ColC Is Nothing Then
            ColC.Activate
        End If
        If Err.Number > 0 Then
            MsgBox "キャンセルされました。終了します。"
            Exit Sub
        End If
        On Error GoTo 0
        ColorNo = ColC.Interior.Color
'背景色を設定する範囲を選択します。
        Set CTGC = Nothing
        On Error Resume Next
        Set CTGC = Application.InputBox("背景色を設定する" & _
            "セル範囲を" & vbCrLf & "指定してください。", _
            Title:="背景色セル範囲指定", Type:=8)
        If Not CTGC Is Nothing Then
            CTGC.Activate
        End If
        If Err.Number > 0 Then
            MsgBox "キャンセルされました。終了します。"
            Exit Sub
        End If
        On Error GoTo 0
        CTGC.Interior.Color = ColorNo
End Sub