エクセル：セルの色のコード番号のようなもの？を取得したい

よろしくお願いします。

たとえば、セルA1のセルをピンクにしていたとします。そこで、B1に関数か何かを使ってA1セルの色を特定するコードを取得したいのです。
（その後、オートフィルでA列のピンク色のついたセルだけをB列のコードを使って選びたいのです）

雑誌の立ち読みで、可能なことまではわかっているのですが、やり方を忘れてしまいました。
その雑誌では「名前」と「マクロの色コード」と「関数」で可能だったように記憶しています。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： moriaki555 回答日時： 2006/05/12 15:43

通常の関数では不可能ですが

VBAでできるようです。

参考URL：http://hp.vector.co.jp/authors/VA016119/hajimete …

この回答へのお礼

ご回答ありがとうございました。
ご紹介いただいたサイトで非常に詳しい内容の解説があり、大変勉強になりました。ありがとうございます。

お礼日時：2006/05/13 01:03

No.4 回答者： imogasi 回答日時： 2006/05/13 00:10

ユーザー関数を定義します。

VBE画面の標準モジュール（ここに必ず）に
Function clget(a)
clget = a.Interior.ColorIndex
End Function
を貼り付け
セルのB1に=clget(A1)といれると、A1セルのパターン色が赤の場合３が返ります。
関数名は別の名でもよい。
文字色に場合
a.Font.ColorIndex
にすると良い。
雑誌にはエクセル４．０マクロとか言うのが載っていたかもしれない。

この回答へのお礼

imogasiさん、いつもお世話になります。
ごめんなさい。先着順でのポイントになってしまいました。ただ、シンプルな内容のVBAで大変、勉強になりました。心からありがとうございます。

お礼日時：2006/05/13 01:08

No.3 回答者： zap35 回答日時： 2006/05/12 15:59

＃０２です

複数のセルを選択していっぺんに処理するなら、次のようになります

Sub CLindex()
For Each c In Selection
c.Offset(rowOffset:=0, columnOffset:=1).Value = c.Interior.ColorIndex
Next
End Sub

この回答へのお礼

２度にわたってのご回答ありがとうございました。
マクロの実行でとてもスムーズにできました。
今回は関数を勉強したかった点と先着順で次点ポイントとなったことをお許しください。
ただ、関数では再計算できない注意点があることからも教えてくださった実際にはマクロの実行が確実ですね。そういう面からは最高のお答えをいただきました。感謝申し上げます。

お礼日時：2006/05/13 01:06

No.2 回答者： zap35 回答日時： 2006/05/12 15:52

カラーインデックス（色コード）を知りたいセルをアクティブにして、以下のマクロを実行してみて下さい。

右隣のセルに表示されます

Sub CLindex()

Selection.Offset(rowOffset:=0, columnOffset:=1).Value = Selection.Interior.ColorIndex

End Sub