这个控制在10列，但是我想行也能控制怎么办？

w8899

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 Then

        Select Case Target.Column

            Case 10

                frmCalendar.Show vbModal
                If IsNull(rtnDate) = False Then
                    Target = rtnDate

               End If
                Target.Offset(0, 1).Activate
                  End Select
                   End If
End Sub
这个控制在10列，但是我想行也能控制怎么办？

zhjlgaojuan

用target.address
你想怎么控制就怎么控制

6688

If Target.Row > 1 and target.column < 11 Then

w8899

zhjlgaojuan 发表于 2018-9-14 13:57
用target.address
你想怎么控制就怎么控制

不明白，搞个完整的代码，我要控制列在10列，行控制在5行  点击出现窗体。

w8899

6688 发表于 2018-9-14 14:07
If Target.Row > 1 and target.column < 11 Then

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 4 And Target.Row < 5 Then
        Select Case Target.Column
            Case 10
                frmCalendar.Show
                If IsNull(rtnDate) = False Then
                    Target = rtnDate
                End If
                Target.Offset(0, 1).Activate
        End Select
    End If
End Sub
谢谢，解决了，

w8899

w8899 发表于 2018-9-14 23:26
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row =  ...

If Target.Row > 1 Then  实际 上这个 1 就是所在的行，修改为10就行了