• 虹色ミツバチ
  • freoカスタマイズメモ、テンプレート・プラグイン配布/officeTIPS
検索プラグイン
虹色ミツバチ

> Entry >MOS>Microsoft Office Excel>マクロ/VBA> ユーザーフォームのテキストボックスにセルの値を表示する方法

【MOS】【Microsoft Office Excel】【マクロ/VBA】ユーザーフォームのテキストボックスにセルの値を表示する方法

こんなユーザーフォームがあるとします。

01.png

ユーザーフォームのオブジェクト名 : UserForm1
テキストボックスのオブジェクト名 : TextBox1

テキストボックスに表示したい値の入っているセルは 「Sheet1」シート の 「A1」セル とする。

ユーザーフォーム表示時に、特定のテキストボックスに指定のセルの値を表示する方法は以下のとおり。

  1. VBEを起動する。
  2. フォームの「UserForm1」上で右クリックし、「コードの表示」をクリック。
    02.png
  3. 表示されたモジュールに下記の通りコピペする。
    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」 部分は、自分の設定したオブジェクト名などに変更しないこと。

 

ページ移動

関連記事

ユーティリティ

Twitter

ページ上部へ