Excel VBA代码突出显示特定单元格的行

Question

我创建了一个包含3张纸的电子表格：

Sheet1 - Search Sheet2 - Add Data Sheet3 - Database

我想创建一个按钮（更新）以突出显示单元格D4 Sheet1的值的行（绿色）并突出显示Sheet3中的行（在第1列中，我需要在D4中插入数据以突出显示）。 我创建了一个按钮，但是每次都只突出显示Sheet3的最后一行

Private Sub MDAno_Click()
currentrow = Sheet3.Cells(1, 1).CurrentRegion.Rows.Count

If Len(Range("D4")) <> 0 Then

Sheet3.Cells(currentrow, 498) = "Investigating"

End If

End Sub

我在Sheet3中有一个条件（如果我在498列突出显示行中有“正在调查”）。 有人可以帮我吗？ 谢谢

Answer 1

尽管可以通过简单的条件格式来实现，但这是您要实现的目标...

Private Sub MDAno_Click()
Dim lr As Long, i As Long
Dim ID
lr = Sheet3.Cells(1, 1).CurrentRegion.Rows.Count
ID = Sheet1.Range("D4").Value
If ID <> "" Then
    For i = 2 To lr
        If Sheet3.Range("A" & i) = ID Then
            Sheet3.Cells(i, 498) = "Investigating"
        Else
            Sheet3.Cells(i, 498) = ""
        End If
    Next i
End If
End Sub