セルの色塗りVB

質問

こんばんわ　よろしくお願いします。
セルを横方向に数列ドラッグし、ドラッグの選択範囲を右クリック
したら色が変わるようなVBを考えているんですが、わかりません。
このようなVBを組むのは無理でしょうか？

回答No.1

masa_019 · ベストアンサー

そのような機能が必要なシートのモジュールに

Private Sub Worksheet_BeforeRightClick _
(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
Target.Interior.ColorIndex = 3
End Sub

とすれば、
右クリックで選択範囲に色がつきます。
サンプルでは
ColorIndex = 3
としているので、赤くなりますが
ここの値を変えれば、好きな色に出来ます。

お礼

ありがとうございます！大変助かりました。
また勉強にもなりました。