Question

vba双击单元格可以弹出窗口

比如鼠标只有击A1可以弹出一个userform，单击不可以弹出

Answer 1

请用工作表的 BeforeDoubleClick 事件：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = Range("A1") Then
        userfomr1.Show
    End If
End Sub

追问

如果Private Sub Worksheet_SelectionChange(ByVal Target As Range)这个事件里要调用你上面写的事件的话，该怎么弄

追答

BeforeDoubleClick 事件的优先级高于 SelectionChange 事件

另外，之前的回答中写得不对，判断 Target 单元格时，直接写引用位置字符串就行了，如下：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$B$5" Then MsgBox "Hello!" '双击B5时，弹出窗口显示 HELLO
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then MsgBox "HAHA" '单击A1时，弹出窗口显示 HAHA
End Sub

追问

我写的工具里面，如果不在
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
中有userform1.show，那么无法有效果的，请问要是双击的话还有其他的方法不？

追答

不可能吧？请看附件示例：

 单击B5单元格，弹出提示“HAHA”    

 双击B5单元格，弹出Userform1窗口 。