本文以一个中药库信息为为例,利用Excel VBA编程来根据用户输入的要出库的药品名称和数量信息来自动生成出库单,并且药品库存信息也会根据出库数量来自动更新,当出库数量库存数量时,会出现提示信息来告知用户库存不足等。
首先我们来看一下具体实现效果:
具体VBA代码及解释如下图所示:
Sub StockManagementSystem()
'定义药品名称变量,输出数量变量及出口药品现在总库存数量
Dim MedName As String
Dim MedDeliveryNum As Long
Dim AllStockNum As Long
'定义单一记录的出库药品数量及库数组变量
Dim StockNum As Long
Dim i As Long
Dim k As Long
Dim Arrstock As Variant
'得到要出库的药品名称及出库数量
With Sheets("delivery&#