마지막 계산문제에서 프로시저를 책에서 하라는대로 입력하고 실행시켜보는데
'424 런타임 오류가 발생했습니다. 개체가 필요합니다.'라고 계속 나타납니다.
어느 부분이 잘못된건가요?
Private Sub cmd입력_Click()
참조행 = lst품목.ListIndex
입력행 = [a1].Row + [a1].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(cmd날짜)
Cells(입력행, 2) = cmd문구점
Cells(입력행, 3) = lst품목.List(참조행, 0)
Cells(입력행, 4) = lst품목.List(참조행, 1)
Cells(입력행, 5) = Val(txt수량)
Cells(입력행, 6) = Cells(입력행, 4) * Cells(입력행, 5)
End Sub
Private Sub UserForm_Initialize()
cmd날짜.AddItem Date - 5
cmd날짜.AddItem Date - 4
cmd날짜.AddItem Date - 3
cmd날짜.AddItem Date - 2
cmd날짜.AddItem Date - 1
cmd날짜.AddItem Date
cmb문구점.RowSource = "h9:h12"
lst품목.RowSource = "i9:j12"
End Sub
-
관리자2020-08-18 09:49:31
Private Sub cmd입력_Click()
참조행 = lst품목.ListIndex
입력행 = [a1].Row + [a1].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(cmd날짜)
Cells(입력행, 2) = cmd문구점
Cells(입력행, 3) = lst품목.List(참조행, 0)
Cells(입력행, 4) = lst품목.List(참조행, 1)
Cells(입력행, 5) = Val(txt수량)
Cells(입력행, 6) = Cells(입력행, 4) * Cells(입력행, 5)
End Sub
Private Sub UserForm_Initialize()
cmd날짜.AddItem Date - 5
cmd날짜.AddItem Date - 4
cmd날짜.AddItem Date - 3
cmd날짜.AddItem Date - 2
cmd날짜.AddItem Date - 1
cmd날짜.AddItem Date
cmb문구점.RowSource = "h9:h12"
lst품목.RowSource = "i9:j12"
End Sub
빨간색으로 표시된 부분이 cmd 로 작성되었는데 cmb로 작성하셔야 합니다.컨트롤 이름에 오류가 있어서 오류 메시지가 표시된 것입니다.좋은 하루 되세요.