시나공

시험에

나오는 것만

공부한다!

Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf cmb결재형태 = "" Then
MsgBox "결재형태를 입력하시오."
Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태

txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If <- 빨간색 재 가 모두 제 로 사용되어서 오류가 납니다. 제를 재로 변경하세요.


End Sub

Private Sub cmd조회_Click()
기준범위행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count - 1 <-count에 n 이 빠져있네요.
입력행 = 기준행위치 + 기준범위행수
txt판매일자 = Cells(입력행, 2)
txt제품명 = Cells(입력행, 3)
txt수량 = Cells(입력행, 4)
txt단가 = Cells(입력행, 5)

End Sub

Private Sub cmd종료_Click()
Unload Me

End Sub

Private Sub lst제품목록_Click()
txt제품명 = lst제품목록
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "i4:i13" <- Lst 인데 1st 로 사용하셔서 오류가 나고 "" 로 묶어 범위로 표시하지 않아 오류가 납니다. 수정하세요.
cmb결재형태.List = Array("현금", "카드", "어음")
End Sub

좋은 하루 되세요.