☰

通过单击合并范围来触发宏

tag-icon • tag-icon microsoft-excel vba named-ranges
通过单击合并范围来触发宏 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
    If Not Intersect(Target, Range(abc)) Is Nothing Then
        Call MyMacro
    End If

End If
End Sub

当我输入例如 range("A1") 以便单击 A1 触发宏时，此代码工作正常，现在我有一个合并范围 W20:Z20，我将该范围引用为 ABC，现在当我返回到我的工作表尝试单击单元格时，它会给我错误“编译错误，变量未定义”

答案1

欢迎成为超级用户。

正如 Máté Juhász 所说，如果您将“abc”放在If Not Intersect(Target, Range(abc)) Is Nothing Then引号中，您的代码就可以工作。

该行代码看起来应如下所示：

If Not Intersect(Target, Range("abc")) Is Nothing Then

相关内容