二：手动更改单号与录入保存
现在，我们要实现以下的功能
1. A2单元格点击一次，单号自动 1（为了防止长时间不操作忘记自己有没有更改单号）
2. 同时该单元格还可以自由编辑（允许用户改成其它格式单号）
可编辑单号
新建一个物料表，格式如下
物料表
3. 物资名称下面的10个空格，可以点击触发页面跳转事件，跳到物料表，去选择需要的物料后自动返回到本页。
点击区域
由于都是鼠标事件触发的，以上功能全部写在一起：
鼠标点击事件监听
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
点击A2单元格后自动递加单号
If Target.Column = 1 And Target.Row = 2 Then 第1列第2行就是A2
清空输入表，单号改变表示要做新单了
Range("B8:F17") = "" B8-F17内容清空
Range("H8:H17") = "" H8-H17内容清空
Cells(8, 2).Value = "以下空白" 没有内容则自动填写以下空白字样
Range("a5").Select
下面自动填写日期
dates = Application.Text(Now(), "yyyy/mm/dd")
格式化日期为字符串
d = Replace(dates, "/", "")
获取单号里的日期
d0 = Mid(Range("a2").Value, 9, 8)
获取当前单号尾缀
st = Right(Range("a2").Value, 3)
判断是否为数字
If IsNumeric(Right(st, 1)) Then
日期相同尾缀自动 1
If d