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

작성자:  

 궁그미 (dock159)

추천:  2
파일:     조회:  2725
제목:   황기성님 질문이 있습니다....
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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...): 

* 아래줄에 질문을 작성하세요 >>
Dim strTemp As String
Dim strNew As String
With 제조번호
        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

이 코드는 님께서 저에게 조언을 주신겁니다....
그런데... 제가 해석이 안됩니다....
죄송합니다만.... 해석을 좀 부탁드릴까 합니다...
번거로우시겠지만.... 이해해주시고 부탁드립니다. 		　
[불량 게시물 신고]  
황기성사실...제가 코딩했다면, 위와 같이 만들지 않았을 것입니다. 되도록 쉽게 if 함수를 이용해 처리하는 예를 보여드린 것인데...해석이 아니 된다고 하시니^^;;

If Len(strTemp) = 12 Then '12글자가 입력되어야 하니까
        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

그럼...행운이 있으시길...!		07-15 (09:05)
ⓧ삭제 ■신고
궁그미황기성님 설명 너무 감사합니다...^^
그렇다면...
이런 코드도 만들수 있을거 같은데....
텍스트박스안에 "-"표시를 양식형식으로 넣어놓는 코드말입니다.
****"-"****"-"** ("*"는 빈여백을 나타낸것입니다.)이런식으로 표시해놓고
"-"앞과뒤에는 숫자만 들어가게 하는 코드...숫자의 수는 정해져 있고요
정해진 숫자가 오버되면 "-"뒤에 자연히들어가게하는 코드말입니다.
텍스트+라벨+텍스트+라벨+텍스트로 표현해보긴 했지만...
그보다 텍스트 하나로 표시하면 더 좋을거 같아서 문의 드립니다.

만약 있다면 예제코드와 설명좀 부탁드리겠습니다.
어제도 보셨지만 제가 코드를 전혀 몰라서 부탁드리겠습니다.		07-15 (10:53)
ⓧ삭제 ■신고
황기성엑셀VBA에서는 입력마스크를 지원하지 않습니다. 대신 Change이벤트에서 제어하세요...

그럼...행운이 있으시길...!		07-15 (13:08)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-07-15(09:00)
최종수정일 : 2003-07-15(09:00)