위와같이 고객번호를 입력하고 조회를 누르면 해당 고객번호의 내용이 떠야 하는데
위와 같이 그 다음 회원의 정보가 뜨네요
프로시저는 답지 그대로 적었습니다.
캡쳐만으로는 판단하기 힘드실거같아 파일첨부 같이 합니다.
빠른답변 부탁드려요
Private Sub cmd조회_Click()
스위치 = 0
참조행 = 3
For Each aa In Range("a3:a8") -> 이부분에 오류가 있네요. a3이 아니라 a4 로 사용하셔야 합니다. 수정후 확인해 보세요.
참조행 = 참조행 + 1
If aa.Value = txt고객번호 Then
txt고객번호 = Format(Cells(참조행, 1), ">&&&&&")
txt종류명 = Cells(참조행, 2)
txt기본요금 = Format(Cells(참조행, 3), "#,###")
txt사용시간 = Cells(참조행, 4)
txt청구금액 = Format(Cells(참조행, 5), "#,###")
스위치 = 1
Exit For
End If
Next
If 스위치 = 0 Then
MsgBox "고객번호가 잘못되었습니다."
ElseIf Cells(참조행, 3) >= 150000 Then
MsgBox " 고객번호 " & txt고객번호 & "님은 추가할인 대상입니다."
End If
End Sub
Private Sub cmd종료_Click()
[a1].Font.Bold = True
Unload Me
End Sub
-
*2016-12-15 12:06:05
Private Sub cmd조회_Click()
스위치 = 0
참조행 = 3
For Each aa In Range("a3:a8") -> 이부분에 오류가 있네요. a3이 아니라 a4 로 사용하셔야 합니다. 수정후 확인해 보세요.
참조행 = 참조행 + 1
If aa.Value = txt고객번호 Then
txt고객번호 = Format(Cells(참조행, 1), ">&&&&&")
txt종류명 = Cells(참조행, 2)
txt기본요금 = Format(Cells(참조행, 3), "#,###")
txt사용시간 = Cells(참조행, 4)
txt청구금액 = Format(Cells(참조행, 5), "#,###")
스위치 = 1
Exit For
End If
Next
If 스위치 = 0 Then
MsgBox "고객번호가 잘못되었습니다."
ElseIf Cells(참조행, 3) >= 150000 Then
MsgBox " 고객번호 " & txt고객번호 & "님은 추가할인 대상입니다."
End IfEnd Sub
Private Sub cmd종료_Click()
[a1].Font.Bold = True
Unload MeEnd Sub