【VBA】画面の色による条件分岐ができない

Question

VBAで、PCの操作を自動化するツールを作成中です。

もし画面上の特定の座標の色が赤だったら、〇〇する
それ以外なら、□□する

という条件分岐をしたいのですが、これをやろうとする人が少ないのか、調べてもわかりませんでした。
実際に作っているものとは違いますが、例えば以下のURLのPC上の画面で、「白で囲った部分（座標）が赤なら、〇〇する」といった感じです。

［参考］
http://www5d.biglobe.ne.jp/~tomoya03/shtml/vbapi/GetColor.htm

こちらにそれらしいことは書いてありましたが、私の力不足で理解ができませんでした。

if test ［画面上の特定の座標の色（16進数orRGB）］=［赤の16進数orRGB］ then
    〇〇
else
    □□
endif

という感じにしたいです。

具体的なコードまで教えていただけると幸いです。
よろしくお願いします。

Answer 1

セルの背景色は Interior.Color で取得できますので分岐自体は以下のようなものでできます。

If Range("B3").Interior.Color = RGB(0, 0, 0) Then
    ' B3 セルが黒（RGB(0,0,0)）の場合
Else
    ' B3 セルが黒（RGB(0,0,0)）以外の場合
End If

なお、条件付き書式等を考慮するのであれば DisplayFormat.Interior.Color を利用するほうがいいかもしれません。

If Range("B3").DisplayFormat.Interior.Color = RGB(0, 0, 0) Then
    ' B3 セルが黒（RGB(0,0,0)）の場合
Else
    ' B3 セルが黒（RGB(0,0,0)）以外の場合
End If

---

ただ何らかのデータ（セルの値など）を元に分岐・着色を行う方が圧倒的に簡単で、事例が少ないのはあまり使い勝手がよくない筋だからでしょう。
例えば人間の目で「赤」と言っていても実際のカラーコードは異なるものの場合がありもし背景色を手動で着色している場合は正しい色で指定できない可能性が高いからです。

Comments

[m-nm0n]

すみません、言葉足らずでした。

「スクリーン上の色」のことです。
画像や参考リンクなど追加しましたので、ご検討よろしくおねがいします。

[kaz.Suenaga]

参考URLのコード、理解はともかく動作はした（想定のものと一致する）のでしょうか

[m-nm0n]

いえ、動作しませんでした。
おそらく私が間違ったのだと思います。

また、URLのものよりもある程度単純なものになりそうです。

[kaz.Suenaga]

参考URLのTOP ( http://www5d.biglobe.ne.jp/~tomoya03/shtml/vbapi.html ) を見ると PC98版のWin95上のVB4ととても古い環境での動作となっていますね。
使われている User32.dll というWindowsOS側のライブラリは確かまだ利用できるとは思いますが、当時と同じ動作なのかどうかはよく調べてみないとわからないです。

（ところでほんとに VBA でしょうか？ VB じゃないでしょうか）