vba_08_select case

참고사이트
https://www.youtube.com/watch?v=rBo1MWNXeIU&list=PLb_vgczBBiSQ3RxE4YAzCClKjdHzad23q&index=12

Sub s02_select()
    'dim val01 As Integer '지정 안하면 variant 선언
    Dim result As String
    val01 = Worksheets("sheet2").Cells(3, 3).Value
    Select Case val01
        Case 1
        result = "1 입력하였습니다."
        Case 2
        result = "2 입력하였습니다."
        Case 3
        result = "3 입력하였습니다."
        Case 4
        result = "4 입력하였습니다."
        Case 5
        result = "5 입력하였습니다."
        Case Else
        result = "1~5가 아닙니다"
    End Select
    
    Worksheets("sheet2").Cells(4, 4).Value = result
    
End Sub