[기초] 조건문 (if, Select Case 구문)

 

if나 slect case 문은 주어진 조건에 해당하는 구문을 실행시키는 조건문입니다.

 

if 문

 

기본문법형식은 다음과 같습니다.

 

If 조건식 Then

   "조건이 True일 경우 실행 할 구문"

Else

   "조건이 False일 경우 실행 할 구문"

End If

 

[ 예제1 ]

A1 셀에 입력된 값을 읽어 85보다 크거나 같으면 메세지를 띄우는 간단한 예제입니다.

 

Sub if_Click()

    If [A1] >= 85 Then MsgBox "성적은 우 입니다."
End Sub

 

 

[ 예제2 ]

성적값을 입력받아 성적등급을 판정하여 팝업으로 띄워주는 간단한 예제입니다.

실행 결과는 85점울 입력하였으므로 해당조건에 맞는 "우"를 팝업으로 띄우게 됩니다.

 

Sub 성적확인()

 

     ' 점수를 입력받을 정수형식의 변수정의

     Dim Point As Integer

 

     ' InputBox("띄울메세지") 명령어를 통해 입력팝업창을 띄워 입력된 값을  Point변수에 넣는다.

     Point = InputBox("영어성적을 입력하세요.")   

 

     'Point 값이 각 조건에 해당하는지 비교하고 맞는 조건일 경우 해당등급값을 팝업으로 띄운다.

     If Point >= 90 Then

        MsgBox "수"

     ElseIf Point >= 80 And Point < 90 Then   '<== 입력된 85는 이곳 비교조건에 해당하므로 아래 "우"값을 띄운다.

        MsgBox "우"

     ElseIf Point >= 70 And Point < 80 Then

        MsgBox "미"

     ElseIf Point >= 60 And Point < 70 Then

        MsgBox "양"

     ElseIf Point < 60 Then

        MsgBox "가"

     End If

 

End Sub

 

 

Select Case 문

 

If 문과 마찬가지 주어진 조건의 판정 결과에 해당하는 구문을 실행시키는 조건 분기문입니다.

 

[ 기본문법은 다음과 같습니다. ]

Select Case 조건

Case

수행 코드(조건 1이 참일 경우 수행)

Case 조건 2

수행 코드(조건 2가 참일 경우 수행)

Case Else

수행 코드(어느 조건도 만족하지 않을 경우 수행)

End Select

 

 

[ 예제 ]

if구문과 기능은 같으며 if문과 같이 InputBox명령어를 통해 띄워진 팝업창에서 값을 입력받아 해당조건에 해당하는 구문을 실행시키는 간단한 예제입니다. 

 

Sub 성적확인()

 

     ' 점수를 입력받을 정수형식(Integer)의 변수정의

    Dim Point As Integer

     ' InputBox("띄울메세지") 명령어를 통해 입력팝업창을 띄워 입력된 값을  Point변수에 넣는다.

    Point = InputBox("영어성적을 입력하세요.")

 

     'Point 값에 해당하는 조건문을 찾아 실행킨다. 

    Select Case Point

    Case Is >= 90

       MsgBox "수"

    Case 80 To 89   ' <= 85는 여기조건에 해당하므로 MsgBox "우"가 실행되어 "우"를 띄운다.

       MsgBox "우"

    Case 70 To 79

       MsgBox "미"

    Case 60 To 69

       MsgBox "양"

    Case Else

       MsgBox "가"

    End Select

 

End Sub