프로시저는 처음 접하고 있어서 책보고서 따라서 진행하고 있습니다.
p.246 쪽 기출1번까지는 순조롭게 진행되었는데
기출 2번부터는 오류가 나서 진행이 되지 않고 있습니다.
디버그보면
가입신청 click
Private sub 가입신청_click()
신청양식.Show
End sub
위의 방식으로 뜨는데 이유를 알 수가 없습니다... 해결책 부탁드립니다.(기출2번도 같은 형식으로 오류가 뜹니다.)
해당 부분에 오류가 났지만 해당 부분이 아니라 다른 코드에서 오류가 난 것 입니다.
해당 오류는 오타에 의해 발생하는 경우가 많으므로 오타가 있는지 확인 해 보셔야 합니다.
참조행 = Cmd종류.ListIndex + 7 <= d를 b 로 변경
입력행 = [a1].Row + [a1].CurrentRegion.Rows.Count
Cells(입력행, 1) = Cmd종류 <- cmb종류 로 표시하셔야 합니다.
Cells(입력행, 2) = Cmd지점 <= d를 b 로 변경
Cells(입력행, 3) = Txt성명
Cells(입력행, 4) = Cells(참조행, 9)
Cells(입력행, 5) = Cells(참조행, 10)
Cells(입력행, 6) = Cells(참조행, 11)
Private Sub UserForm_Initialize()
Cmb지점.AddItem "강원"
Cmb지점.AddItem "서울"
Cmb지점.AddItem "영남"
Cmb지점.AddItem "호남"
Cmb지점.AddItem "충청"
Cmb종류.AddItem "건강저축보험"
Cmb종류.AddItem "주택저축보험"
Cmb종류.AddItem "목돈마련보험"
Cmb종류.AddItem "연금저축보험"
Cmb종류.AddItem "무지개저축보험"
Cmd종류.SetFocus <= d를 b 로 변경
End Sub
를 수정해 보세요.
좋은 하루 되세요.
-
관리자2020-10-30 11:12:43
해당 부분에 오류가 났지만 해당 부분이 아니라 다른 코드에서 오류가 난 것 입니다.
해당 오류는 오타에 의해 발생하는 경우가 많으므로 오타가 있는지 확인 해 보셔야 합니다.
참조행 = Cmd종류.ListIndex + 7 <= d를 b 로 변경
입력행 = [a1].Row + [a1].CurrentRegion.Rows.Count
Cells(입력행, 1) = Cmd종류 <- cmb종류 로 표시하셔야 합니다.
Cells(입력행, 2) = Cmd지점 <= d를 b 로 변경
Cells(입력행, 3) = Txt성명
Cells(입력행, 4) = Cells(참조행, 9)
Cells(입력행, 5) = Cells(참조행, 10)
Cells(입력행, 6) = Cells(참조행, 11)
Private Sub UserForm_Initialize()
Cmb지점.AddItem "강원"
Cmb지점.AddItem "서울"
Cmb지점.AddItem "영남"
Cmb지점.AddItem "호남"
Cmb지점.AddItem "충청"
Cmb종류.AddItem "건강저축보험"
Cmb종류.AddItem "주택저축보험"
Cmb종류.AddItem "목돈마련보험"
Cmb종류.AddItem "연금저축보험"
Cmb종류.AddItem "무지개저축보험"
Cmd종류.SetFocus <= d를 b 로 변경
End Sub
를 수정해 보세요.
좋은 하루 되세요.