교재의 정답풀이도 이해는 가지만, 제가 작성한게 안되는건지 잘 모르겠습니다..
꼭 엑셀 시트에서 값을 읽어야 하나요? lst품목 자체에서 참조행을 읽을 순 없나요?
Private Sub cmd입력_Click()
입력행 = [a2].Row + [a2].CurrentRegion.Rows.Count
참조행 = lst품목.ListIndex
If opt카드 = True Then
Cells(입력행, 1) = "카드"
Else
Cells(입력행, 1) = "현금"
End If
Cells(입력행, 2) = txt현금영수증번호
Cells(입력행, 3) = lst품목(참조행, 0)
Cells(입력행, 4) = lst품목(참조행, 1)
Cells(입력행, 5) = txt개수
If opt카드 = True Then
Cells(입력행, 6) = Val(txt개수) * lst품목(참조행, 1) * 0.95
Else
Cells(입력행, 6) = Val(txt개수) * lst품목(참조행, 1)
End If
안녕하세요.
콤보상자나 목록상자에서 항목을 위치를 표시하려면 아래와 같이 List 속성을 사용해야 합니다. 그럼 정상적으로 실행이 됩니다.
입력행 = [a2].Row + [a2].CurrentRegion.Rows.Count
참조행 = lst품목.ListIndex
If opt카드 = True Then
Cells(입력행, 1) = "카드"
Else
Cells(입력행, 1) = "현금"
End If
Cells(입력행, 2) = txt현금영수증번호
Cells(입력행, 3) = lst품목.List(참조행, 0)
Cells(입력행, 4) = lst품목.List(참조행, 1)
Cells(입력행, 5) = txt개수
If opt카드 = True Then
Cells(입력행, 6) = Val(txt개수) * lst품목.List(참조행, 1) * 0.95
Else
Cells(입력행, 6) = Val(txt개수) * lst품목.List(참조행, 1)
End If
즐거운 하루 되세요.
-
관리자2021-03-25 09:43:34
안녕하세요.
콤보상자나 목록상자에서 항목을 위치를 표시하려면 아래와 같이 List 속성을 사용해야 합니다. 그럼 정상적으로 실행이 됩니다.
입력행 = [a2].Row + [a2].CurrentRegion.Rows.Count
참조행 = lst품목.ListIndex
If opt카드 = True Then
Cells(입력행, 1) = "카드"
Else
Cells(입력행, 1) = "현금"
End If
Cells(입력행, 2) = txt현금영수증번호
Cells(입력행, 3) = lst품목.List(참조행, 0)
Cells(입력행, 4) = lst품목.List(참조행, 1)
Cells(입력행, 5) = txt개수
If opt카드 = True Then
Cells(입력행, 6) = Val(txt개수) * lst품목.List(참조행, 1) * 0.95
Else
Cells(입력행, 6) = Val(txt개수) * lst품목.List(참조행, 1)
End If
즐거운 하루 되세요.