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

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

1 个答案: