책 내용 질문하기
프로시저궁금증입니다.
도서
2016 시나공 컴퓨터활용능력 1급 실기
페이지
367
조회수
178
작성일
2016-03-17
작성자
탈퇴*원
첨부파일
2. '통신요금' 시트에서 다음과 같은 작업을 수행하고 저장하시오.
<답>
Private Sub cmd조회_Click()
i = 0
a = 3
For Each aa In Range("a4:a8")
a = a + 1
If aa.Value = txt고객번호 Then
txt고객번호 = Format(Cells(a, 1), ">&&&&&")
txt종류명 = Cells(a, 2)
txt기본요금 = Format(Cells(a, 3), "#,###")
txt사용시간 = Cells(a, 4)
txt청구금액 = Format(Cells(a, 5), "#,###")
i = 1
Exit For
End If
Next
If i = 0 Then
MsgBox "고객번호가 잘못되었습니다."
ElseIf Cells(a, 5) >= 150000 Then
MsgBox "고객번호 " & txt고객번호 & "님은 추가할인 대상입니다."
End If
End Sub
전부 하나하나 설명해주세요...ㅎㅎ
답변
2016-03-18 14:36:28
375페이지 코드 설명에 코드에 번호가 있고 설명이 있습니다.
이 설명을 확인 해 보시고 이해가 안가는 부분만 다시 질문 해 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
-
*2016-03-18 14:36:28
375페이지 코드 설명에 코드에 번호가 있고 설명이 있습니다.
이 설명을 확인 해 보시고 이해가 안가는 부분만 다시 질문 해 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.