小小出入库管理系统(2012年12月又作了更新)

q329533 · 发表于 2019-8-19 15:09

确实模糊输入很强大，我也想要一个

zjdh · 发表于 2019-8-20 11:10

fang1213 发表于 2019-8-17 13:30
这个登录密码是多少

登录密码到1楼找。

zjdh · 发表于 2019-8-20 11:26

q329533 发表于 2019-8-18 14:53
老师你好，帮我修改下，感谢感谢，好人一生平安！！！

打印是根据单据号码来提取已录入数据的，没了它就无法运行啦！另外查询和库存明细中也有单据号码。

zjdh · 发表于 2019-8-20 11:27

李路遥发表于 2019-8-19 11:38
大神，可以加QQ410733814吗，我想要简化你做的进销存，只需要一个功能就可以。跪求指导

有啥要求在后面跟帖即可，我有空会回复的。

zjdh · 发表于 2019-8-20 11:32

李路遥发表于 2019-8-19 11:43
楼主大神，版主大神，我只需要那个联想逐步提示输入的功能，可以QQ410733814联系我指导下吗？恳请不吝赐 ...

http://club.excelhome.net/thread-747224-1-1.html

yang123F · 发表于 2019-8-30 18:22

老师，能不能把出入库那个，改多几行，弄成一个A4大小。

zjdh · 发表于 2019-8-31 00:00

yang123F 发表于 2019-8-30 18:22
老师，能不能把出入库那个，改多几行，弄成一个A4大小。

不是有12行的吗？

pxw002 · 发表于 2019-8-31 06:38

本帖最后由 pxw002 于 2019-8-31 06:40 编辑

zjdh 发表于 2019-3-6 20:04
已修复小BUG

老大厉害太好了  谢谢！另外请问老师，以下程序中红色字体那句，怎么用  = 来改写  Copy 代码的那一句

Sub MAVBAA()
Sheet2.Cells(6, 2).Resize(500, 5).ClearContents
K = 5
      For n = 2 To 20000
         If Sheet1.Cells(n, 10) = "" And Sheet1.Cells(n, 3) <> "" Then
            K = K + 1
            Sheet1.Cells(n, 2).Resize(1, 4).Copy Sheet2.Cells(K, 2)
            Sheet2.Range("F" & K) = Sheet2.Range("B" & K) & "/" & Sheet2.Range("C" & K) & "/" & Sheet2.Range("D" & K) & "/" & Sheet2.Range("E" & K)
            Sheet1.Cells(n, 10) = "Y"
         End If
      Next
End Sub

yang123F · 发表于 2019-8-31 08:41

zjdh 发表于 2019-8-31 00:00
不是有12行的吗？

12还是少了一点，我单据一般都20多行

yang123F · 发表于 2019-9-2 09:57

老师问一下，期初数据我复制进去，老是出错

		自动登录	找回密码
密码			免费注册

[分享] 小小出入库管理系统(2012年12月又作了更新)