Excel vbaのcontrolsコマンドでエラーが発生しました

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 

UPDATE：

を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 

のForm2：

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 

のForm2：

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 

Form2が

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