我們需要一個采購單，能實現(xiàn)部分自動功能
1. 單號自動填寫，以“采購”首字母“CG”開頭+當(dāng)天日期+三位自動編號，保證單號唯一不能有任何重復(fù)
2. 自動填寫填單日期
3. 建立供應(yīng)商供應(yīng)信息并能快捷插入
4.能保存過往單據(jù)內(nèi)容
5. 能復(fù)盤過往單據(jù)
一：單據(jù)格式
單據(jù)格式
1. 先實現(xiàn)紅色色部分功能
打開文檔，就要自動填寫單號和日期；要打開文檔即執(zhí)行VBA，那么代碼就得寫在THISWORKBOOK頁面
準(zhǔn)備：
a> 建立一個叫“采購單”的工作表
b> 右擊工作表下方名稱部位-》查看代碼
c> 雙擊“thisworkbook”彈出的代碼頁輸入下列代碼
文檔頁面
Private Sub workbook_open()
'下面自動填寫日期，格式為年/月/日
dates = Application.Text(Now(), "yyyy/mm/dd")
Sheets("采購單").Range("e6").Value = "日期:" & dates
'格式化日期為字符串，取消反斜杠年/月/日變?yōu)槟暝氯?/p>
d = Replace(dates, "/", "")
'獲取單號里的日期，A2表格內(nèi)容的第9個字符往后8位長度
d0 = Mid(Sheets("采購單").Range("a2").Value, 9, 8)
'獲取當(dāng)前單號尾綴，A2內(nèi)容字符從右數(shù)起三位數(shù)
st = Right(Sheets("采購單").Range("a2").Value, 3)
'判斷是否為數(shù)字，不是數(shù)字就出錯了
If IsNumeric(Right(st, 1)) Then
'日期相同尾綴自動+1，表示今天你第二次打開準(zhǔn)備錄第二張單，每打開一次都自動加1
If d <> d0 Then
nst = 1
Else
'輸出數(shù)字類型
nst = CInt(st)
nst = nst + 1
End If
'格式化，讓數(shù)字保持為三位數(shù)
nst = Format(nst, "000")
'如果原來已經(jīng)有單號，則自動填寫更改后的單號
Sheets("采購單").Range("a2").Value = "采購方單號:" & "CG" & d & nst
Else
'如果原來A2格是空白的，則自動填寫為001的單號
Sheets("采購單").Range("a2").Value = "采購方單號:" & "CG" & d & "001"
End If
End Sub
好了，這篇文章的內(nèi)容發(fā)貨聯(lián)盟就和大家分享到這里，如果大家網(wǎng)絡(luò)推廣引流創(chuàng)業(yè)感興趣，可以添加微信：80709525 備注：發(fā)貨聯(lián)盟引流學(xué)習(xí)； 我拉你進(jìn)直播課程學(xué)習(xí)群，每周135晚上都是有實戰(zhàn)干貨的推廣引流技術(shù)課程免費分享！
