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

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

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

글 수 822

숫자 문자 비교검색

VBA 조회 수 2912 추천 수 0 2013.09.02 16:52:53
[레벨:4]열심회원 *.218.33.33

TextBox에 들어가는 값이 문자인지 숫자인지 구별을하고싶은데요.ㅠㅠ


만약 TextBox에 숫자가 들어간다면    "문자를 입력하여주세요!" 라고 msgbox 가 뜨고


문자가 들어간다면    "숫자를 입력해 주세요!"라고 msgbox가 뜨게 하고싶습니다.!! 어떻게 해야할지 모르겟어서 질문올립니다!

이 게시물을...
첨부
엮인글 :
http://abyul.com/zbxe/123559/c8a/trackback
목록

댓글 '2'

profile

[레벨:30]아별

2013.09.03 22:11:37
*.104.126.21

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

이번 질문으로 아래 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

도움이 되셨기를.. ^^
첨부

[레벨:4]열심회원

2013.09.04 09:54:41
*.218.33.33

아 그렇군요 .ㅠㅠ 전 아스키코드를 찾아봐서 아스키코드를 이용햇는데 더욱 간단한 방법이 잇엇군요!!


항상 감사합니다. 잘쓰겟습니다!!

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 47607
821 엑셀일반 엑셀파일 비밀번호 단체 설정 가능한가요? [30] [레벨:4]쟈니 2012-06-18 54698
820 엑셀일반 회원만 질문을 올릴 수 있습니다. [레벨:30]아별 2010-09-21 33547
819 기타 [필독] 질문시.. 엑셀 파일 첨부, 윈도우버전과 엑셀버전 표기, 답변 받으면 피드백 댓글 꼭 달기.. [레벨:30]아별 2011-08-11 27065
818 엑셀일반 행높이 최대치 조절 가능할까요? _ Excel 사양 및 제한 [3] [레벨:6]파이스 2012-06-01 15332
817 엑셀 웹커리에서 URL 바꾸기 매크로 질문 [1] [레벨:1]밥사마 2009-09-01 13781
816 엑셀- sumif와 sumcol 혼용사용에 대해서 (급해요) [1] 아놔 2009-07-31 13239
815 엑셀일반 엑셀에서 사진 고정하는 방법 없을까요? [3] [레벨:3]빛의행운아 2012-07-30 12929
814 엑셀수식 3차 방정식 풀기. [1] [레벨:3]rynoel 2012-06-13 11172
813 제가 해외 사우디에서 파일을 받았는데 글씨가 계속 깨짐니다. file [1] [레벨:0]홍콩중국홍콩 2010-05-10 11143
812 또 다시 질문이 있어서 왔습니다. (일자별 관리시트에서 이전 시트 값(전일 잔액 등) 자동 불러오기) file [1] [레벨:3]harcz 2010-05-22 11098
811 엑셀에서 지수값 계산하기 [1] [레벨:2]양다원 2009-07-21 10688
810 셀색깔별로 합계를 내고 싶습니다. file [1] [레벨:1]지민 2010-04-09 10686
809 피벗테이블 피벗테이블에서 (비어있음)을 보이지 않게 할 수 있나요? file [레벨:1]농구경제박사 2016-02-25 10595
808 VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select imagefile [1] [레벨:5]눈물바다 2009-08-27 10483
807 엑셀일반 csv import 관련 문의 [3] [레벨:1]지살 2016-02-23 10464
806 엑셀일반 셀 안에 삽입된 이미지의 정가운데(가로+세로)정렬 방법이 궁금합니다. [6] [레벨:6]파이스 2011-10-11 10422
805 엑셀에서 복사할 때 행 및 열넓이까지 그대로 복사하는 방법 [7] [레벨:2]만쥬 2010-12-07 10414
804 엑셀일반 엑셀 특정 자리 숫자 내림 올림 하는 방법이 뭔가요?? [레벨:1]키모스 2016-10-28 10323
803 엑셀 주식형 차트 민 2009-08-17 10197
목록
쓰기