【MOS】【Microsoft Office Excel】【マクロ/VBA】ユーザーフォームのテキストボックスにセルの値を表示する方法
- 2015/04/24 11:08
- ユーザーフォーム
- 62
こんなユーザーフォームがあるとします。
ユーザーフォームのオブジェクト名 : UserForm1
テキストボックスのオブジェクト名 : TextBox1
テキストボックスに表示したい値の入っているセルは 「Sheet1」シート の 「A1」セル とする。
ユーザーフォーム表示時に、特定のテキストボックスに指定のセルの値を表示する方法は以下のとおり。
- VBEを起動する。
- フォームの「UserForm1」上で右クリックし、「コードの表示」をクリック。
- 表示されたモジュールに下記の通りコピペする。
Private Sub UserForm_Initialize() '=========================================================== 'フォーム表示時にテキストボックスにセルの値を表示 '=========================================================== '//セルの値を変数に(文字列として)代入 Dim Value_A1 As String Value_A1 = Sheets("Sheet1").Range("A1").Value '//セルの値をテキストボックスに表示 Me.TextBox1.Text = Value_A1 End Sub
注意
プロシージャの UserForm_Initialize の 「UserForm」 部分は、自分の設定したオブジェクト名などに変更しないこと。