＞さて、今回は範囲指定した後、
これは具体的にどう指定するのですか？　
　マウスでドラッグ選択？　（この場合、ダブルクリックすると選択解除されると思うのですが・・）　
　プログラム内で決め打ち指定？
 
 

いつもお世話になっております。

さて、今回は範囲指定した後、
ダブルクリックを1回すると、指定範囲のすべてのセルが
A、2回でB、3回でC、4回で/、5回でAに戻る、というマクロを組みたいと思いました。

CHAT-GPTにお願いしたところ、
以下のコードが出てきましたが、
実際にやってみるとエラーが出てしまいました。

どこに問題があるのか教えていただけないでしょうか？

Dim clickCounts As Collection

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A40")) Is Nothing Then
If clickCounts Is Nothing Then
Set clickCounts = New Collection
InitializeClickCounts ' データ入力範囲のクリック回数を初期化
End If
Dim cellCount As Integer
cellCount = Target.Cells.Count
Dim i As Integer
For i = 1 To cellCount
Dim currentCell As Range
Set currentCell = Target.Cells(i)
Dim currentCount As Integer
currentCount = clickCounts(currentCell.Address)
currentCount = currentCount + 1
Select Case currentCount
Case 1
currentCell.Value = "A"
Case 2
currentCell.Value = "B"
Case 3
currentCell.Value = "C"
Case 4
currentCell.Value = "/"
currentCount = 0 ' リセットして再度Aから始める
Case Else
currentCount = 1 ' リセットしてAから再開
currentCell.Value = "A"
End Select
clickCounts(currentCell.Address) = currentCount
Next i
Cancel = True ' ダブルクリックイベントをキャンセルして、シングルクリックのみ有効にする
End If
End Sub

Private Sub InitializeClickCounts()
Dim rng As Range
Set rng = Range("A1:A40") ' データ入力範囲を指定（必要に応じて変更）
Dim cell As Range
For Each cell In rng
clickCounts.Add 1, cell.Address
Next cell
End Sub

どうぞよろしくお願いいたします。