If Target.Count = 1 And Target.Row >= 7 And Target.Row <= 99 Then 怎么改

blm860606

If Target.Count = 1 And Target.Row >= 7 And Target.Row <= 99  Then
        If Target.Column = 1 And Target.Row >= 7 And Target.Row <= 99  Then


多级联动弹出，上代码可以指定到 1列7行到99行，显示弹出菜单，但是我想实现同时第13列7行到99行显示弹出菜单，其他列不显示，如何修改代码？请教各位大神。

blm860606

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a(), i
    On Error Resume Next
    If Target.Count = 1 And Target.Row >= 7 And Target.Row <= 99 Then
        If Target.Column = 1 And Target.Row >= 7 And Target.Row <= 99 Then
            With Application.CommandBars("myCell")
                .ShowPopup
            End With
        End If
    End If
   
End Sub

指定的完整代码如下，移植的其他大神的代码，但是不知道怎么修改。

qingc0221

if target.count>1 then
exit sub
end if
if target.column=1 or target.column=13 then
if target.row>=7 and target.row<=99 then
.......
end if
end if

microyip

1. If Target.Count = 1 And Target.Row >= 7 And Target.Row <= 99  And Target.Column = 13 Then

复制代码

blm860606

qingc0221 发表于 2018-8-12 12:35
if target.count>1 then
exit sub
end if

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a(), i
    On Error Resume Next
    If Target.Count > 1 Then
        Exit Sub
            End If
                If Target.Column = 1 Or Target.Column = 13 Then
            If Target.Row >= 7 And Target.Row <= 99 Then
        End If
    End If
   
End Sub

-----------------------------------------------------------------------------
谢谢大哥，这样改对吗

blm860606

microyip 发表于 2018-8-12 12:51

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a(), i
    On Error Resume Next
    If Target.Count = 1 And Target.Row >= 7 And Target.Row <= 99 And Target.Column = 13 Then
            With Application.CommandBars("myCell")
                .ShowPopup
            End With
        End If
    End If
   
End Sub
---------------------------------------------------
谢谢大神，我这样修改可以吗

blm860606

qingc0221 发表于 2018-8-12 12:35
if target.count>1 then
exit sub
end if

实现了 谢谢大哥