Como usar eomonth em vba (com exemplo)

Você pode usar o método EoMonth em VBA para retornar o último dia do mês para uma determinada data.

Aqui está uma maneira comum de usar esse método na prática:

 Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = Application.WorksheetFunction.EoMonth(Range(" A " & i), 0)
    Range(" C " & i).NumberFormat = " m/d/yyyy "
Next i

End Sub

Esta macro específica encontra o último dia do mês para cada data no intervalo A2:A11 e exibe essa data na célula correspondente no intervalo C2:C11 .

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

Exemplo: como usar EoMonth em 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 encontrar o último dia do mês para cada data na coluna A e exibi-lo na coluna C.

Podemos criar a seguinte macro para fazer isso:

 Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = Application.WorksheetFunction.EoMonth(Range(" A " & i), 0)
    Range(" C " & i).NumberFormat = " m/d/yyyy "
Next i

End Sub

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

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

Observe que usamos a propriedade NumberFormat para exibir valores de data em um formato de data reconhecível na coluna C, em vez de números de série, que é o formato padrão no Excel.

Observe também que o último argumento do método EoMonth especifica o número de meses adiantados ou atrasados a ser usado ao calcular o último dia do mês.

Neste exemplo, usamos o valor 0 para especificar que queremos encontrar o último dia do mês atual.

No entanto, poderíamos, em vez disso, usar um valor -1 para especificar que queremos encontrar o último dia do mês anterior ou um valor 1 para especificar que queremos encontrar o último dia do mês seguinte.

Nota : Você pode encontrar a documentação completa do método EoMonth em VBA aqui .

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