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

比如鼠标只有击A1可以弹出一个userform,单击不可以弹出... 比如鼠标只有击A1可以弹出一个userform,单击不可以弹出 展开
 我来答
百度网友ca64c0c
2014-03-31 · TA获得超过4666个赞
知道大有可为答主
回答量:2991
采纳率:61%
帮助的人:1473万
展开全部

请用工作表的 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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式