エクセル ＶＢＡについて

質問

Ａ、Ｂ、Ｃの黒色の丸い図があるとします。
ＡとＣが赤だったらＢが青になるようにしたいのですがどうすればよろしいのでしょうか。
詳しい方いましたらよろしくお願いします。

回答No.1

x-1919 · ベストアンサー

丸いシェイプにそれぞれ CircleA, CircleB, CircleC という名前が付けてあって、
それらが VBA コードが書かれているブック内の Sheet1 という名前のシートの上に張り付いていると仮定すれば

Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("Sheet1")

Dim cA As Shape, cB As Shape, cC As Shape
Set cA = sht.Shapes("CircleA")
Set cC = sht.Shapes("CircleC")

If (cA.Fill.ForeColor.RGB = RGB(255, 0, 0)) And (cC.Fill.ForeColor.RGB = RGB(255, 0, 0)) Then
　　Set cB = sht.Shapes("CircleB")
　　cB.Fill.ForeColor.RGB = RGB(0, 0, 255)
End If

とか。

シェイプに名前を付けるには、シェイプを選択してからシート左上のアドレス欄 ("円/楕円 4" とか出てるかもしれない) を "CircleA" とかに書き換え案す。

お礼

大変勉強になりました。
勉強不足です。
またお願いします