Vba: como obter o nome do mês a partir da data

Você pode usar a função MonthName no VBA para obter o nome do mês a partir de uma data no Excel.

Esta é uma maneira comum de usar esta função na prática:

 SubGetMonthName ()

Dim i As Integer

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

End Sub

Esta macro específica encontra o nome do mês para cada data no intervalo A2:A11 e exibe esses nomes nas células correspondentes no intervalo C2:C11 .

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como obter o nome do mês a partir da data usando VBA

Suponha que temos o seguinte conjunto de dados no Excel que contém informações sobre as vendas realizadas por uma empresa em datas diferentes:

Suponha que queiramos obter o nome do mês para cada célula na coluna Data .

Podemos criar a seguinte macro para fazer isso:

 SubGetMonthName ()

Dim i As Integer

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

End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que a coluna C contém o nome do mês para cada data correspondente na coluna A.

Se você quiser retornar o nome abreviado do mês, poderá usar um argumento True opcional na função MonthName da seguinte maneira:

 SubGetMonthName ()

Dim i As Integer

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

End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A coluna C agora contém o nome abreviado do mês para cada data correspondente na coluna A.

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

Como comparar datas em VBA
Como converter string para data em VBA
Como calcular dias entre duas datas em VBA