엑셀 vba 유효성 검사와 유저폼

엑사남님의 vba 27강 따라하기

엑셀 파일 다운로드

vba유효서검사와 유저폼.xlsm

0.02MB

Sub Like_Test() Dim intText, i As Integer Dim intHan, intEngL, intEngS, intNum, intEtc As Integer     Range("e5:j5").ClearContents     intText = Len(Range("C5"))     Range("E5") = intText     For i = 1 To intText         If Mid(Range("C5"), i, 1) Like "[ㄱ-흫]" Then             intHan = intHan + 1         ElseIf Mid(Range("C5"), i, 1) Like "[A-Z]" Then             intEngL = intEngL + 1         ElseIf Mid(Range("C5"), i, 1) Like "[a-z]" Then             intEngS = intEngS + 1         ElseIf Mid(Range("C5"), i, 1) Like "[0-9]" Then             intNum = intNum + 1         Else             intEtc = intEtc + 1         End If     Next i Range("F5") = intHan Range("G5") = intEngS Range("H5") = intEngL Range("I5") = intNum Range("J5") = intEtc End Sub

Sub 단추1_Click()     UF_NameInput.Show End Sub

Private Sub CommandButton1_Click() Dim LenNM, i As Integer     LenNM = Len(Me.TB_Name)     For i = 1 To LenNM         If Mid(Me.TB_Name, i, 1) Like "[ㄱ-흫]" Then         Else             MsgBox "한글만 입력가능합니다." & vbCr & "다시 입력하세요."             Me.TB_Name = ""             Me.TB_Name.SetFocus '텍스트박스 선택             Exit Sub         End If     Next i          MsgBox "한글 이름 검증 완료!!" & vbCr & "창을 닫습니다."     Me.Hide End Sub