Vba에서 eomonth를 사용하는 방법(예제 포함)

VBA에서 EoMonth 메서드를 사용하여 특정 날짜에 대한 월의 마지막 날을 반환할 수 있습니다.

실제로 이 방법을 사용하는 일반적인 방법은 다음과 같습니다.

 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

이 특정 매크로는 A2:A11 범위에 있는 각 날짜의 월의 마지막 날을 찾고 C2:C11 범위에 있는 해당 셀에 해당 날짜를 표시합니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: VBA에서 EoMonth를 사용하는 방법

서로 다른 날짜에 회사의 매출에 대한 정보가 포함된 다음과 같은 데이터 세트가 Excel에 있다고 가정합니다.

A 열에서 각 날짜에 대한 월의 마지막 날을 찾아 C 열에 표시한다고 가정합니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 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

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

C 열에는 A 열의 각 해당 날짜에 대한 월의 마지막 날이 포함되어 있습니다.

NumberFormat 속성을 사용하여 Excel의 기본 형식인 일련 번호 대신 C열에 인식 가능한 날짜 형식으로 날짜 값을 표시했습니다.

또한 EoMonth 메소드의 마지막 인수는 월의 마지막 날을 계산할 때 사용할 앞뒤 개월 수를 지정합니다.

이 예에서는 이번 달의 마지막 날을 찾도록 지정하기 위해 값 0을 사용했습니다.

그러나 대신 -1 값을 사용하여 이전 달의 마지막 날을 찾도록 지정하거나 값 1 을 사용하여 다음 달의 마지막 날을 찾도록 지정할 수 있습니다.

참고 : VBA의 EoMonth 메서드에 대한 전체 문서는 여기에서 찾을 수 있습니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA에서 날짜를 비교하는 방법
VBA에서 문자열을 날짜로 변환하는 방법
VBA에서 두 날짜 사이의 일수를 계산하는 방법