Excel VBA根据今天的日期突出显示整个列

Question

我的excel表中有以下数据。我的要求是突出显示当前日期的整个栏目。



我找到了一个代码，用于搜索我的日期并选择今天的日期。但是，当我尝试移动到另一个单元格输入一些数据时，它会一直返回到所选日期，而我无法键入。下面是我的代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)     
  Dim TodaysDate As Date
  Dim Rng As Range

  TodaysDate = CLng(Date)
  With Rows("1:1")
  Set Rng = .Find(what:=TodaysDate, _
  after:=.Cells(.Cells.Count), _
  LookIn:=xlFormulas, _
  lookat:=xlWhole, _
  SearchOrder:=xlByRows, _
  SearchDirection:=xlNext, MatchCase:=False)

If Not Rng Is Nothing Then
 Application.Goto Rng, True
Else

'Give a message that today's date was not found

  MsgBox "Nothing found"
End If
End With`

上面的代码不包括突出显示部分，因为我不知道怎么做，因为我刚学会从昨天开始做VBA。
任何帮助将不胜感激。

Answer 1

您可以跳过整个VBA并使用条件格式。看截图：

Answer 2

使用VBA：

Top.perKey