セルの色を取得するユーザー関数

エクセルでセルの背景色取得に困ったら、セルの色を取得する

リンクユニット


ユーザー定義関数を作る 3行マクロ 55回

セルの色を取得するユーザー定義関数

セルの色をカラーインデックス番号で取得したい時があります。 マクロを利用すると、ワークシート上で動作するユーザー定義関数というオリジナルの関数を作ることができるので、 セルの色を取得するユーザー定義関数を作成しましょう。

セルの色を取得するユーザー関数マクロ1
(サンプルファイルは、こちらから 3行マクロ55回サンプルデータ
Excelバージョン:Excel20192016201320102007

セルの背景色を取得するユーザー定義関数

セルの色は、セルの情報を管理しているInteriorオブジェクトで取得します。 Rangeオブジェクトの「Interior」プロパティを使ってInteriorオブジェクトを取得します。
コードはつぎのように入力します。
Function セルの色(セル)
     セルの色 = セル.Interior.ColorIndex
End Function    
ユーザー定義関数を入力したら、シートに戻り、B2セルに
=セルの色(A1)と入力すれば、ColorIndexを返してくれます。
セルの色を取得するユーザー関数マクロ2
ユーザーの定義関数の構文は、本来データ型を指定するので、
以下のようにユーザー定義関数にデータ型を記入した方がほんとうは良いのですが、書かなくても動きます。
Function セルの色(セル As Range) As Integer
     セルの色 = セル.Interior.ColorIndex
End Function    
    
Functionプロシージャの構文です。
NAMAマクロ6

フォントの色を取得するユーザー定義関数

フォントの色ならば、
Function フォントの色(セル)
     フォントの色 = セル.Font.ColorIndex
End Function
    
というようにします。 色を知りたいけど、わざわざマクロを書くほどじゃないと言う場合には、イミディエイトウィンドウにこのように書きます。 Enterキーを押すと、3が返されます。
?Range("A1").Interior.ColorIndex
セルの色を取得するユーザー関数マクロ3

ColorIndex一覧(急ぎの場合)

ColorIndex Color(10進数/RGB) Color(16進数)
1 RGB(0,0,0) &H000000
2 RGB(255,255,255) &HFFFFFF
3 RGB(255,0,0) &H0000FF
4 RGB(0,255,0) &H00FF00
5 RGB(0,0,255) &HFF0000
6 RGB(255,255,0) &H00FFFF
7 RGB(255,0,255) &HFF00FF
8 RGB(0,255,255) &HFFFF00
9 RGB(128,0,0) &H000080
10 RGB(0,128,0) &H008000
11 RGB(0,0,128) &H800000
12 RGB(128,128,0) &H008080
13 RGB(128,0,128) &H800080
14 RGB(0,128,128) &H808000
15 RGB(192,192,192) &HC0C0C0
16 RGB(128,128,128) &H808080
17 RGB(153,153,255) &HFF9999
18 RGB(153,51,102) &H663399
19 RGB(255,255,204) &HCCFFFF
20 RGB(204,255,255) &HFFFFCC
21 RGB(102,0,102) &H660066
22 RGB(255,128,128) &H8080FF
23 RGB(0,102,204) &HCC6600
24 RGB(204,204,255) &HFFCCCC
25 RGB(0,0,128) &H800000
26 RGB(255,0,255) &HFF00FF
27 RGB(255,255,0) &H00FFFF
28 RGB(0,255,255) &HFFFF00
29 RGB(128,0,128) &H800080
30 RGB(128,0,0) &H000080
31 RGB(0,128,128) &H808000
32 RGB(0,0,255) &HFF0000
33 RGB(0,204,255) &HFFCC00
34 RGB(204,255,255) &HFFFFCC
35 RGB(204,255,204) &HCCFFCC
36 RGB(255,255,153) &H99FFFF
37 RGB(153,204,255) &HFFCC99
38 RGB(255,153,204) &HCC99FF
39 RGB(204,153,255) &HFF99CC
40 RGB(255,204,153) &H99CCFF
41 RGB(51,102,255) &HFF6633
42 RGB(51,204,204) &HCCCC33
43 RGB(153,204,0) &H00CC99
44 RGB(255,204,0) &H00CCFF
45 RGB(255,153,0) &H0099FF
46 RGB(255,102,0) &H0066FF
47 RGB(102,102,153) &H996666
48 RGB(150,150,150) &H969696
49 RGB(0,51,102) &H663300
50 RGB(51,153,102) &H669933
51 RGB(0,51,0) &H003300
52 RGB(51,51,0) &H003333
53 RGB(153,51,0) &H003399
54 RGB(153,51,102) &H663399
55 RGB(51,51,153) &H993333
56 RGB(51,51,51) &H333333