Question

请教高手关于Excel中的VBA用户窗体的两个问题！

1、用户窗体——文字框中所填的数据到哪里去了？如何调用？另外我想将填的数据放到Excel的单元格中，请教高手这样的代码。
例：
我想在这个框里填入数据后，我可以调用，请问代码是什么样的？

2、用户窗体——复合框中如何将我需要选择的数据放到里边，使人可以选择
例：
我想在里边增加“年、月”两个选项，请问代码是怎样的？





Answer 1

直接用窗体做的你需要将窗体调出，视图——工具栏——窗体，点按有关窗体，建立窗体，在窗体上点右键，控制，输入数据源和单元格链接区域就可以了。

追问

你好！
我右击以后没有出现“控制”这个栏位。另外我用的是2010的Excel。
不知道这应该怎么处理？

Answer 2

第一个，你要知道你的文本框的名字，比如文本框名字为TextBox1
那么，调用方法为TextBox1.Text
比如把文本框的内容赋值给变量s
s=TextBox1.Text
第二个，假设复合框名字是ComboBox1，那么给它添加选项

ComboBox1.AddItem ("年")
ComboBox1.AddItem ("月")

追问

你好！

1.第1个问题的反应：

我按照你所讲的输入了以下代码：

运行后在文本框里输入5，出来的结果却

2.第2个问题，我同样输入了代码：

Private Sub ComboBox1_Change()

 ComboBox1.AddItem ("年")

 ComboBox1.AddItem ("月")

End Sub

但是在复合框里却没有出现“年”、“月”这两个值，复合框里什么也没有。

麻烦你再帮看看问题出在哪？非常感谢！

追答

很明显，你这个是对于对象还没搞清楚。
ComboBox1_Change事件，响应的是ComboBox1的改变，同理TextBox4_Change事件，是对TextBox4更改的响应
第一个问题，s=TextBox4_Change.Text改成s=TextBox4.Text
第二个问题，在其它sub过程中写代码吧。
比如，放个ActiveX按钮，在按钮点击事件中写
Private Sub CommandButton1_Click()
ComboBox1.AddItem ("年")
ComboBox1.AddItem ("月")
End Sub

Answer 3

呃，举个例子好了
1：在名为 textbox1 的文本框内输入数据，点击 名为commandbutton1 的按钮 后把输入的数据赋值给A1单元格

Private Sub CommandButton1_Click()
range("a1")=textbox1.text
End Sub
当然 你也可以用TEXTBOX 的事件来完成该项操作，比如EXIT,CHANGE 等
2：可用楼上那样逐条赋值，也可以这样
combobox1.list()=array("年","月")

追问

你好！
1.第1项我按你所说方式已OK，我同时有一个问题，若我要把所编用户窗体需封装成exe文件，那是否需要在代码里增加workbooks.add一段代码，使软件在运行的时候先临时建立一个excel表并在内计算，再把临时的excel文档删掉？
2.我按照你所说的用combox1.list()=arrar("年","月")一段代码，但是测试的时候在复选框内没有出现所需要的"年","月"这两个字样。
请指教，非常感谢！

追答

你在VB里建的代码？这个我就不太清楚了，EXE封装正在研究，哈哈，
建议是：可以用数组代替，计算出结果，这样可能运算会快点，而且代码会相对简洁一点

第二个 你要确保添加选项的代码己经运行，如果你是用USERFORM，建议在加载窗体的时候就写入代码.比如
Private Sub UserForm_Initialize()
combobox1.list()=array("年","月") '或者也可以用楼上的ADDITEM方法
end sub

追问

首先非常感谢你的帮助！
其次，最后一个问题，我更趋向于你说提的在加载窗体的时候写入代码，但是我不知道上文中提到的那一段代码应该写在哪个位置，因为我把窗体已经设计好了，不知道在哪里可以把代码写入到加载的部分。
是否可以提供这一步骤。

追答

窗点好了以后，双击窗体，会出现代码窗口，默认为
Private Sub UserForm_Click()
End Sub

这时在右上角选择Initialize事情
会出代码如下

Private Sub UserForm_Initialize()
End Sub

把加载选项的代码粘贴到中间就好