1번 질문.
콤보상자에 "현금", "카드", "어음" 목록을 추가하는 것까지 성공했는데
폼을 실행해서 셋 중 하나를 선택하고 등록 버튼을 누르면
'결재형태를 선택하시오'라고 메시지박스가 뜹니다.
2번 질문.
우선 메시지박스를 주석처리하고 실행하면
성공적으로 데이터가 입력되지만
데이터 변경 시 설정한 "바탕체"와 "14" 사이즈로 입력되지 않습니다.
그리고 판매날짜에는 년월일이 아닌 현재시간이 입력됩니다.
Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf txt결재형태 = "" Then -> cmb결재형태로 변경하세요.
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
아래 그림과 같이 입력된 값이 바탕체, 14포인트로 변경 되었습니다.
좋은 하루 되세요.
-
관리자2020-02-28 20:51:11
Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf txt결재형태 = "" Then -> cmb결재형태로 변경하세요.
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
아래 그림과 같이 입력된 값이 바탕체, 14포인트로 변경 되었습니다. 좋은 하루 되세요.