一个关于EXCEL VBA 子程序控件参数传递的问题

2024-12-26 10:32:10

推荐回答（2个）

回答1：

为什么要用子过程呢,看你的要求根本没必要啊
假设窗体名称为userform1, 文本框的名称分别是textbox1,textbox2,textbox3 ,按钮的名称是commandbutton1
在textbox3中输入textbox1或者textbox2,然后点击按钮

按钮的代码如下
Private Sub CommandButton1_Click()
On Error GoTo Err
If TextBox3.Value <> "" Then UserForm1.Controls(TextBox3.Value).Value = "AAA"
Exit Sub
Err:
MsgBox "输入的文本框控件名称错误或不存在!"
End Sub

建议你把textbox3 用列表框代替,然后添加textbox名称到列表.下拉选择即可,这样可以避免输入文本框错误,从而省去错误处理代码同时也简化了.操作.

回答2：

将TextBox改为 MSForms.textBox