エクセル 塗りつぶしで指定した背景色のカラーインデックスを取得する(Excel VBA)

【本日のミッション】

Excel VBAで、塗りつぶしで指定した背景色のカラーインデックスを取得せよ

ミッションの概要

塗りつぶしで指定した背景色のカラーインデックスを取得せよ、というのが今回のミッションです。

プロシージャ

Sub 背景色カラーインデックス取得()

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

End Sub

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

セルA1に指定した背景色のカラーインデックスが、取得できました。

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

セルの背景色を取得する Interior.Color プロパティ

セルの背景色は、Interior.Color プロパティで取得することができます。

Range.Interior.Color

複数セルの背景色は取得不可

Interior.Color では、複数セルの背景色を取得することはできません。
複数セルの背景色を取得しようとすると「0」が返ってきます。

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

参照

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

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