視頻講解：第一次錄制視頻，大家不要見(jiàn)笑！

今天開(kāi)始我們一起來(lái)拆分一個(gè)簡(jiǎn)單的進(jìn)銷存軟件，這是前幾天公眾號(hào)的一個(gè)朋友托我做的，現(xiàn)在拿來(lái)和大家一起分享。

首先準(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)然，模塊里面別忘記寫(xiě)提示用的代碼：

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ò)的，這里不再獒述！