OfficeTutor 365

엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    궁그미 (dock159) 추천:  2 파일:     조회:  1530 제목:   setfocus에 대한 질문입니다.
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요. 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 a As Integer     a = Val(b.Text)     If a = 0 Then         answer3 = MsgBox("내용을 입력하십시오", vbOKOnly)         b.SetFocus         Exit Sub     Else     End If 이렇게 코드를 작성했으나... b텍스트박스로 이동하질 않습니다... 이유가 뭔지 잘모르겠습니다... 황기성님 말씀대로 이벤트 프로시져에 따라 반응이 다르다면.... b텍스트박스에 아무것도 입력이 되지 않으면 다음 텍스트 박스로 절대로 넘어가선 안됩니다. 방법이 없을까요? 님들의 많은 지식부탁드립니다... 항상 행복한 미소가 함께하길.... 　 [불량 게시물 신고]
화두 a= val(b.text) if a= 0 then 위 두구문을 if len(b.text) = 0 then '입력값이 없으면. 으로 해보시길(테스트를 안해봐서 그렇지만..) 07-23 (14:57) ⓧ삭제 ■신고 궁그미 안되네요.... 왜 안될까요? exit프로시져를 사용하는데.... 07-23 (15:32) ⓧ삭제 ■신고 MsgBox 혹시여.. 여기 위에 있는거.. 누락 말씀 하시는 거에여? 비어 있는 곳에다가 커서를 갖다 된다는거..같은데.. 07-23 (15:50) ⓧ삭제 ■신고 MsgBox 누락 갖은 경우에는여..  if 문으로 한 누락.. if textbox1.value = "" then textbox1.value = "" msgbox "내용을 입력 하십시오." , vbOKOnly elseif textbox2.value = "" then textbox2.value = "" msgbox "내용을 입력 하십시오." , vbOKOnly elseif textbox3.value = "" then textbox3.value = "" msgbox "내용을 입력 하십시오." , vbOKOnly end if  누락 같은 경우애는.. 이것 말고도.. 07-23 (16:04) ⓧ삭제 ■신고 MsgBox for each 도 있는뎅..  Private Sub CommandButton1_Click() Dim tbox As Control      For Each tbox In UserForm1.Controls          If TypeName(tbox) = "TextBox" And Len(tbox) = 0 Then              MsgBox tbox.Name              tbox.SetFocus              End If         Next tbox    end Sub for each 가 더 간단 하지만염..^^: 그런데.. 궁그미 님이 말하신게.. 누락이 아니라면.. 제가 잘못 이해 한것 같네염 (..a) 앞에서 답변 하실때 부터 아셨듯이.. 질문이나.. 답변 같이.. 이해를 잘 못 해서여.ㅠ.ㅠ;; 07-23 (16:06) ⓧ삭제 ■신고
작성일 : 2003-07-23(14:50) 최종수정일 : 2003-07-23(14:50)