VBAについて教えてください。 Excelで セルのB6～BG24でダブルクリックすると ダブルクリ

VBAについて教えてください。

Excelで
セルのB6～BG24でダブルクリックすると
ダブルクリック1回目 赤色に塗りつぶし
ダブルクリック2回目 黄色に塗りつぶし
ダブルクリック3回目 クリア
となるように、プログラムを組みたいです。

初心者につき、優しく教えて頂けると幸いです。

詳しい方ご教示ください。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/06/02 17:29

こんにちは

基本的なところは自身で学習する必要があります
下記のコードや回答文を参考に調べてください

塗りつぶしするセルが明示されていなかったので　セルのB6～BG24　としました。
実行したいシートモジュールに

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rng As Range
Set Rng = Range("B6:BG24")
If Not Intersect(Target, Rng) Is Nothing Then
Select Case Rng(1).Interior.ColorIndex
Case 3
Rng.Interior.ColorIndex = 6
Case 6
Rng.Interior.ColorIndex = xlNone
Case xlNone
Rng.Interior.ColorIndex = 3
End Select
End If
Cancel = True
End Sub

この回答へのお礼

早急な回答ありがとうございます。早速、入力してみます。ありがとうございした。

お礼日時：2022/06/02 22:02