vba收发货系统（用VBA实现发货单的半自动化）

公司发货单还是手动填数据的,而且每天都要做,有时候发货多的时候可能要做十几个项目的发货单.

因为是手动填数据,所以经常忘记填一些数据或者填错一些数据,这样容易受到公司处罚.好吧,其实我们提供基础数据,让计算机自己填写数据,这样不容易填漏或填错.

那就写吧,用VBA来实现吧,下例呢有些计算还用了函数,来计算各分类的总计,其实用VBA也一样可以实现,只是函数有函数的好处,可以运行在手机上,因为经常要用手机看表格,这里呢就懒得写代码了,里面的"什么什么",其实是一个人名,这里就用什么什么代替吧.

Sub 发货单() Dim i, j As Integer Dim k As Worksheet Application.ScreenUpdating = False For Each k In Sheets i = Sheets(k).Range("I65536").End(xlUp).Row j = Sheets(k).Range("B65536").End(xlUp).End(xlUp).Row If Sheets(k).Name Like "*自留*" Then Sheets(k).Activate Workbooks("qsw工作表.xlsm").Sheets("百宝箱").Range("K10:Q12").Copy With Sheets(k) .Range("D5") = Format(Date, "yyyy-mm-dd") .Range("D" & j) = "什么什么" & Format(Date, "yyyy-mm-dd") .Range("K10").PasteSpecial Paste:=xlPasteAll .Range("K12:Q12").AutoFill Destination:=Range("K12:Q" & i), Type:=xlFillDefault End With Else With Sheets(k) .Range("D5") = Format(Date, "yyyy-mm-dd") .Range("D" & j) = "什么什么" & Format(Date, "yyyy-mm-dd") End With End If Next Application.ScreenUpdating = True End Sub