二：手動(dòng)更改單號與錄入保存

現在，我們要實(shí)現以下的功能

1. A2單元格點(diǎn)擊一次，單號自動(dòng) 1（為了防止長(cháng)時(shí)間不操作忘記自己有沒(méi)有更改單號）

2. 同時(shí)該單元格還可以自由編輯（允許用戶(hù)改成其它格式單號）

可編輯單號

新建一個(gè)物料表，格式如下

物料表

3. 物資名稱(chēng)下面的10個(gè)空格，可以點(diǎn)擊觸發(fā)頁(yè)面跳轉事件，跳到物料表，去選擇需要的物料后自動(dòng)返回到本頁(yè)。

點(diǎn)擊區域

由于都是鼠標事件觸發(fā)的，以上功能全部寫(xiě)在一起：

鼠標點(diǎn)擊事件監聽(tīng)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

點(diǎn)擊A2單元格后自動(dòng)遞加單號

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 = "以下空白" 沒(méi)有內容則自動(dòng)填寫(xiě)以下空白字樣

Range("a5").Select

下面自動(dòng)填寫(xiě)日期

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

日期相同尾綴自動(dòng) 1

If d