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:

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 
Rng.EntireColumn.Interior.Color = vbMagenta 
Else 

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

    MsgBox "Nothing found" 
End If 
End With 
End Sub 

Answer 2

Вы можете пропустить весь VBA и использовать условное форматирование. Смотрите скриншот: