나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 궁그미 (dock159)

추천:  2
파일:     조회:  1811
제목:   텍스트박스의 질문 한개더....
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...): 

* 아래줄에 질문을 작성하세요 >>

텍스트박스에 양식을 지정하고자 합니다....
예를 들면
0000-0000-00
이렇게 4개의 숫자-4개의숫자-2개의숫자
이형식은 불변이기 때문에 만약 이렇게 입력되지 않으면 메세지를 나타내는 방식으로..
어떻게 해결하면 될까요?

조언부탁드립니다.
 		　
[불량 게시물 신고]  
ist공원화일을 첨부해보세요.
건투를...		07-12 (09:54)
ⓧ삭제 ■신고
궁그미제컴퓨터가 이상해서 화일을 첨부할수가 없는데....
첨부파일없이는 알수가 없을까요?		07-12 (10:00)
ⓧ삭제 ■신고
황기성Dim strTemp As String
Dim strNew As String
With Me.TextBox1
        strTemp = .Value
    If Len(strTemp) = 12 Then
        strNew = Application.WorksheetFunction.Substitute(strTemp, "-", "")
        If IsNumeric(strNew) Then
            If Mid$(strTemp, 5, 1) = "-" Then
            ElseIf Mid$(strTemp, 10, 1) = "-" Then
            Else
                MsgBox "형식 오류"
            End If
            MsgBox "올바른 형식입니다!"
        Else
            MsgBox "형식 오류"
        End If
    Else
        MsgBox "형식 오류"
    End If
End With

그럼...행운이 있으시길...!		07-12 (12:22)
ⓧ삭제 ■신고
궁그미황기성님 답변 감사합니다....
그런데 "with개체는 사용자정의형식,object또는 variant이어야합니다."
라는 오류메세지가 나타나는데 이유가 뭔지 알려주셨음 합니다.		07-12 (13:43)
ⓧ삭제 ■신고
궁그미황기성님 그리고 추가적인 질문을 하나 더드릴까 합니다.
텍트트박스에 0000"-"0000"-"00 에서 "-"를 삽입시켜 놓을순 없는겁니까?
풀어서 말씀드리면 "-"표시가 삽입되어 있으면 "-"안치고 숫자만 삽입하는 형식으로 말입니다.
다시한번 조언 부탁드립니다.		07-12 (13:45)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-07-12(09:51)
최종수정일 : 2003-07-12(09:51)