У меня есть диапазон дат, по которым мне приходится искать в VBA, чтобы найти ячейку, содержащую нужную мне дату - дату, выбранную из пользовательской формы календаря и помещенную в текстовое поле. Формат даты в текстовом поле совпадает с форматом диапазона, т. Е. Дд-ммм (или 11 фев), и код указывает VBA выполнить поиск значения ячейки. Однако это то, где я запутался. При поиске я могу найти любую дату, но только после 10-го числа месяца, например, 10-го, 17-го или 22-го числа. Но он не может распознать что-либо между 01-09. Почему это так и есть какое-то решение?
Код из календаря в текстовое поле -
shiftcoverUserForm.dateTextBox.Value = Format(calanderuserform.Calendar1.Value, "dd" + "-" + "mmm")
, а код для поиска -
Dim Srchdate As Range
Dim srchname As Range
Set Srchdate = Worksheets("Shift Cover").Range("c4:abf4").Find(dateTextBox.Value, LookIn:=xlValues)
If Srchdate Is Nothing Then
MsgBox "Not Found"
снимок экрана мои данные ниже. В основном, поиск найдет, например, 10 января, но когда я хочу, чтобы он нашел, например, 7 января, он выдает сообщение msgbox "not found
