시나공

시험에

나오는 것만

공부한다!

기출문제 2번을 해설에 따라 코드를 다 입력한 후 실행시키면 424 런타임오류가 발생합니다.

그런데 아무리 봐도 뭐가 잘못된지 모르겠어요..

정답파일에 있는 코드랑 비교해도 찾을수가 없습니다.

제가 쓴 코드는

----------------------

Private Sub cmd고객조회_Click()
스위치 = 0
참조행 = 3
For Each aa In Range("d4:d7")
참조행 = 참조행 + 1
If aa.Value = txt고객명 Then
txt고객등급 = Cells(참조행, 5)
txt매출금액 = Cells(참조행, 6)
txt결제방식 = Cells(참조행, 7)
스위치 = 1
Exit For
End If
Next
If 스위치 = 0 Then
MsgBox "조건에 일치하는 자료가 없습니다."
End If
End Sub

Private Sub cmd종료_Click()
Unload Me
End Sub

Private Sub UserForm_Click()

End Sub
Private Sub UserForm_Initialize()

With cmb조회구분
.AddItem "관리자"
.AddItem "일반사용자"
.Additem "고객"
End With

Ist등급종류.RowSource = "i4:i8"

End Sub

-----------------------

이거고, 정답 코드는 아래와 같더라고요.

제가 쓴 코드와 정답코드가 뭐가 다른지 도저히 모르겠습니다.

전 정답토드랑 똑같이 쓴거 같은데 계속 오류가 나더라고요.

두개 다 복사 붙여넣기 했었는데 정답 코드는 잘 되고...

제가 어디가 틀린건지 좀 찾아서 말해주시면 감사하겠습니다.ㅠㅠ

-----------------------

Private Sub cmd고객조회_Click()
스위치 = 0
참조행 = 3
For Each aa In Range("d4:d7")
참조행 = 참조행 + 1
If aa.Value = txt고객명 Then
txt고객등급 = Cells(참조행, 5)
txt매출금액 = Cells(참조행, 6)
txt결제방식 = Cells(참조행, 7)
스위치 = 1
Exit For
End If
Next
If 스위치 = 0 Then
MsgBox "조건에 일치하는 자료가 없습니다."
End If
End Sub

Private Sub cmd종료_Click()
Unload Me
End Sub

Private Sub UserForm_Click()

End Sub
Private Sub UserForm_Initialize()

With cmb조회구분
.AddItem "관리자"
.AddItem "일반사용자"
.AddItem "고객"
End With

lst등급종류.RowSource = "i4:i8"

End Sub

---------------------------