vba进销存录入窗体教程vba进销存录入窗体怎么操作？

Private Sub UserForm_Initialize()
  Me.cboBizType.List = Array("采购入库","销售出库","库存调整")
  Me.cboItem.List = Sheet_商品.Range("A2:A" & Sheet_商品.Cells(Rows.Count,1).End(xlUp).Row).Value
  Me.txtQty.Value = 0: Me.txtPrice.Value = 0
End Sub

Private Sub btnSave_Click()
  If Not ValidateForm Then Exit Sub
  Dim ws As Worksheet: Set ws = Sheet_台账
  Dim r As Long: r = ws.Cells(Rows.Count,1).End(xlUp).Row + 1
  Dim amt As Double: amt = CDbl(Me.txtQty.Value)*CDbl(Me.txtPrice.Value)
  ws.Cells(r,1).Value = GenBillNo()
  ws.Cells(r,2).Value = Now
  ws.Cells(r,3).Value = Me.cboBizType.Value
  ws.Cells(r,4).Value = Me.cboItem.Value
  ws.Cells(r,5).Value = CDbl(Me.txtQty.Value)
  ws.Cells(r,6).Value = CDbl(Me.txtPrice.Value)
  ws.Cells(r,7).Value = amt
  UpdateBalance Me.cboItem.Value, CDbl(Me.txtQty.Value), Me.cboBizType.Value
  Me.lblMsg.Caption = "保存成功"
End Sub

此处仅示意核心流程：初始化、校验、写入、更新结存。完整实现需加入事务与错误处理。

Private Function ValidateForm() As Boolean
  If Me.cboItem.ListIndex < 0 Then MsgBox "请选择商品": Exit Function
  If Not IsNumeric(Me.txtQty.Value) Or CDbl(Me.txtQty.Value) <= 0 Then MsgBox "数量必须大于0": Exit Function
  If Me.cboBizType.Value="销售出库" And Not HasStock(Me.cboItem.Value, CDbl(Me.txtQty.Value)) Then
    MsgBox "库存不足": Exit Function
  End If
  ValidateForm = True
End Function

Private Function GenBillNo() As String
  GenBillNo = "IO" & Format(Now,"yymmddhhmmss") & Int((999-100+1)*Rnd+100)
End Function

我建议把校验与编号独立函数化，便于单元测试与维护。