「教えて!ピックアップ」リリース!

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

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

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

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

A 回答 (1件)

こんにちは


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

塗りつぶしするセルが明示されていなかったので セルの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
    • good
    • 1
この回答へのお礼

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

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

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

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング