求助：两个鼠标双击事件怎么用if表达?

枫丹白露

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '鼠标双击触发
    If Intersect(Target, Range("D3:D1000")) Is Nothing Then Exit Sub'当双击D3:D1000单元格时,触发sdss窗体
    Cancel = True
    sdss.Show Model
    ElseIf Intersect(Target, Range("G3:G1000")) Is Nothing Then Exit Sub'当双击G3:G1000单元格时,触发sess窗体
    Cancel = True
    sess.Show Model
End Sub


我这样写，被提示不合法，要怎么修改？

HSIAOQIANG

這個是沒得解的,事件屬於私有程序

xunanming

...................................................

excel玉米

if target.column=4 then  sdss.Show Model

excel玉米

if target.column=7 then sess.Show Model

tanglf188

这不是两个事件，而是两个条件，请参考

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     Select Case Target.Column
   
4.         Case 4 '双击了第四列
   
5.             If Target.Row > 2 And Target.Row < 1001 Then
   
6.                 Cancel = True
   
7.                 sdss.Show Model
   
8.             End If
   
9.         Case 7 '双击了第七列
   
10.             If Target.Row > 2 And Target.Row < 1001 Then
    
11.                 Cancel = True
    
12.                 sess.Show Model
    
13.             End If
    
14.     End Select
    
15. End Sub
    
16. 
    

复制代码

小fisher

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '鼠标双击触发
    If Not Intersect(Target, Range("D3:D1000")) Is Nothing Then '当双击D3:D1000单元格时,触发sdss窗体
        Cancel = True
        sdss.Show vbModal 'vbModeless
    End If
   
    If Not Intersect(Target, Range("G3:G1000")) Is Nothing Then  '当双击G3:G1000单元格时,触发sess窗体
        Cancel = True
        sess.Show vbModal
    End If
End Sub

枫丹白露

xunanming 发表于 2023-3-30 02:53
...................................................

非常感谢，试了可以

枫丹白露

小fisher 发表于 2023-3-30 10:51
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '鼠标双击触发
    ...

非常感谢，验证可行了
请教一下
Show vbModal 这是什么作用?

枫丹白露

tanglf188 发表于 2023-3-30 09:48
这不是两个事件，而是两个条件，请参考

验证无效， Case 4是指向第4列吗？点击无效了呢