下面是我尝试的代码。此代码在Excel for Mac中没有任何错误，但在Windows中不起作用，错误424“需要对象”。我不知道为什么我不能让它在Excel中工作在窗口，并寻求解决方案。
我真的很感激你的建议。
合并ConditionalFormat和VLookup
“VLookedup”值在Sheet2中的B列上。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
With Me.Range("A1:I20") '★
.FormatConditions.Delete
If Target.Value <> "" Then
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:=Application.VLookup(Target.Value, Worksheets("Sheet2").Range("A:B"), 2, False)
.FormatConditions(1).Interior.ColorIndex = 28
End If
End With
End Sub
1条答案
按热度按时间hfyxw5xn1#
你需要把它放在正确的模块中，你可能会添加错误处理。
代码的正确位置：
使用vlookup也会得到一个错误：当vlookup为"out of range error时，为
run time error 5”。例如，如果您单击下面示例中的单元格A1或没有找到任何结果，则会发生这种情况。我添加了一些快速的错误处理，使其工作。这是我工作表中的结果，其中B列具有公式（
=VLOOKUP(A2,$D$2:$E$5,2,FALSE）。D和E列是我的vlookup表，当我单击A列中的任何单元格时，excel会突出显示关系。