2023. 9. 1. 10:50, 엑셀로 풀어가는 세상
A2:D11범위에 숫자만 입력할 수 있도록 하며, 만약 문자 입력된 경우에는 메세지박스로 안내하는 기능.
VBA창에서 해당 시트(test시트)를 더블클릭
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A:D")) Is Nothing Then
If Target.Row > 1 And Target.Row < 12 Then
If VBA.IsNumeric(Target) Then
Else
MsgBox "숫자로 입력하세요"
Target = ""
Target.Select
End If
End If
End If
End Sub
엑셀 VBA #14 / 셀 범위 선택하기_9 [VBA] - Intersect 실무예제
출처 : 엑셀디자인 유튜버
'엑셀로 풀어가는 세상' 카테고리의 다른 글
| 엑셀 VBA #04 / 셀 하나 선택하기_3[VBA] - Entire속성 이용 (0) | 2023.12.12 |
|---|---|
| 엑셀 VBA #03 / 셀 하나 선택하기_2[VBA] - End속성 이용 (0) | 2023.12.12 |
| 엑셀 VBA #02 / 셀 하나 선택하기_1[VBA] (0) | 2023.12.12 |
| vba - 셀 범위 선택 (0) | 2023.09.01 |
| vba - resize2 (0) | 2023.08.31 |
| vba - resize1 (0) | 2023.08.31 |
| vba - Scripting.Dictionary (0) | 2023.08.30 |
| 엑셀 - 두 가지 조건 만족하는 셀의 개수 계산 (0) | 2023.08.26 |
Comments, Trackbacks
