今天分享一个[Excel版实用VBA进销存系统（带应收应付,库存利润,客户账单）] ,这是一套比较完备的进销存系统,有客户管理,前台销售出单,入库单,库存计算,主要功能都在主页按钮参见
完整文件 在文章末尾下载
以上按钮均对应一个工作表,内部计算由vba及函数计算完成,一般用户可直接套用,本模板无任何密码保护,工作表及vba代码全部开放,有基础的同学可以自定修改定制
代码用了27个窗体和6个模块,代码总计近万行
有兴趣学习的同学相信也可以学到很多东西
点击[使用说明]即可根据说明使用本表,主要功能界面展示如下
案例文件下载地址如下
请完全无vba基础的同学不要购买 本案例仅供学习参考 不适合直接使用
部分代码如下
Sub SetListBox()Dim wIdx As LongDim endrow As LongDim temp()Dim i As Long, j As LongErase myErase arrRowListBox1.Clearw = ""With ListBox1.ColumnCount = 6 '设置列数For j = 1 To 6w = w & Sheet1.Cells(1, j).Width & ";"Nextw = Left(w, Len(w) - 1).ColumnWidths = w.ColumnHeads = False '是否显示列标题a = Sheet1.Range("A" & Rows.Count).End(xlUp).RowIf a < 2 Then a = 2ReDim Preserve my(1 To 6, 1 To 1)my(1, 1) = Sheet1.Range("A1") 'my(2, 1) = Sheet1.Range("B1") 'my(3, 1) = Sheet1.Range("C1") 'my(4, 1) = Sheet1.Range("D1") 'my(5, 1) = Sheet1.Range("E1") 'my(6, 1) = Sheet1.Range("F1") 'b = 1For i = 2 To aFor j = 1 To 4If Sheet1.Cells(i, j) Like "*" & TextBox1 & "*" Thenb = b + 1ReDim Preserve my(1 To 6, 1 To b)my(1, b) = Sheet1.Range("A" & i)my(2, b) = Sheet1.Range("B" & i)my(3, b) = Sheet1.Range("C" & i)my(4, b) = Sheet1.Range("D" & i)my(5, b) = Sheet1.Range("E" & i)my(6, b) = Sheet1.Range("F" & i)wIdx = wIdx + 1ReDim Preserve arrRow(1 To wIdx)arrRow(wIdx) = iExit ForEnd IfNextNextReDim temp(1 To b, 1 To 6)For i = 1 To bFor j = 1 To 6temp(i, j) = my(j, i)NextNextListBox1.List() = tempEnd WithEnd Sub
案例文件下载地址如下
