시나공

시험에

나오는 것만

공부한다!

Private Sub cmd입력_Click()
참조행 = lst품목.ListIndex
입력행 = [a1].Row + [a1].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(cmb날짜)
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

Private Sub cmd종료_Click()
['기타작업-1'!A1] = "판매 현황"
Unload Me

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
cmb날짜.AddItem Date - 5
cmb날짜.AddItem Date - 4
cmb날짜.AddItem Date - 3
cmb날짜.AddItem Date - 2
cmb날짜.AddItem Date - 1
cmb날짜.AddItem Date

    cmb문구점.RowSource = "h9:h12"
    lst품목.RowSource = "i9:j12"
End Sub 

위와 같이 프로시저를 입력하였는데 콤보상자에서 날짜 목록이 다르게 나옵니다.

어디서 잘못 썼는지 몰라서 질문올립니다.