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

【本日のミッション】

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の文字色のカラーインデックスが、取得できました。

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

■■■スポンサーリンク■■■

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

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

Range.Font.Color

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

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

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

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

参照

「数字が文字列として保存されています。」を一括で数字に変換
データが増減しても参照先を変更しない名前の管理(Excel)
連動するドロップダウンリストを名前の管理・入力規制・OFFSET・INDIRECTを使って「リストが表示されない」を解決(Excel)
Excel 複数セル内の改行(Alt+Enter)を一括で解除する方法
Excel関数を使って 縦の表に連動した(リンクした)横の表を一括で作成せよ
ワイルドカードとは。使い方いろいろ。(Excel)
Excelの改ページの点線を消す方法
Excelの背景にある薄グレーの枠線(罫線)を消す(非表示)方法
非表示になってしまった列を表示させる方法
ファイルを開くと空の画面も同時に開くのを解決(Excel)
図 画像 グラフ ボタン などのオブジェクトが消えてしまった時の表示方法(Excel)
大量の画像やグラフ等のオブジェクトで画面表示が遅いのを解決(Excel)
保護されたシートに対して、このコマンドは使用できません。テーマが変えられない現象を解決(Excel)
離れた複数列をまとめて列番号(数字)で選択する方法(Excel VBA)
Excel VBA で選択した複数のセルにデータ・数式を(Ctrl+Enter のように)一気に入力する方法
エクセル 塗りつぶしで指定した色のカラーインデックスを取得する(Excel VBA)
エクセル セル入力した文字色からカラーインデックスを取得する(Excel VBA)

■■■スポンサーリンク■■■