重要通知今天起此号不再更新（目前是过度期，维持一个星期，请各位朋友移驾下面公众号）： 微信公众号搜索：Excel实用VBA解析 或扫描下面二维码图片关注： 今天开始我们一起来拆分一个简单的进销存软件，这是前几天公众号的一个朋友托我做的，现在拿来和大家一起分享。（此章讲解视频已经发布，请关注新公众号后观看） 首先准备好表单： 共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 这个代码之前讲过的，这里不再獒述！ |
|
|
