エクセルのマクロ設定について

質問

クリックすると、日付が表示されるように、下記のマクロ設定してあります。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("C4:C30")) Is Nothing Then Exit Sub

If ActiveCell = "" Then
ActiveCell = Date
Cancel = True
End If

End Sub

C4~C30とG4~G30の２箇所にしたいのですが、式はどうしたらいいのでしょうか。

よろしくお願いします。

回答No.1

pkh4989 · ベストアンサー

以下のように変更してください
　　If Intersect(Target, Range("C4:C30")) Is Nothing Then Exit Sub
　　↓
　　If Intersect(Target, Range("C4:C30,G4:G30")) Is Nothing Then Exit Sub

回答No.2

xls88

下記のようにして、試してください。
If Intersect(Target, Range("C4:C30,G4:G30")) Is Nothing Then Exit Sub