vba - Excel セルの値を VBA フォームのテキストボックス入力に置き換える

Question

Excel 201 0 で単純なフォームを作成しました。このフォームでは、セル範囲内の 11 個のセルの個々のテキスト文字列値を置き換えたいと考えています。B5 : B15

このコードを使用して、Label Christian Name によってB5参照される最初のセルをテストし、フォーム Christian_Input のテキストボックスにラベルを付けました。A5

Private Sub Christian_Input_Change()

ThisWorkbook.Worksheets("Sheet1").Cells(5, 1) = Christian_Input.Text
End Sub

フォームに新しいテキスト文字列を入力して実行すると、シート 1 の上にフォームが表示され、入力テキストボックスに置換テキストが表示されますが、セル内のテキスト文字列はB5強調表示も置換もされません。

最後に、ファイルを開くと、フォームが表示されません。

誰でも私が行う必要がある変更を教えてください。

score 0 · Accepted Answer

ThisWorkbook.Worksheets("Sheet1").range("B5:B15").value = Christian_Input.Text
ThisWorkbook.Worksheets("Sheet1").range("B5").select

「This Workbook」モジュールに次を追加して、ワークブックを開いたときにフォームを自動起動します (UserFormNameHere をフォームの名前に置き換えます)。

Private Sub Workbook_Open()
    UserFormNameHere.show   
End Sub

vba - Excel セルの値を VBA フォームのテキスト ボックス入力に置き換える