판매수량과 판매단가를 곱해서 판매금액을 내는 데 판매수량은 표시가 안되는데 판매금액은 맞게 표시가 되내요. 왜 그럴까요?
Private Sub cmd판매입력_Click()
If txt소비자명 = "" Or txt판매수량 = 0 Then
MsgBox "소비자명이나 판매수량을 입력하세요."
Else
r = [b2].Row + [b2].CurrentRegion.Rows.Count
Cells(r, 2) = Date
Cells(r, 3) = txt소비자명
Cells(r, 4) = cmb품목
Cells(r, 5) = cmb품목.List(cmb품목.ListIndex, 1)
Cells(r, 6) = txt판매수랑
Cells(r, 7) = txt판매수량 * Cells(r, 5)
End If
End Sub
오타가 있네요. 판매수량 으로 변경한 후 확인 해 보세요.
좋은 하루 되세요.
"-
*2014-04-25 15:04:04
Private Sub cmd판매입력_Click()
If txt소비자명 = "" Or txt판매수량 = 0 Then
MsgBox "소비자명이나 판매수량을 입력하세요."
Else
r = [b2].Row + [b2].CurrentRegion.Rows.Count
Cells(r, 2) = Date
Cells(r, 3) = txt소비자명
Cells(r, 4) = cmb품목
Cells(r, 5) = cmb품목.List(cmb품목.ListIndex, 1)
Cells(r, 6) = txt판매수랑
Cells(r, 7) = txt판매수량 * Cells(r, 5)
End If
End Sub오타가 있네요. 판매수량 으로 변경한 후 확인 해 보세요.
좋은 하루 되세요.
"