728x90
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
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| [VBA기초] 숫자만 추출 (1) | 2014.05.23 |
|---|---|
| [VBA기초] 영문자만 추출 (0) | 2014.05.22 |
| [VBA기초] 엑셀메모 한꺼번에 지우기 (0) | 2014.04.30 |
| [VBA기초] 열 자동 맞춤 (0) | 2014.03.26 |
| [VBA] 글꼴 변경 (0) | 2014.03.09 |
Link2Me