[已解决]下面这段代码点击单元格即弹出窗口，能否有办法改成点击右键才弹出窗口呢？谢谢

qinhuan66

下面这段代码点击单元格即弹出窗口，能否有办法改成点击右键才弹出窗口呢？谢谢

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '点击某单元格即弹出窗体
   
2. If Target.Row > 4 And Target.Column = 4 Then
   
3. 医院名称.Show 0
   
4. End If
   
5. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-10-31 23:09

1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   
2.     Cancel = True
   
3.     If Target.Row > 4 And Target.Column = 4 Then
   
4.         报考职位.Show 0
   
5.     End If
   
6. End Sub

复制代码

换成这个事件。

跳转到最佳答案楼层

hwc2ycy

1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   
2.     Cancel = True
   
3.     If Target.Row > 4 And Target.Column = 4 Then
   
4.         报考职位.Show 0
   
5.     End If
   
6. End Sub

复制代码

换成这个事件。

hwc2ycy

如果用右键的话，原来的那个就注释掉。