[VBA기초] 요일 구하기

VBA 요일 구하기

엑셀을 다루다보면 날짜에 해당하는 요일을 구해야 할 때가 있습니다.

해당 날짜의 요일이 뭔지 금방 찾아주는 VBA 코드입니다.

Sub 요일구하기()
    Dim rngC As Range
    Dim rngAll As Range
       
    Application.ScreenUpdating = False    '// 화면 업데이트 (일시) 중지
    Set rngAll = Range([B2], Cells(Rows.Count, "B").End(3))  '//B2 셀부터 값이 있는 B열마지막 셀까지 범위
   
    For Each rngC In rngAll

   '// rngC는 현재 셀, rngAll 은 B열 구간범위, rngC가 for문으로 하나 하나 증가하면서 실행

        'rngC.Offset(, 1) = Application.WorksheetFunction.Text(rngC, "ddd")    '// 영문으로 날짜 반환
        rngC.Offset(, 1) = Format(rngC, "aaa")  '// 월, 화, 수 의 날짜 구하기
    Next rngC
   
    Set rngAll = Nothing  '// 변수 초기화
End Sub