by
May 17. 2021
25강 - 요일 변경 함수 만들기
날짜함수를 활용해서 연습문제를 풀어 보겠습니다.
문제 : 날짜 함수를 이용하여 오늘의 요일을 받고 해당 요일을 일반적인 월, 화, 수 등으로 표기하는 함수를 만드시오.
Sub F25_01()
Dim WD_T As String
WD_T = W_CHANGE(Weekday(now))
Worksheets(“Sheet1”).Cells(2, 2).Value = WW_T
End Sub
Function W_CHANGE(X) AS String
Select Case X
Case 1
WEEK_MSG = “오늘은 일요일 입니다.”
Case 2
WEEK_MSG = “오늘은 월요일 입니다.”
Case 3
WEEK_MSG = “오늘은 화요일 입니다.”
Case 4
WEEK_MSG = “오늘은 수요일 입니다.”
Case 5
WEEK_MSG = “오늘은 목요일 입니다.”
Case 6
WEEK_MSG = “오늘은 금요일 입니다.”
Case 7
WEEK_MSG = “오늘은 토요일 입니다.”
End Select
W_CHANGE = WEEK_MSG
END Function
핵심은 SELECT CASE문을 활용하여 전달된 요일의 값을 조건으로 대입하고 분기하는 것입니다.
소설처럼 읽고 이해하는 엑셀 VBA 프로그래밍 - YES24
