77페이지 4.데이터를 입력하고 <입력>버튼을 클릭하여 결과를 확인하세요
교재 그림에는 A4셀에 날짜가 나오는데 제가 첨부한 그림파일처럼 저는 시간이 나옵니다.
왜그런걸까요?
Private Sub cmd입력_Click()
참조행 = lst품목.ListIndex
입력행 = [a1].Row + [a1].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(cmd날짜)
Cells(입력행, 2) = cmb문구점
Cells(입력행, 3) = lst품목.List(참조행, 0)
Cells(입력행, 4) = lst품목.List(참조행, 1)
Cells(입력행, 5) = Val(txt수량)
Cells(입력행, 6) = Cells(입력행, 4) * Cells(입력행, 5)
End Sub
cmd날짜에서 cmb날짜로 변경 해 보세요.
좋은 하루 되세요.
-
관리자2020-09-08 18:34:57
Private Sub cmd입력_Click()
참조행 = lst품목.ListIndex
입력행 = [a1].Row + [a1].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(cmd날짜)
Cells(입력행, 2) = cmb문구점
Cells(입력행, 3) = lst품목.List(참조행, 0)
Cells(입력행, 4) = lst품목.List(참조행, 1)
Cells(입력행, 5) = Val(txt수량)
Cells(입력행, 6) = Cells(입력행, 4) * Cells(입력행, 5)
End Sub
cmd날짜에서 cmb날짜로 변경 해 보세요.
좋은 하루 되세요.