Добрый день!
Вопросы по применению метода Range.Find c параметром LookIn:=xlValues сравнительно часто задаются на форуме. Владимир () давал разъяснения . Попробуем продолжить изучение этого проблемы.
Первую задачу можно в начале решать "без доски". Что будет выдано в результате выполнения следующего макроса. Почему?
Следующая задача значительно труднее. Ее решение дает ключ к ответу по данной теме.
Выполнить макрос. Если есть различия в сообщениях по месяцам, то объяснить эти различия.
Сделаем паузу на пару дней, чтобы дать возможность читателям темы (если таковые будут) провести самостоятельные исследования.
Вопросы по применению метода Range.Find c параметром LookIn:=xlValues сравнительно часто задаются на форуме. Владимир () давал разъяснения . Попробуем продолжить изучение этого проблемы.
Первую задачу можно в начале решать "без доски". Что будет выдано в результате выполнения следующего макроса. Почему?
| Код |
|---|
Sub TestRangeFind()
Dim rg As Range, txt As String, y As Long
y = 2021
Workbooks.Add
With Range("A1")
.NumberFormat = "D MMMM YYYY"
.Value = DateSerial(y, 1, 1)
Set rg = .Find(y, LookIn:=xlValues, LookAt:=xlPart)
Debug.Print "Текст " & y & IIf(rg Is Nothing, " не", "") & " найден в ячейке со значением " & .Value
End With
End Sub |
Скрытый текст |
|---|
| Объяснение. Дата в указаннном формате не умещается в ячейке и отображается с помощью знаков "#". См. сообщение ZVI. |
Следующая задача значительно труднее. Ее решение дает ключ к ответу по данной теме.
Выполнить макрос. Если есть различия в сообщениях по месяцам, то объяснить эти различия.
| Код |
|---|
Sub TestRangeFind2()
Dim rg As Range, m As Long, y As Long, txt As String
y = 2021
txt = y ' текст для поиска в ячейке A1
Workbooks.Add
With Range("A1")
.NumberFormat = "D MMMM YYYY"
For m = 1 To 12
.Value = DateSerial(y, m, 1)
.EntireColumn.AutoFit
Set rg = .Find(txt, LookIn:=xlValues, LookAt:=xlPart)
Debug.Print "Текст " & txt & IIf(rg Is Nothing, " не", "") & " найден в ячейке со значением " & .Value
Next m
End With
End Sub |
Сделаем паузу на пару дней, чтобы дать возможность читателям темы (если таковые будут) провести самостоятельные исследования.
Владимир
