Question

我在工作表中保存了一段代码，在同一工作表中我有一些单元格的超链接，但每当我点击超链接时，都会出现以下错误。

Error 1004: Method of intersect of object global failed。

这是我在工作表中的代码：

Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(ActiveCell, Range("A2:O601")) Is Nothing Then
        Range("A2:O601").Interior.ColorIndex = xlNone
        Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "O")).Interior.ColorIndex = 2
    End If

End Sub

Answer 1

而不是ActiveCell使用Target

Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:O601")) Is Nothing Then
        Range("A2:O601").Interior.ColorIndex = xlNone

        Range(Cells(Target.Row, "A"), Cells(Target.Row, "O")).Interior.ColorIndex = 2
    End If
End Sub

您也可以将代码编写为

Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:O601")) Is Nothing Then
        Range("A2:O601").Interior.ColorIndex = xlNone

        Dim rw As Long

        rw = Target.Row

        Range("A" & rw & ":O" & rw).Interior.ColorIndex = 2
    End If
End Sub

提示：我认为您正在尝试创建一行荧光笔。如果是，那么您可能希望在THIS帖子中看到我的答案，其中以屏幕截图说明。

对象全局失败的交叉方法：超链接

1 个答案: