VBA入库单改进版(窗体录入的完美例子)

hnhygl · 发表于 2018-6-7 16:46

太强大了!~!

gumption83 · 发表于 2018-6-18 11:03

留下脚印值得学习

gumption83 · 发表于 2018-6-18 18:17

楼主在您的模板上加了几个输入框，数量*单价=金额这块出现错误。楼主是否可以帮忙修改下

平凡大兄 · 发表于 2018-7-1 18:08

学习中，谢谢分享

zhangwg0604 · 发表于 2018-7-26 14:17

各位高手老师帮我修改一下窗体录入的问题可以吗？非常感谢
http://club.excelhome.net/thread-1427108-1-1.html

KKdaichong · 发表于 2018-7-30 23:29

好好好好，怎么只要一个入库单，没有管理界面啊？

34000920 · 发表于 2018-8-30 01:14

工具栏上的加载项

sportings · 发表于 2018-8-30 09:03

谢谢分享啊

一指禅62 · 发表于 2018-8-30 16:37

gumption83 发表于 2018-6-18 18:17
楼主在您的模板上加了几个输入框，数量*单价=金额这块出现错误。楼主是否可以帮忙修改下

类模块代码

Private Sub iText_Change() '数量列文本框内容改变时,金额列=数量*单价
Dim X As Integer '行号
X = Split(Replace(Replace(iText.Name, "Text(", ""), ")", ""), ",")(0)
With InputForm
.Controls("Text(" & X & ",14)") = Val(.Controls("Text(" & X & ",12)")) * Val(.Controls("Text(" & X & ",13)"))
End With
End Sub

复制代码

一指禅62 · 发表于 2018-8-30 16:39

gumption83 发表于 2018-6-18 18:17
楼主在您的模板上加了几个输入框，数量*单价=金额这块出现错误。楼主是否可以帮忙修改下

标题改为标签控件（便于小技巧使文本居中）供参考

类模块文本框求和.rar (17.76 KB, 下载次数: 77)

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