Vba: как получить название месяца из даты

Вы можете использовать функцию MonthName в VBA, чтобы получить название месяца из даты в Excel.

Вот общий способ использования этой функции на практике:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i) = MonthName(Month(Range(" A " & i)))
Next i

End Sub

Этот конкретный макрос находит название месяца для каждой даты в диапазоне A2:A11 и отображает эти названия в соответствующих ячейках диапазона C2:C11 .

В следующем примере показано, как использовать этот синтаксис на практике.

Пример: как получить название месяца из даты с помощью VBA

Предположим, у нас есть следующий набор данных в Excel, который содержит информацию о продажах компании в разные даты:

Предположим, мы хотим получить название месяца для каждой ячейки в столбце «Дата» .

Для этого мы можем создать следующий макрос:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)))
Next i

End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

Обратите внимание, что столбец C содержит название месяца для каждой соответствующей даты в столбце A.

Если вы хотите вместо этого вернуть сокращенное название месяца, вы можете использовать необязательный аргумент True в функции MonthName следующим образом:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)), True )
Next i

End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

Столбец C теперь содержит сокращенное название месяца для каждой соответствующей даты в столбце A.

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

Как сравнить даты в VBA
Как преобразовать строку в дату в VBA
Как рассчитать дни между двумя датами в VBA