[Excel VBA] MsgBox & Username활용 인사하기

VBA를 본격적으로 시작하기에 앞서, 흥미를 일으키기 위해 간단한 MSGBOX를 이용해서

팝업창을 만들어보자,  VBA 신급이신 옆 부서 대리님이 계신데, 만드실 때마다 꼭 활용하시는 구문^_^

 

구문은 매우 간단하다

 

----------------------------------구문-------------------------------------------

Sub 시작인사를해보자() 


If Weekday(Date, vbMonday) > 5 Then Exit Sub '주말일 경우 종료 

MsgBox "출근하셨네요!" & Application.UserName & 사원님 


End Sub 

----------------------------------구문-------------------------------------------

 

먼저 IF문과 WEEKDAY 함수를 쓰면된느데 전혀 어렵지 않다.

IF문은 모두 다 알거고 WEEKDAY 함수는 아래 캡쳐와 같이 WEEKDAY만 입력하면 어떻게 써야 되는지 다 설명이 나온다.

 

WEEKDAY(Date , "시작요일")을 하면 현재 요일을 "시작요일" 부터 계산하여 숫자로 나타내준다

WEEKDAY(Date, vbMonday)로 했을 경우 만약 오늘이 화요일이라면 숫자 "2"를 반환 토요일이라면 "6"을 반환한다

 

구문을 해석해보면,

 

오늘이 주말이 경우 이 코드는 종료한다 (Exit Sub) 

주말이 아닐경우 MSGBIX "인사말"을 호출한다

 

이다.

 

주의 할 점은 IF문의 경우 한줄에 조건을 다 쓰면 END IF 문이 필요 없지만

아래 줄로 넘어갈 경우 (ENTER 키를 쓸경우) END IF 문을 꼭 써줘야 한다.