vba_07_if

cf. 타입이 틀릴경우 RunTimeError 발생

Sub check_numeric()
    If IsNumeric(Worksheets(ActiveSheet.Name).Cells(2, 2).Value) Then
        MsgBox "숫자입니다"
     Else
        MsgBox "숫자가 아닙니다."
    End If
End Sub

Sub pd_check()
    Dim n1 As Integer
    n1 = Worksheets(ActiveSheet.Name).Cells(2, 2).Value
    
    If n1 = 2 Then
        MsgBox "숫자 입력 : " & n1
    
    ElseIf n1 = 3 Then
        MsgBox "숫자 입력 : " & n1
    Else
        MsgBox "2&3이 아닙니다."
        
    End If

End Sub