엑셀 vba 자동매크로 숫자만 입력하기-VBA매크로

 

메뉴 상단 Worksheet - Change

SubPrivate Sub Worksheet_Change(ByVal Target As Range) On Error GoTo gtEnd If Not Intersect(Target, Columns("b:d")) Is Nothing Then     If Target.Row >= 2 And Target.Row <= 7 Then         If VBA.IsNumeric(Target) Then             If Target < 0 Then                 MsgBox "0~100 사이의 점수를 입력하세요."                 Target = ""                 Target.Select             Else                 If Target > 100 Then                     MsgBox "0~100 사이의 점수를 입력하세요."                     Target = ""                     Target.Select                 Else                 End If             End If         Else             MsgBox "숫자 입력"             Target = ""             Target.Select         End If     End If End If gtEnd : End Sub