Excel VBA userform texbox入力エラー

Question

私は、ユーザーフォームのテキストボックスに書かれているものをアクティブなセルに入力するマクロを作成しようとしています。しかし、コードのその部分を実行しようとすると、エラー438が発生します。デバッグで表示される部分のサンプルを次に示します。

With Selection.Font 
.Bold = True 
End With 
ActiveCell.Value = UserForm2.Controls("TextBox" & i).Caption 
ActiveCell.Offset(1, 0).Select 

Answer 1

エラー438は、オブジェクトがプロパティまたはメソッドをサポートしていないことを意味します。 Textbox.Captionは存在しません。 ActiveCell.Value = UserForm2.Controls("TextBox" & i).Value または ActiveCell.Value = UserForm2.Controls("TextBox" & i).Text