Excel VBA 質問スレ Part78

[568 デフォルトの名無しさん (ﾜｯﾁｮｲ 768c-zmrv) 2023/01/01(日) 02:13:01.01 ID:U+Y4eA/v0]

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("G2:G30000")) Is Nothing Then Exit Sub
Target.Value = Now
Cancel = True
End Sub