컴퓨터활용능력 1급 실기 - 책 내용 질문하기

자료실 온라인 채점 동영상 강좌 커뮤니티

책 내용 질문하기

엑셀 부분 p.230 2번 문제요

도서

[2015] 컴퓨터활용능력 1급 실기

페이지

230

조회수

작성일

2015-02-09

작성자

첨부파일

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

답이랑 똑같이 입력했는데 결재방식이 안 뜨는데 뭐가 잘못됬나요

답변

2015-02-11 00:38:15

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

txt결제방식을 txt결재방식으로 작성하셨네요.

수정한 후 확인 해 보세요.

좋은 하루 되세요.

*

2015-02-11 00:38:15

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

txt결제방식을 txt결재방식으로 작성하셨네요.

수정한 후 확인 해 보세요.

좋은 하루 되세요.
"

파일선택

목록 질문하기 수정하기 삭제