시나공

시험에

나오는 것만

공부한다!

Private Sub cmd등록_Click()

If 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) = Val(txt수량)

Cells(입력행, 5) = Val(txt단가)

Cells(입력행, 6) = Format(Val(txt수량) + Val(txt단가), "currency")

Cells(입력행, 7) = cmb결재형태

txt제품명 = ""

txt수량 = ""

txt단가 = ""

cmb결재형태 = ""

End If

End Sub

Private Sub UserForm_Initialize()

txt판매일자 = Date

Ist제품목록.RowSource -"i4:i13"  - 을 = 으로 수정하세요.   Ist에서 I를  L 로 작성하세요. 

cmb결재형태.AddItem " 현금"

cmb결재형태.AddItem " 카드"

cmb결재형태.AddItem " 어음"

End Sub