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