请教窗体引用参数表的问题，我不记得如何做了。

win1use2 · 发表于 2016-6-23 10:22

本帖最后由 win1use2 于 2016-6-23 11:10 编辑

我做了一个进销存EXCEL表，做了一个窗体，然后希望可以引用参数表中的数据，进行选择。但不记得如何做了。希望高手们教教我。

蓝桥玄霜 · 发表于 2016-6-23 11:29

请见代码。

win1use2 · 发表于 2016-6-23 11:46

本帖最后由 win1use2 于 2016-6-23 13:36 编辑

蓝桥玄霜发表于 2016-6-23 11:29
请见代码。

谢谢蓝板主。不过现在问题越来越多了。我在论坛中复制了daley版主的代码，利用他做的水电单做一个进销存，但没定义错误的越来越多，能帮我看看是什么问题？

win1use2 · 发表于 2016-6-23 16:10

蓝桥玄霜发表于 2016-6-23 11:29
请见代码。

蓝老师，我将你发给我的代码输进去之后，不能运行。是什么问题呀？

蓝桥玄霜 · 发表于 2016-6-24 08:18

少抄了一个字母t
Arr = Sheets("参数表").[a1].CurrentRegion

win1use2 · 发表于 2016-6-24 08:53

蓝桥玄霜发表于 2016-6-24 08:18
少抄了一个字母t
Arr = Sheets("参数表").[a1].CurrentRegion

谢谢蓝版主，再问一下，代码中：ComboBox7.Text = Format(Now, "yyyymmdd-hhmmss") & "-" & Format(.Range("A" & Rows.Count).End(xlUp).Row, "00000")，如果我想改成手动输入，不要自动输入的话，我是不是应将其变更为ComboBox7.Text=“”但我将所有的ComboBox7.Text 都替换成“”之后，变成不能输入了。不知是什么原因。

蓝桥玄霜 · 发表于 2016-6-25 09:23

如果想改成手动输入，就不要用change事件，
可以用
Private Sub ComboBox7_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

win1use2 · 发表于 2016-7-6 11:58

蓝桥玄霜发表于 2016-6-25 09:23
如果想改成手动输入，就不要用change事件，
可以用
Private Sub ComboBox7_KeyDown(ByVal KeyCode As MSF ...

谢谢蓝版主，现在可以了。谢谢。

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

[2007] 请教窗体引用参数表的问题，我不记得如何做了。