VBA userform_Get追加のテキストボックスからセルへの値

Question

ここではVBA Userformでどのように対処するのか分かりません。

私は、ユーザーがテキストボックスを追加し、そのテキストボックスに値を入力できるユーザーフォームを持っています。それぞれの追加のテキストボックスからそれらの値をコピーして別々のセルにコピーしたいと思います。これは私がやったことですが、動作しません。

ラベルは

Private Sub CommandButton2_Click() 
    x = Me.Controls.count + 1 
    Set xx = Controls.Add("Forms.TextBox.1", "CtrlName" & x) 
    xx.Top = x * 20 - 108 
    xx.Left = 396 
    xx.Width = 288 
End Sub 

ラベル

Private Sub CommandButton1_Click() 
    Dim count as Integer 
    Dim i as Integer 
    count = Me.Controls.count - 9 ("I have 9 other controls, so need to - 9 to count the number of textboxes") 
    For i = 1 To count 
    Cells(i, 1).Select 
    ActiveCell.Value = Me.Controls("TextBox" & i).Value 
    Next i 
End Sub 

"をcell_THISにテキストボックスから値を取得しますが、機能していない" 問題はMe.Controls ("TextBox" & I).Valueある "ONEが働いているclicking_THIS後にテキストボックスを追加します"。ここではさまざまなことを試みましたが、それでも解決できませんでした。

Answer 1

あなたは値がMe.Controls("CtrlName" & (i + 9)).Valueであることを意味しているたものの名前ではなく、TextBox1などを使用しなければならないなど、あなたのテキストボックスCtrlName10、CtrlName11を、命名しました。

ヒント：というエラーボックスに指定されたオブジェクトが見つかりませんボタンDebugを押してください。これにより、問題のあるステートメントが強調表示された状態でコードエディタに戻り、[表示]メニューの[ローカル]ペインで変数を調べることができます。