시나공

시험에

나오는 것만

공부한다!

Private Sub cmd조회_Click()

    스위치 = 0

    참조행 = 3

    For Each aa In Range("a4:a8")

        참조행 = 참조행 + 1

    If aa.Value = txt고객번호.Value Then

        txt고객번호.Value = Format(Cells(참조행, 1), ">&&&&&")

        txt종류명.Value = Cells(참조행, 2)

        txt기본요금.Value = Format(Cells(참조행, 3), "#,###")

        txt사용시간.Value = Cells(참조행, 4)

        txt청구금액.Value = foramt(Cells(참조행, 5), "#,###")  format 으로 수정하세요.

        스위치 = 1

        Exit For

    End If

    Next

    If 스위치 = 0 Then

        MsgBox "고객번호가 잘못되었습니다.", vbOKOnly

    ElseIf Cells(참조행, 5) >= 150000 Then

        MsgBox "고객번호 " & txt고객번호.Value & "님은 추가할인 대상입니다.", vbOKOnly

    End If

End Sub

수정후 확인 해 보세요. 

좋은 하루 되세요.