【Excelマクロ】 セルの色取得

質問

古いファイルを加工することが多々あり、セルに塗られている色を調べる(セルの書式設定→塗りつぶし→その他の色→ユーザー設定)のが非常に面倒です。
RGB値をマクロで表示させる方法を見つけたものの、セルが指定(A1／A2／B1)されています。

<1つ右>
Sub 色情報取得()

Dim r As Long
Dim g As Long
Dim b As Long

n = Range("A1").Interior.Color
r = n \ 256 ^ 0 Mod 256
g = n \ 256 ^ 1 Mod 256
b = n \ 256 ^ 2 Mod 256
Range("A2") = r & "," & g & "," & b

End Sub

<1つ左>
Sub 色情報取得()

Dim r As Long
Dim g As Long
Dim b As Long

n = Range("A1").Interior.Color
r = n \ 256 ^ 0 Mod 256
g = n \ 256 ^ 1 Mod 256
b = n \ 256 ^ 2 Mod 256
Range("B1") = r & "," & g & "," & b

End Sub

調べたいセルにカーソルを置いた状態で実行するマクロをご教示ください。

希望１．画像のように1つ右 or 1つ左、もしくはn個右 or n個下など、表示させたいセルを自由に設定したい
希望２．複数セルを一括で処理したい

よろしくお願い致します。

回答No.1

kkkkkm · ベストアンサー

以下で試してみてください。

Sub 色情報取得選択したセルの右に表示()

Dim r As Long
Dim g As Long
Dim b As Long

n = Selection.Interior.Color
r = n \ 256 ^ 0 Mod 256
g = n \ 256 ^ 1 Mod 256
b = n \ 256 ^ 2 Mod 256
Selection.Offset(0, 1).Value = r & "," & g & "," & b

End Sub

Sub 色情報取得選択したセルの下に表示()

Dim r As Long
Dim g As Long
Dim b As Long

n = Selection.Interior.Color
r = n \ 256 ^ 0 Mod 256
g = n \ 256 ^ 1 Mod 256
b = n \ 256 ^ 2 Mod 256
Selection.Offset(1, 0).Value = r & "," & g & "," & b

End Sub

Sub 色情報取得選択した複数セル右と下に表示()

Dim r As Long
Dim g As Long
Dim b As Long
Dim mRng As Range

For Each mRng In Selection
n = mRng.Interior.Color
r = n \ 256 ^ 0 Mod 256
g = n \ 256 ^ 1 Mod 256
b = n \ 256 ^ 2 Mod 256
mRng.Offset(0, 1).Value = r & "," & g & "," & b
mRng.Offset(1, 0).Value = r & "," & g & "," & b
Next

End Sub

お礼

ご回答ありがとうございました。

希望１.はSelection.Offsetで自由に設定できました。
ただ、希望２の複数セルを選択した状態でマクロを実行するとすべて「0,0,0」が表示されてしまいました。
複数セルの一括処理は無理でしょうか？

回答No.3

kkkkkm

> ただ、希望２の複数セルを選択した状態でマクロを実行するとすべて「0,0,0」が表示されてしまいました。

画像の様な状態になります。
B3,B7,C5を選択して実行した結果です。

お礼

再度のご回答ありがとうございました。

3つ目のマクロを実行したところ、正しく表示されました。

上2つのマクロも複数セル一括処理できるものと勘違いしておりました。
大変失礼しました。

大変助かりました。

回答No.2

imogasi

何を聞いているのかよく判らない。
やりたいことを、エクセルの言葉を使って、文章で説明してみて。
ーー
連続セルの各セルを捉えるのは、常識的に、
Sub test05()
Dim cl As Range
For Each cl In ActiveSheet.Range("a1:A3")
cl.Offset(0, 1) = cl.Address
Next
End Sub
のようにFor Each でやればすむことでは。
同行右列に情報を書き出すなら、例えばA列の範囲を対象に横セルに書き出すためには上記のようなことになろう。
でもB列が何か情報があるだろうから、どうする？
別シートの同番地対応のセルに書き出すとしても、対比が見にくくなるだろう。
思い付きだが、各セルのコメントに（R,G,Bの３値をカンマで区切りで）入れるというのもできなくはない。セルに文字情報がないセルならセルの値として、R,G,Bの３値をカンマで区切りで入れるとか。