AIと戦って、あなたの人生のリスク診断 >>

最近困っているところが表題の通りなのですが
Sheet1のB2を右クリックするとB2のセルの色を変えて
Sheet2のB2のセルも色を変えたいというものです。
現状で

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Dim Rng As Range, myRng As Range
Dim RngA As Range, myRngA As Range


Set Rng = Range("B3:W3,b7:w8,b12:w12,d13:w13,d17:w18,d22:w23")
Set myRng = Intersect(Target, Rng)

If myRng.Interior.ColorIndex = xlColorIndexNone Then
myRng.Interior.ColorIndex = 37

Else
If myRng.Interior.ColorIndex = 37 Then
myRng.Interior.ColorIndex = 45

Else
myRng.Interior.ColorIndex = xlColorIndexNone
End If

End If
Cancel = True
End Sub

とここまではあるのですが、これをどう改造すればSheet2の同じセルの色もかわるのでしょうか?
宜しくお願いいたします

A 回答 (1件)

試していませんが


 myRng.Interior.ColorIndex = 37
 Sheets("Sheet2").Range(myRng.Address).Interior.ColorIndex = 37
のようにしてみたらどうですか?

ただこのマクロは
 Set myRng = Intersect(Target, Rng)
の結果がNothingだとエラーになりそうです。

 If Not myRng Is Nothing Then
   色を変更する処理
 End If
にしたらよいと思います。
    • good
    • 0
この回答へのお礼

お返事遅くなりましてすいません。
上記でばっちり動きました。
ありがとうございます!

お礼日時:2008/02/04 13:58

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング