Макрос. Найти текущую дату в колонке через Find

[Leanna]

Мне необходимо найти ряд, в котором находится текущая дата через Find. Данные находятся в первой колонке.
Подскажите как правильно написать код, а то следующее не работает?

Sub CurrDate()
rData = Columns(1).Find(Date, LookIn:=xlValues).Row
Rows(rData).Activate
End Sub

[EducatedFool]

Метод Find в данном случае может работать некорректно...

Попробуйте такой код:

Sub FindCurrentDate()
' производится поиск последней ячейки, содержащей текущую дату
    dn = DateValue(Now): Row = 0
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        cv = cell.Value: If IsDate(cv) Then If cv = dn Then cell.EntireRow.Activate: Row = cell.Row
    Next
    If Row > 0 Then MsgBox "Текущая дата найдена в строке  " & Row, vbInformation
End Sub

Ваш макрос можно использовать в таком виде:

Sub CurrDate()
    On Error Resume Next
    rData = Columns(1).Find(Date, LookIn:=xlValues).Row
    Rows(rData).Activate
End Sub

Проблема в том, что если подходящая ячейка не найдена, метод Find ничего не возвратит,
и попытка получить свойство Row отсутствующего объекта и вызывает ошибку.

Кроме того, Ваш макрос найдет дату только в том случае, если она записана в ячейку в том же виде,
в каком её возвращает функция Date (в моём случае это формат dd.mm.yyyy)

То есть если в ячейке содержится дата в виде 19 декабря 2008, то макрос ничего не найдет. (он найдёт только дату 19.12.2008)
Мой же вариант макроса осуществит поиск корректно.

Если же в столбце 1 может присутствовать несколько ячеек с текущей датой, и необходимо выделить все эти ячейки,
то макрос надо будет немного изменить.

[SAS888]

EducatedFool абсолютно прав. Дело в том, что метод Find ищет ячейки "как есть", т.е. если сегодняшнюю дату написать в разных форматах, то отыщется лишь та ячейка, в которой совпадают формат ячейки и формат функции Date.
Избавиться от этой "заморочки" поможет цикл по строкам нужного столбца. При этом можно, например, сравнивать значение ячейки с CStr(Date). Предварительно, лучше вставить проверку IsDate(текущая ячейка).

[Leanna]

Спасибо большое! Это очень познавательно.
Вы мне очень помогли, буду использовать тогда ваш вариант.

[Leanna]

Очень любопытно что такое двоеточие ( значит?
dn = DateValue(Now): Row = 0
cv = cell.Value: If IsDate(cv) Then If cv = dn Then cell.EntireRow.Activate: Row = cell.Row

Это вместо переноса строки можно вставлять?

[EducatedFool]

Это вместо переноса строки можно вставлять?

Да. Но не всегда.

Например, Ваш макрос можно записать одной строкой:

Sub CurrDate():    On Error Resume Next:    rData = Columns(1).Find(Date, LookIn:=xlValues).Row:    Rows(rData).Activate: End Sub

Но, к примеру, в случае с таким кодом:

For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        cv = cell.Value: If IsDate(cv) Then If cv = dn Then cell.EntireRow.Activate: Row = cell.Row
Next

после Row = cell.Row нельзя ставить двоеточие и оператор Next, так как нарушится логика работы макроса.


То есть запихнуть этот код в 2 строки ещё можно:

For Each cell In ActiveSheet.UsedRange.Columns(1).Cells: cv = cell.Value: If IsDate(cv) Then If cv = dn Then cell.EntireRow.Activate: Row = cell.Row
Next

а в одну строку уже нельзя (разве что только избавившись предварительно от условного оператора If ... Then ... ).