엑셀 VBA 특정한 범위에 숫자만 입력하도록 자동으로 작동하는 매크로

유튜브 채널

http://bit.ly/위드석 

엑셀VBA 파일 다운로드

 

잘못된값을입력하면지워주는매크로엑셀파일.xlsm

0.09MB

Private Sub Worksheet_Change(ByVal Target As Range)     '모듈 매크로가 아니라     '해당 시트에 입력하는 매크로     'VBE 상단의 Worksheet 선택후 Change를 선택하면     '자동으로 입력되는 Private Sub~임. On Error GoTo ErrCode     '예상치 못한 상황이 발생하면     'Errcode(만든이름)로 이동! If Not Intersect(Target, Columns("d:g")) Is Nothing Then            '교집합(타겟, 열범위)            'Not ~ Nothing : 이중부정으로 긍정이다.            '즉 교집합이 하나라도 있다면~!!                 If Not Intersect(Target, Rows("2:13")) Is Nothing Then             '교집합(타겟, 행범위)         'MsgBox "범위 안에서 값 변경"                  If VBA.IsNumeric(Target) Then             'vba함수 숫자인지 판단해주는 함수             '빈셀을 숫자 0으로 역시 판단함.         Else             '숫자가 아니면             MsgBox "숫자만 입력 가능!"             Target = ""                 '타겟셀을 다시 지워버림.             Target.Select         End If     Else     End If Else End If ErrCode:     '아래줄이 End Sub로 조용히 끝나버림! End Sub