みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

セル色を取得するユーザー定義関数として、
Function CellColor(objCell As Range) As Integer
 Application.Volatile
 CellColor = objCell.Interior.ColorIndex
End Function

上記のコードを標準モジュールに貼り付け、例えばB2セルに「=CellColor(A2)」という計算式を入力すると、B2セルにA2セルの塗りつぶし色のColorIndex値が表示されるようになります。

これをB2セルに例えば「=CellColor()」というように入力すれば
B2セルにB2セルの塗りつぶし色のColorIndex値が表示されるようにするには、
どのようなユーザー関数を作ればよいでしょうか?
よろしくお願いします。

投稿日時 - 2010-12-21 16:19:21

QNo.6398540

困ってます

質問者が選んだベストアンサー

呼び出したセルは「Application.Caller」で取得できます。
以下、修正したユーザ関数です。
 
Function CellColor() As Integer
  Application.Volatile
  CellColor = Application.Caller.Interior.ColorIndex
End Function

投稿日時 - 2010-12-21 16:52:36

お礼

ご教授いただいた通りに実行しますと、
まさに希望する結果となりました。
ありがとうございました。

投稿日時 - 2010-12-21 17:18:49

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問