1、实例：【编写开单代码，运行后清除物料明细和供应商，同时入库单号改变？】
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4、会弹出模块编辑窗口！
5、在代码编辑窗口输入以下代码：
Sub 开单()
Dim edc As Range
[b2] = "TH" & Format(Now(), "ymdhms")
Set edc = Cells.Find("*", , xlValues, , xlByRows, xlPrevious)
Range([a5], edc.Offset(6)).Clear
[e2] = ""
End Sub
6、在工作表界面，【开发工具】菜单下，点击【插入】按钮，填加一表单，与开单代码相关联，并命名为【开单】！
7、点击【开单】按钮！物料明细、供应商被清除，入库单号改变了！
