excel vba script не запускает предполагаемый msgbox?

Question

У меня есть сценарий excel vba (ниже), что у меня возникают проблемы с отображением «match». Я установил свой файл excel со следующей информацией. столбец A5 - A10 имеет даты в формате 3/1/2015, 3/2/2015 и т. д. (поэтому A5 = 3/1/2015, A6 = 3/2/2015 и т. д.)

My рабочий лист имеет 7 вкладок, первый (с кодом на нем) является листом по умолчанию1. с 2 по 7-ю вкладку обозначены как «1» для второй вкладки «2», «3» и т. д. до «7». На данный момент я просто тестировал A5 для сопоставления и отображения чего-либо, если он соответствует вкладке 2, но не работает. Прокомментированные (вне) msgboxes показывают, что значения должны совпадать, но когда я пытаюсь установить if (они равны), no bueno. это упрощенная версия, поэтому ответ вроде «почему бы вам просто не установить день, равный тому, который вы хотите» не будет работать. Благодаря!

Sub main() 

'MsgBox Day(Worksheets("sheet1").Range("a5").Value) 

'MsgBox Worksheets(2).Name 

If Day(Worksheets("sheet1").Range("a5").Value) = Worksheets(2).Name Then 

MsgBox "match" 

End If 

End Sub 

Answer 1

Day функция возвращает integer.

Worksheets(2).Name является собственностью string.

Чтобы сравнить эти значения, вам необходимо преобразовать их в тот же тип.

If CStr(Day(Worksheets("sheet1").Range("a5").Value)) = Worksheets(2).Name Then 

Вы можете прочитать больше о функциях преобразования типа here