- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：セル色を取得するユーザー関数）
セル色を取得するユーザー関数
このQ&Aのポイント
- セル色を取得するユーザー定義関数として、Function CellColor(objCell As Range) As Integer Application.Volatile CellColor = objCell.Interior.ColorIndex End Function 上記のコードを標準モジュールに貼り付け、例えばB2セルに「=CellColor(A2)」という計算式を入力すると、B2セルにA2セルの塗りつぶし色のColorIndex値が表示されるようになります。
- 上記のコードを使用することで、任意のセルの塗りつぶし色のColorIndex値を取得することができます。
- ユーザー関数を作成するには、標準モジュールに上記のコードを貼り付け、関数名を適切に設定する必要があります。この関数を使用するには、セルに特定の値を入力するだけでなく、計算式としてセルに入力する必要があります。
- drymango
- お礼率43% (7/16)
- その他MS Office製品
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
呼び出したセルは「Application.Caller」で取得できます。 以下、修正したユーザ関数です。 Function CellColor() As Integer Application.Volatile CellColor = Application.Caller.Interior.ColorIndex End Function
お礼
ご教授いただいた通りに実行しますと、 まさに希望する結果となりました。 ありがとうございました。