В поиске не нашел подходящей темы, но, возможно, просто не сумел в поисковом запросе изложить правильно то, что необходимо) Подскажите, пожалуйста, как можно отнести содержимое ячейки к определенному месяцу?
К примеру, в ячейке "C15" есть содержимое - 10.01.2016. Мне необходимо при работе макроса отнести все значения от 01.01.2016 до 31.01.2016 в категорию "январь". И, соответственно, так же и с другими месяцами. Т.е. с 01.02.2016 до 28.02.2016 - февраль и т.д. По своим знаниям в VBA попытался написать скрипт при помощи Select Case:
[vba]
Код
Sub test2()
a = ThisWorkbook.Worksheets("Лист1").Range("C15").Value
Но это не работает) Примерно понимаю, что значение [vba]
Код
Case "01.01.2016" To "31.02.2017"
[/vba] VBA понимает, как просто текст, а не диапазон от 01.01.2016 до 31.01.2016.
Подскажите, пожалуйста, можно ли как-либо доработать код, чтобы он понимал необходимость, либо необходимо воспользоваться другими инструментами VBA?
Спасибо!
UPD.: название темы изменил. Сказать честно, сам до конца не знаю, как правильно сформулировать задачу)
Добрый день!
В поиске не нашел подходящей темы, но, возможно, просто не сумел в поисковом запросе изложить правильно то, что необходимо) Подскажите, пожалуйста, как можно отнести содержимое ячейки к определенному месяцу?
К примеру, в ячейке "C15" есть содержимое - 10.01.2016. Мне необходимо при работе макроса отнести все значения от 01.01.2016 до 31.01.2016 в категорию "январь". И, соответственно, так же и с другими месяцами. Т.е. с 01.02.2016 до 28.02.2016 - февраль и т.д. По своим знаниям в VBA попытался написать скрипт при помощи Select Case:
[vba]
Код
Sub test2()
a = ThisWorkbook.Worksheets("Лист1").Range("C15").Value
Немного доработал код под себя - теперь выводится и месяц и год:
[vba]
Код
Sub test2() a = ThisWorkbook.Worksheets("Лист1").Range("C15").Value ThisWorkbook.Worksheets("Лист1").Range("C14").Value = Format(a, "MMMMYYYY") End Sub
Немного доработал код под себя - теперь выводится и месяц и год:
[vba]
Код
Sub test2() a = ThisWorkbook.Worksheets("Лист1").Range("C15").Value ThisWorkbook.Worksheets("Лист1").Range("C14").Value = Format(a, "MMMMYYYY") End Sub