视频讲解：第一次录制视频，大家不要见笑！
今天开始我们一起来拆分一个简单的进销存软件，这是前几天公众号的一个朋友托我做的，现在拿来和大家一起分享。
首先准备好表单：
共4张sheets，分别是（出货，进货，库存，商品）
不知道细心的朋友注意到没有，在商品表里有一列是（辅助列），就是前几天我们讲的输入拼音首字母时候回逐步提示信息，这里就不着重讲它了，如果不懂得朋友可以查看之前的文章。
首先我们要做的就是在（出库）和（入库）2张表里面分别插入一个日期选择框、文字输入框和两个下拉选择框，分别命名为（sj）（textbox1）（listbox1）（listbox2）。注：由于是在两张表里面，所以控件名称可以是一样的。
控件的位置和大小不用管，因为后面我们会在代码中进行设置。但是初始每个控件的Visible必须设置为False，也就是说这些控件不显示。
然后打开vbe，新建模块，声明几个公用变量，后续代码使用。
Public bm, sl, rq
bm：声明编号
sl：声明数量
rq：声明日期
当然，模块里面别忘记写提示用的代码：
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";"猤","g";"铪","h";"夻","j";"咔","k";"垃","l";"嘸","m";"旀","n";"噢","o";"妑","p";"七","q";"囕","r";"仨","s";"他","t";"屲","w";"夕","x";"丫","y";"帀","z"}], 2)
End Function
这个代码之前讲过的，这里不再獒述！
