VBA別館・Python別館
セルの背景、文字の色(完) - Tak
2018/08/28 (Tue) 15:06:55
物の本を読むと、「色の指定方法にはColorIndexとColorの2種類があります」と書いてあります。
又「セルの文字色の場合は Fontに、背景色の場合は Interior に設定します」と書いてあります。
そして「Colorプロパティーでは16,777,216色が使え、ColorIndexプロパティーでは56色しか使えません」とも書いてあります。
もうここでギブアップですね。
ここでお勧めするのは、次の方法です。
'セル背景色
Range("XX").Interior.Color = RGB(R,G,B)
'文字色:
Range("XX").Font.Color = RGB(R,G,B)
変更するのは、R/G/Bの値だけです。 主な値を書いておきます。
・黒: RGB(0,0,0)
・白: RGB(255,255,255)
・赤: RGB(255,0,0)
・緑: RGB(0,255,0)
・青: RGB(0,0,255)
・黄: RGB(255,255,0)
・桃: RGB(255,0,255)
・茶: RGB(128,0,0)
このRGBの数字はどこかでお目にかかっていると思いますが、最初の数字がRed赤色を意味します。 だからRGB(255,0,0)と書けば赤を意味します。 二番目の数字はGreen緑を、三番目がBlue青を意味します。
全ての色はこの三つの組み合わせですから、思い出すのも簡単だと思います。
では適当なRGB番号を入れて、それがどんな色かを表示するVBAを作りましょう。
続く
Re: セルの背景、文字の色 - Tak
2018/08/28 (Tue) 20:07:51
② 自分好みの色を作りたい
そういう時の為に、こんなのを作りました。
オプションボタンの中のcodeに、
Range("XX").Interior.Color = RGB(R,G,B)
文字の色を変えたいときは、前回の
というのが有りますから、R,G,Bの数字を動かしてどんな色になるか試してください。
Option Explicit
Sub オプション1_Click()
'セルの背景の色を赤にする
Range("D:D").Interior.Pattern = xlNone
Range("D3").Interior.Color = RGB(255, 0, 0)
End Sub
Sub オプション2_Click()
'セルの背景の色を青にする
Range("D:D").Interior.Pattern = xlNone
Range("D5").Interior.Color = RGB(0, 0, 255)
End Sub
Sub オプション3_Click()
'セルの背景の色を黄にする
Range("D:D").Interior.Pattern = xlNone
Range("D7").Interior.Color = RGB(255, 255, 0)
End Sub
-----------------------------
セルに書く文字の色を変えたいときは、前回の
Range("XX").Font.Color = RGB(R,G,B)
をお使いください。