excel vba中的控制命令出错

Question

我创建了2个表单。 form1包含2个文本框，form2包含2个文本框和1个命令按钮。这段代码不起作用。怎么写正确的？

Private Sub CommandButton1_Click()
Dim nom As String
nom = UserForm2.TextBox2
UserForm1.Controls("TextBox" & nom) = UserForm2.TextBox1
End Sub

更新：

Form1中：

Private Sub textbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
form2.show
form2.textbox2=1
End Sub
Private Sub textbox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
form2.show
form2.textbox2=2
End Sub

窗口2：

Private Sub commandbutton_click()
unload me
Dim nom As String
    nom = UserForm2.TextBox2
    UserForm1.Controls("TextBox" & nom) = UserForm2.TextBox1
End Sub

Answer 1

不确定你想要实现什么，但尝试：

Form1中：

Private Sub textbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  form2.show
  form2.textbox2.Value = "1"
End Sub

Private Sub textbox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  form2.show
  form2.textbox2.Value = "2"
End Sub

窗口2：

Private Sub commandbutton_click()
  Dim nom As String
    nom = me.TextBox2.Value
    UserForm1.Controls("TextBox" & nom).Value = UserForm2.TextBox1.Value
  unload me
End Sub

Answer 2

解决了。

Form1中

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload Me
UserForm2.TextBox2 = 1
UserForm2.Show
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload Me
UserForm2.TextBox2 = 2
UserForm2.Show
End Sub


Private Sub UserForm_Initialize()
TextBox1 = Cells(2, 2)
TextBox2 = Cells(3, 2)
End Sub

窗口2

Private Sub CommandButton1_Click()
On Error Resume Next
Dim nom As String
nom = TextBox2
UserForm1.Controls("textbox" & nom) = UserForm2.TextBox1
Cells(nom + 1, 2) = UserForm2.TextBox1
Unload Me
UserForm1.Show
End Sub