프로시져 대로 입력을 했는데 안되네요.. 파일첨부했네요
여기서 사진올리는거 jpg로해도 안되네요....
프로시져대로 입력했는데
1.컴파일오류입니다.
함수또는변수가필요합니다
라고 뜨네요..
입력하라는대로 했는데.. 뭐가 문젠건지... 파일 같이 올려요
2.424런타임오류가 발생했습니다.. 라고 뜨네요...
3.기출 3번 기출 4번역시도 424런타임오류입니다..
파일첨부는 1. 2. 만했습니다.
뭐가 틀렸는지 모르겠어요 ㅠㅠ
두개다 정답파일에 프로시져를 붙혀넣기하면 또 되거든요??
근데 정답파일 프로시져랑 제가 책보고 작성한 프로시져랑 차이점이 없는데 왜 저런 오류가 나오는
걸까요... 혹시 띄어쓰기 하나도 정교하게 해야하나요? 줄을 맞추는 기준이라도 있는건가요..?ㅠㅠ
1. Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "i3:i13"
cmb결재형태.AddItem "현금"
cmb결재형태.AddItem "카드"
cmb결재형태.AddItem "어음"
End Sub
Additem = "현금"
으로 사용하셔서 제대로 지정 되지 않은 것입니다. = 은 제외하고 사용하세요.
2. 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) txt결재방식 으로 입력하셨네요. 제 로 변경하여 사용하세요.
스위치 = 1
Exit For
End If
Next
If 스위치 = 0 Then
MsgBox = "조건에 일치하는 자료가 없습니다."
End If
End Sub
Unload Me
End Sub
Private Sub UserForm_Initialize()
.AddItem "관리자" 여기도 additem 뒤에 = 이 있었습니다.
.AddItem "일반사용자"
.AddItem "고객"
End With
lst등급종류.RowSource = "i4:i8"
End Sub
3. 424 런타임 오류는 오타에 의해 발생하므로 오타가 없는지 다시 확인 해 보시기 바랍니다.
-
*2013-01-11 07:30:57
1. Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "i3:i13"
cmb결재형태.AddItem "현금"
cmb결재형태.AddItem "카드"
cmb결재형태.AddItem "어음"
End SubAdditem = "현금"
으로 사용하셔서 제대로 지정 되지 않은 것입니다. = 은 제외하고 사용하세요.
2. 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) txt결재방식 으로 입력하셨네요. 제 로 변경하여 사용하세요.
스위치 = 1
Exit For
End If
Next
If 스위치 = 0 Then
MsgBox = "조건에 일치하는 자료가 없습니다."
End If
End SubPrivate Sub cmd종료_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()With cmb조회구분 cmb조회구분인데 문으로 작성하셔서 수정한 것이구요.
.AddItem "관리자" 여기도 additem 뒤에 = 이 있었습니다.
.AddItem "일반사용자"
.AddItem "고객"
End With
lst등급종류.RowSource = "i4:i8"
End Sub
3. 424 런타임 오류는 오타에 의해 발생하므로 오타가 없는지 다시 확인 해 보시기 바랍니다.좋은 하루 되세요."