Private Sub cmd등록_Click()
입력행 = Range("b3").CurrentRegion.Rows.Count + 3
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf cmb결재형태 = "" Then
MsgBox "결재형태를 입력하시오."
Else
Cells(입력행, 2) = 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
이렇게 입력하면 금액부분이 통화표시로 나오지않고 회계표시로 나오는데 어떻게 해결하나요?
통화기호를 표시하라는 지시사항이 있으면 currency을 사용해야 합니다.
회계형식으로 나온다면
일단 셀서식을 일반으로 변경한 후 다시 확인 해 보시기 바랍니다.
잘 안되신다면 작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
-
*2015-08-15 10:28:02
통화기호를 표시하라는 지시사항이 있으면 currency을 사용해야 합니다.
회계형식으로 나온다면
일단 셀서식을 일반으로 변경한 후 다시 확인 해 보시기 바랍니다.
잘 안되신다면 작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.