excel 如何用VBA来实现双击某个单元格(A1)跳转到指定区域(B2:F18),注意是双击 不要单击。

如题所述

第1个回答  2019-09-06
试试看下面这段代码:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 And Target.Row = 1 And Target.Column = 1 Then
Range(Cells(2, 2), Cells(18, 6)).Select
End If

End Sub
第2个回答  2019-09-06
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Range("B2:F18").Select
Else
End If
End Sub本回答被提问者采纳