무조건 따라하기에서
무조껀 따라했는데
프로시져 실행이 안되요
섹션18문제 졔가 작성한거 파일로 첨부했어요 ^_^
머가 잘못되었는지 도통 모르겠어요
Private Sub cmd등록_Click()
If txt제품명 = "" Then
ElseIf txt수량 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf txt결재방법 = "" Then
MsgBox "결재방법을 입력하시오."
Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Row.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단가 = ""
txt결재형태 = ""
End Sub
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count - 1
입력행 = 기준행위치 + 기준범위행수
txt판매일자 = Cells(입력행, 2)
txt제품명 = Cells(입력행, 3)
txt수량 = Cells(입력행, 4)
txt단가 = Cells(입력행, 5)
End Sub
Unload Me
End Sub
txt제품명 = lst제품목록
End Sub
End Sub
txt판매일자 = Date
lst제품목록.RowSource = "i4:i13"
cmb결재형태.AddItem "현금"
cmb결재형태.AddItem "카드"
cmb결재형태.AddItem "어음"
End Sub
-
*2012-02-02 06:19:11
Private Sub cmd등록_Click()
If txt제품명 = "" Then
ElseIf txt수량 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf txt결재방법 = "" Then
MsgBox "결재방법을 입력하시오."
Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Row.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단가 = ""
txt결재형태 = ""
End SubPrivate Sub cmd조회_Click()
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count - 1
입력행 = 기준행위치 + 기준범위행수
txt판매일자 = Cells(입력행, 2)
txt제품명 = Cells(입력행, 3)
txt수량 = Cells(입력행, 4)
txt단가 = Cells(입력행, 5)
End SubPrivate Sub cmd종료_Click()
Unload Me
End SubPrivate Sub lst제품목록_Click()
txt제품명 = lst제품목록
End SubPrivate Sub UserForm_Click()
End SubPrivate Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "i4:i13"
cmb결재형태.AddItem "현금"
cmb결재형태.AddItem "카드"
cmb결재형태.AddItem "어음"
End Sub
빨간색으로 표시 한 부분이 모두 cmd 로 작성되어 있네요. cmb로 작성하셔야 폼이 실행됩니다.수정해 보세요."