1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

[레벨:30]아별

2013.09.03 22:11

열심회원님..
안녕하세요?

이번 질문으로 아래 3가지에 대한 기본 지식을 배우시게 됩니다.
     1. 유저폼의 텍스트박스에 입력되는 값은 기본적으로 문자열로 인식합니다.
     2. VAL()함수를 사용하면 문자열로 저장된 숫자를 숫자 값으로 변환해줍니다.
     3. VAL()함수는 문자열로 저장된 숫자는 숫자로 변환하지만 문자열일 경우 0을 리턴합니다.

입력된 값이 "0"이라면 0은 숫자니까.. 그냥 문자를 입력하라는 메시지를 띄우고..
VAL(입력값)이 0일 경우는 문자열이니까.. 숫자를 입력하라는 메시지를 띄웁니다.
그외의 경우는 숫자를 입력한 경우니까.. 문자를 입력하라는 메시지를 띄웁니다.

끝~

Private Sub TextBox1_AfterUpdate()
    Dim sInput As String
    sInput = Me.TextBox1.Value
    
    If sInput = "0" Then
        MsgBox "문자를 입력해주세요!"                   
    ElseIf Val(sInput) = 0 Then
        MsgBox "숫자를 입력해주세요!"
    Else
        MsgBox "문자를 입력해주세요!"
    End If

End Sub 



다운받기 : 숫자문자검색_1.xlsm

도움이 되셨기를.. ^^
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)