エクセル セル入力した文字色からカラーインデックスを取得する（Excel VBA)

【本日のミッション】

Excel VBAで、セル入力した文字色からカラーインデックスを取得せよ

ミッションの概要

セル入力した文字色からカラーインデックスを取得せよ、というのが今回のミッションです。

プロシージャ

Sub 文字色カラーインデックス取得()

    Dim t_cor As Long   'カラー
    
    t_cor = Range("A1").Font.Color
    MsgBox "あなたが指定した文字色のカラーインデックスは「" & t_cor & "」です"

End Sub

文字色を取得するシートをアクティブにした状態で、プロシージャ（Sub～End Subまで）のどこかにカーソルを置いてF5キーをクリックしてください。

セルA1の文字色のカラーインデックスが、取得できました。

文字色を取得する Font.Colorプロパティ

文字色は、Font.Colorプロパティで取得することができます。

Range.Font.Color

複数セルの文字色は取得不可

Font.Colorプロパティでは、複数セルの文字色を取得することはできません。
「実行時エラー’94’; Nullの使い方が不正です」というエラーになってしまいます。

t_cor = Range("A1:B1").Font.Color
MsgBox "あなたが指定した文字色のカラーインデックスは「" & t_cor & "」です"