Excel VBA案例之制作送货单

由于之前的一直在讲Excel VBA的基础知识，所以没有讲解什么案例，因为基础概念和知识如果不先讲的话，直接讲案例是无法理解的，今天就利用之前讲过的知识为大家做一个小程序。生活中无时无刻不在开单与被开单，以往的方式是全部手动，随着自动化技术的崛起，这些手动的活也不再完全依靠人力来完成了，今天给大家演示一个小案例，用VBA做一个送货单程序：

如上图，除了一些我们必须手动填写的信息，如收货地址、商家地址外，其他的地方均使用VBA代码实现自动化完成。用动画演示一下：

下面给出三个按钮的源码：

1、Sub 金额合计()

Dim i As Integer

Dim k As Integer

Dim s

For i = 6 To 13

If Range("b" & i) <> "" And Range("c" & i) <> "" And Range("d" & i) <> "" Then

For k = 1 To Len(Range("d" & i) * Range("e" & i) * 100)

Cells(i, 13 + k - Len(Range("d" & i) * Range("e" & i) * 100)) = Mid(Range("d" & i) * Range("e" & i) * 100, k, 1)

Next

End If

s = s + Range("d" & i) * Range("e" & i)

Next

Range("f14") = s

End Sub

2、Sub 重新开单()

Range("b2:b3").ClearContents

Range("g2:g3") = ""

Range("b15") = ""

Range("b16").ClearContents

Range("f16").ClearContents

Range("b6:n13").ClearContents

Range("f14") = ""

Range("g2") = Now * 100000

Range("g2").NumberFormatLocal = "G/通用格式"

Range("g3") = Date

End Sub

3、Sub 打印此单()

Range("a1:m17").PrintPreview

End Sub