大体でIT

-ちょっと使えるネタを紹介-

大体でIT

Excel VBAで、罫線色を設定する方法についてご紹介します。罫線色を設定する方法は、2つあって、「ColorIndex」を使う方法と、「Color」と「RGB」を組み合わせる方法です。「Color」と「RGB」で設定する値は、エクセルの「色の設定」で確認できるので、扱いやすいです。

はじめに

この記事では、罫線色を設定する方法について、ご紹介します。

罫線色を設定する方法は、2つあって、「ColorIndex」を使う方法と、「Color」と「RGB」を使う方法です。

「Color」と「RGB」で設定するRGBの値は、エクセルの「色の設定」で確認することができるので、「Color」と「RGB」の方が扱いやすいです。

では、罫線色を設定する方法について、具体的なVBAコードを使って解説していきます。

この記事で紹介すること

  • 罫線色を設定する方法

目次から見たい項目へ移動すると便利ですよ。

目次

ポイントとなるVBAコード

初めに、VBAで罫線色を設定する方法について、ポイントとなるVBAコードをまとめておきます。

VBAコードだけ確認したい場合に、ご活用ください。

'ColorIndexで設定する場合
With ActiveSheet.Range("B2").Borders
    .ColorIndex = 1 '黒
    .ColorIndex = 2 '白
    .ColorIndex = 3 '赤
    .ColorIndex = 4 '緑
    .ColorIndex = 5 '青
    .ColorIndex = 6 '黄
    .ColorIndex = 7 'ピンク
    .ColorIndex = 8 '水色
    .ColorIndex = 9 '茶色
    .ColorIndex = 10 '深緑
End With

'ColorとRGBで設定する場合
With ActiveSheet.Range("B2").Borders
    .Color = RGB(0, 0, 0)  '黒
    .Color = RGB(255, 255, 255) '白
    .Color = RGB(255, 0, 0) '赤
    .Color = RGB(0, 255, 0) '緑
    .Color = RGB(0, 0, 255) '青
    .Color = RGB(255, 255, 0) '黄
    .Color = RGB(255, 0, 255) 'ピンク
    .Color = RGB(0, 255, 255) '水色
    .Color = RGB(128, 0, 0) '茶色
    .Color = RGB(0, 128, 0)  '深緑
End With

では、解説していきます。

ColorIndexで罫線色を設定

罫線色を設定する方法の1つとして、「ColorIndex」があります。

ColorIndexで罫線色を設定する方法と、実行した結果について紹介していきます。

罫線色を設定するVBAコード

罫線色を設定するVBAコードは、「ColorIndex」を使って、次のように書きます。

Sub TEST1()

    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 3 '赤
    End With
    
End Sub

罫線の色を、赤にするVBAコードです。

では、実行してみます。

罫線の色をColorIndexで赤に設定した結果

罫線の色が、赤色に設定されました。

こんな感じで、「ColorIndex」を使って、罫線色を設定します。

ColorIndexの一覧

「ColorIndex」で設定の一部を一覧でまとめると次のようになります。

ColorIndexの設定の一部を一覧でまとめた結果

VBAコードを記載すると次のようになります。

Sub TEST2()
    
    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 1 '黒
        .ColorIndex = 2 '白
        .ColorIndex = 3 '赤
        .ColorIndex = 4 '緑
        .ColorIndex = 5 '青
        .ColorIndex = 6 '黄
        .ColorIndex = 7 'ピンク
        .ColorIndex = 8 '水色
        .ColorIndex = 9 '茶色
        .ColorIndex = 10 '深緑
    End With
    
End Sub

とりあえず、1~10の設定についてまとめています。

それぞれの罫線色をVBAで設定してみます。

ColorIndexで罫線色を設定

ColorIndexの設定で、「1~10」までを設定してみます。

黒(ColorIndex = 1)

罫線色を「黒」に設定するには、ColorIndexに「1」を設定します。

Sub TEST3()
    
    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 1 '黒
    End With

End Sub

実行してみます。

ColorIndexで罫線色を黒に設定した結果

罫線色が黒となりました。

ちなみに、罫線色のデフォルトが、「黒」なので、罫線色を黒色にしたい場合は、特に設定する必要はありません。

白(ColorIndex = 2)

罫線色を「白」に設定するには、ColorIndexに「2」を設定します。

Sub TEST4()

    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 2 '白
    End With
    
End Sub

実行してみます。

ColorIndexで罫線色を白に設定した結果

罫線色が白となりました。

赤(ColorIndex = 3)

罫線色を「赤」に設定するには、ColorIndexに「3」を設定します。

Sub TEST5()

    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 3 '赤
    End With
    
End Sub

実行してみます。

ColorIndexで罫線色を赤に設定した結果

罫線色が赤となりました。

緑(ColorIndex = 4)

罫線色を「緑」に設定するには、ColorIndexに「4」を設定します。

Sub TEST6()

    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 4 '緑
    End With
    
End Sub

実行してみます。

ColorIndexで罫線色を緑に設定した結果

罫線色が緑となりました。

青(ColorIndex = 5)

罫線色を「青」に設定するには、ColorIndexに「5」を設定します。

Sub TEST7()

    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 5 '青
    End With
    
End Sub

実行してみます。

ColorIndexで罫線色を青に設定した結果

罫線色が青となりました。

黄(ColorIndex = 6)

罫線色を「黄」に設定するには、ColorIndexに「6」を設定します。

Sub TEST8()

    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 6 '黄
    End With
    
End Sub

実行してみます。

ColorIndexで罫線色を黄に設定した結果

罫線色が黄となりました。

ピンク(ColorIndex = 7)

罫線色を「ピンク」に設定するには、ColorIndexに「7」を設定します。

Sub TEST9()

    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 7 'ピンク
    End With
    
End Sub

実行してみます。

ColorIndexで罫線色をピンクに設定した結果

罫線色がピンクとなりました。

水色(ColorIndex = 8)

罫線色を「水色」に設定するには、ColorIndexに「8」を設定します。

Sub TEST10()
    
    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 8 '水色
    End With
    
End Sub

実行してみます。

ColorIndexで罫線色を水色に設定した結果

罫線色が水色となりました。

茶色(ColorIndex = 9)

罫線色を「茶色」に設定するには、ColorIndexに「9」を設定します。

Sub TEST11()

    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 9 '茶色
    End With
    
End Sub

実行してみます。

ColorIndexで罫線色を茶色に設定した結果

罫線色が茶色となりました。

深緑(ColorIndex = 10)

罫線色を「深緑」に設定するには、ColorIndexに「10」を設定します。

Sub TEST12()

    With ActiveSheet.Range("B2").Borders
        .ColorIndex = 10 '深緑
    End With
    
End Sub

実行してみます。

ColorIndexで罫線色を深緑に設定した結果

罫線色が深緑となりました。

ColorIndexを使って罫線色を設定する場合は、こんな感じになります。

ただ、ColorIndexは、設定する番号を覚えないとわからないので、次に説明する「RGB」での設定の方が便利です。

ColorとRGBで罫線色を設定

次は、「Color」と「RGB」で罫線色を設定する方法について、ご説明します。

「RGB」で設定する値は、「色の設定」で確認することができますので、「Color」と「RGB」で設定した方が便利です。

罫線色を設定するVBAコード

罫線色を「Color」と「RGB」で設定するVBAコードは、こちらになります。

罫線色を赤色に設定してみます。

Sub TEST13()

    With ActiveSheet.Range("B2").Borders
        .Color = RGB(255, 0, 0) '赤
    End With
    
End Sub

では、VBAコードを実行してみます。

ColorとRGBで罫線色を赤色に設定した結果

罫線色を赤色に設定できました。

ColorとRGBの一覧

「Color」と「RGB」で設定する値の一覧をまとめると、こんな感じになります。

ColorとRGBで設定する値の一覧

VBAコードでまとめるとこんな感じになります。

Sub TEST14()
    
    With ActiveSheet.Range("B2").Borders
        .Color = RGB(0, 0, 0)  '黒
        .Color = RGB(255, 255, 255) '白
        .Color = RGB(255, 0, 0) '赤
        .Color = RGB(0, 255, 0) '緑
        .Color = RGB(0, 0, 255) '青
        .Color = RGB(255, 255, 0) '黄
        .Color = RGB(255, 0, 255) 'ピンク
        .Color = RGB(0, 255, 255) '水色
        .Color = RGB(128, 0, 0) '茶色
        .Color = RGB(0, 128, 0)  '深緑
    End With
    
End Sub

ColorIndexと比較すると、ColorとRGBを使う方法は、値を3つ設定する必要があるので、ちょっと面倒くさい感じがします。

しかし、「Color」と「RGB」で設定する値は、「色の設定」で確認できるので、便利です。

色の設定でRGBを確認すると便利

エクセルの「色の設定」でRGBの設定を確認する方法です。

まず、「セルの書式設定」の画面を開きます。

セルの書式設定の画面を開く

色のプルダウンを選択して、「その他の色」を選択します。

色の設定をする画面が表示される

色の設定をする画面が表示されます。

設定したい値を設定して、「ユーザー設定」を選択します。

色の設定で、ユーザー設定を選択

下の方に赤、緑、青のそれぞれの値が表示されます。

赤の場合は、赤:255、緑:0、青:0、という感じです。

罫線色をColorとRGBで設定する場合は、この設定画面からRGBの値を確認することができます。

細かい色の設定をする場合は、この設定画面から値を確認するといいです。

ColorとRGBで罫線色を設定

では、「Color」と「RGB」で、罫線色を設定してみます。

黒(0, 0, 0)

罫線色を「黒」に設定するVBAコードです。

Sub TEST15()
    
    With ActiveSheet.Range("B2").Borders
        .Color = RGB(0, 0, 0)  '黒
    End With

End Sub

では、VBAコードを実行してみます。

ColorとRGBで罫線色を黒に設定した結果

罫線色を「黒」に設定できました。

ちなみに、罫線色のデフォルトが「黒」なので、黒にしたい場合は、Colorを設定する必要はありません。

白(255, 255, 255)

罫線色を「白」に設定するVBAコードです。

Sub TEST16()

    With ActiveSheet.Range("B2").Borders
        .Color = RGB(255, 255, 255) '白
    End With
    
End Sub

では、VBAコードを実行してみます。

ColorとRGBで罫線色を白に設定した結果

罫線色を「白」に設定できました。

赤(255, 0, 0)

罫線色を「赤」に設定するVBAコードです。

Sub TEST17()

    With ActiveSheet.Range("B2").Borders
        .Color = RGB(255, 0, 0) '赤
    End With
    
End Sub

では、VBAコードを実行してみます。

ColorとRGBで罫線色を赤に設定した結果

罫線色を「赤」に設定できました。

緑(0, 255, 0)

罫線色を「緑」に設定するVBAコードです。

Sub TEST18()

    With ActiveSheet.Range("B2").Borders
        .Color = RGB(0, 255, 0) '緑
    End With
    
End Sub

では、VBAコードを実行してみます。

ColorとRGBで罫線色を緑に設定した結果

罫線色を「緑」に設定できました。

青(0, 0, 255)

罫線色を「青」に設定するVBAコードです。

Sub TEST19()

    With ActiveSheet.Range("B2").Borders
        .Color = RGB(0, 0, 255) '青
    End With
    
End Sub

では、VBAコードを実行してみます。

ColorとRGBで罫線色を青に設定した結果

罫線色を「青」に設定できました。

黄(255, 255, 0)

罫線色を「黄」に設定するVBAコードです。

Sub TEST20()

    With ActiveSheet.Range("B2").Borders
        .Color = RGB(255, 255, 0) '黄
    End With
    
End Sub

では、VBAコードを実行してみます。

ColorとRGBで罫線色を黄に設定した結果

罫線色を「黄」に設定できました。

ピンク(255, 0, 255)

罫線色を「ピンク」に設定するVBAコードです。

Sub TEST21()

    With ActiveSheet.Range("B2").Borders
        .Color = RGB(255, 0, 255) 'ピンク
    End With
    
End Sub

では、VBAコードを実行してみます。

ColorとRGBで罫線色をピンクに設定した結果

罫線色を「ピンク」に設定できました。

水色(0, 255, 255)

罫線色を「水色」に設定するVBAコードです。

Sub TEST22()

    With ActiveSheet.Range("B2").Borders
        .Color = RGB(0, 255, 255) '水色
    End With
    
End Sub

では、VBAコードを実行してみます。

ColorとRGBで罫線色を水色に設定した結果

罫線色を「水色」に設定できました。

茶色(128, 0, 0)

罫線色を「茶色」に設定するVBAコードです。

Sub TEST23()

    With ActiveSheet.Range("B2").Borders
        .Color = RGB(128, 0, 0) '茶色
    End With
    
End Sub

では、VBAコードを実行してみます。

ColorとRGBで罫線色を茶色に設定した結果

罫線色を「茶色」に設定できました。

深緑(0, 128, 0)

罫線色を「深緑」に設定するVBAコードです。

Sub TEST24()

    With ActiveSheet.Range("B2").Borders
        .Color = RGB(0, 128, 0)  '深緑
    End With
    
End Sub

では、VBAコードを実行してみます。

ColorとRGBで罫線色を深緑に設定した結果

罫線色を「深緑」に設定できました。

「Color」と「RGB」を使う場合で、一部の設定を実行してみました。

エクセルの「色の設定」でRGBの値を確認できるので、値の設定が簡単です。

おわりに

この記事では、罫線色を設定する方法について、ご紹介しました。

罫線色を設定する方法は、2つあって、「ColorIndex」を使う方法と、「Color」と「RGB」を使う方法です。

「Color」と「RGB」で設定するRGBの値は、エクセルの「色の設定」で確認することができるので、「Color」と「RGB」の方が扱いやすいです。

参考になればと思います。最後までご覧くださいまして、ありがとうございました。

関連する記事から探す

カテゴリから探す

カテゴリから見たい項目を探すと便利ですよ。

アーカイブから探す