• 虹色ミツバチ
  • 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」 部分は、自分の設定したオブジェクト名などに変更しないこと。

 

ページ移動

関連記事

ユーティリティ

新着コメント

2018/07/14|from:ミツ@32877
同人誌在庫・売上管理表配布
2018/07/14|from:ゆり
同人誌在庫・売上管理表配布
2018/06/18|from:あつこ
同人誌在庫・売上管理表配布
2018/06/17|from:ミツ@32877
同人誌在庫・売上管理表配布
2018/06/17|from:あつこ
同人誌在庫・売上管理表配布

Twitter

記事検索

ページ上部へ