시나공

시험에

나오는 것만

공부한다!

안녕하세요

2013년 1회 컴활 1급 실기 기출

엑셀 문제4에 2번에 2번 문제에서

※판매단가는 품목(cmb품목) 콤보상자의 목록을 이용하여 입력하시오.(list, listindex이용.)

Private Sub cmd판매입력_Click()

If txt소비자명 = "" Or Val(txt판매수량) = 0 Then

MsgBox "소비자명이나 판매수량을 인력하세요."

Else

입력행 = [b2].Row + [b2].CurrentRegion.Rows.Count

Cells(입력행, 2) = Date

Cells(입력행, 3) = txt소비자명

Cells(입력행, 4) = cmb품목

Cells(입력행, 5) = cmb품목.List(cmb품목.ListIndex, 1)

Cells(입력행, 6) = txt판매수량

Cells(입력행, 7) = txt판매수량 * Cells(입력행, 5)

End If

End Sub

정답은 이건데

저는 밑에 처럼 작성했거든요

Private Sub cmd판매입력_Click()
입력행 = [b2].Row + [b2].CurrentRegion.Rows.Count
참조행 = cmb품목.ListIndex

If txt소비자명 = "" Or Val(txt판매수량) = 0 Then
MsgBox "소비자명이나 판매수량을 입력하세요", vbOKOnly
End If

Cells(입력행, 2) = Date
Cells(입력행, 3) = txt소비자명
Cells(입력행, 4) = cmb품목.List(참조행, 0)
Cells(입력행, 5) = cmb품목.List(참조행, 1)
Cells(입력행, 6) = txt판매수량
Cells(입력행, 7) = Cells(입력행, 6) * Cells(입력행, 5)
End Sub

근데 실행도 되고 첨부한 사진처럼 셀에 내용도 적히는데

이것도 list랑 listindex썼으니까 맞는건가요?

모르겠어요.......ㅠㅠ

답변부탁드립니다!1