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