시나공

시험에

나오는 것만

공부한다!

질문 1.

물품코드에서 ss1111, 2,000을 선택하고 확인을 눌렀을 때

cells(a,3) = cmb물품코드.column(0) 라고 쓰면 안되나요?

답과 생긴건 완전 다른데 결과는 같아요.(문제에서 말한 조건도 충족한 거 같구요.)

질문 2.

Cells(a, 4) = cmb물품코드.Column(1) 에서는 단가를 숫자로 출력하던데

txt박스처럼 val(txt어쩌고) 할 필요 없나요?

ex) val (cmb물품코드.Column(1))

-------------------------------------------

Private Sub cmd입력_Click()

a = [a3].Row + [a3].currnetregion.Rows.Count

Cells(a, 1) = txt구매자

Cells(a, 2) = cmb등급

cells(a, 3) = cmb물품코드.Column(0)

Cells(a, 4) = cmb물품코드.Column(1)

Cells(a, 5) = Val(txt수량)

Cells(a, 6) = Val(txt수량) * Cells(cmb물품코드.ListIndex + 5, 9)

End Sub

이렇게 만들었더니 오류가 뜨네요.

(오류 고쳤습니다. 결과 똑같네요.)

-------------------------------------------

Private Sub cmd입력_Click()

    참조행 = cmb물품코드.ListIndex + 5

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

    Cells(입력행, 1) = txt구매자

    Cells(입력행, 2) = cmb등급

    Cells(입력행, 3) = Cells(참조행, 8)

    Cells(입력행, 4) = Cells(참조행, 9)

    Cells(입력행, 5) = Val(txt수량)

    Cells(입력행, 6) = Cells(입력행, 4) * Cells(입력행, 5)

End Sub

이건 정답지에 있는 식입니다.