重要通知

今天起此號(hào)不再更新（目前是過(guò)度期，維持一個(gè)星期，請(qǐng)各位朋友移駕下面公眾號(hào)）：

微信公眾號(hào)搜索：Excel實(shí)用VBA解析

或掃描下面二維碼圖片關(guān)注：

今天開(kāi)始我們一起來(lái)拆分一個(gè)簡(jiǎn)單的進(jìn)銷存軟件，這是前幾天公眾號(hào)的一個(gè)朋友托我做的，現(xiàn)在拿來(lái)和大家一起分享。（此章講解視頻已經(jīng)發(fā)布，請(qǐng)關(guān)注新公眾號(hào)后觀看）

首先準(zhǔn)備好表單：

共4張sheets，分別是（出貨，進(jìn)貨，庫(kù)存，商品）

不知道細(xì)心的朋友注意到?jīng)]有，在商品表里有一列是（輔助列），就是前幾天我們講的輸入拼音首字母時(shí)候回逐步提示信息，這里就不著重講它了，如果不懂得朋友可以查看之前的文章。

首先我們要做的就是在（出庫(kù)）和（入庫(kù)）2張表里面分別插入一個(gè)日期選擇框、文字輸入框和兩個(gè)下拉選擇框，分別命名為（sj）（textbox1）（listbox1）（listbox2）。注：由于是在兩張表里面，所以控件名稱可以是一樣的。

控件的位置和大小不用管，因?yàn)楹竺嫖覀儠?huì)在代碼中進(jìn)行設(shè)置。但是初始每個(gè)控件的Visible必須設(shè)置為False，也就是說(shuō)這些控件不顯示。

然后打開(kāi)vbe，新建模塊，聲明幾個(gè)公用變量，后續(xù)代碼使用。

Public bm, sl, rq

bm：聲明編號(hào)

sl：聲明數(shù)量

rq：聲明日期

當(dāng)然，模塊里面別忘記寫提示用的代碼：

Public Function LChin(Str As String) As Variant

    On Error Resume Next

    Str = StrConv(Str, vbNarrow)

    If Asc(Str) > 0 Or Err.Number = 1004 Then LChin = ''

    LChin = WorksheetFunction.VLookup(Str, [{'吖','a';'八','b';'嚓','c';'咑','d';'鵽','e';'發(fā)','f';'猤','g';'鉿','h';'夻','j';'咔','k';'垃','l';'嘸','m';'旀','n';'噢','o';'妑','p';'七','q';'囕','r';'仨','s';'他','t';'屲','w';'夕','x';'丫','y';'帀','z'}], 2)

End Function

這個(gè)代碼之前講過(guò)的，這里不再獒述！