メニュー

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

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

2015/04/24 11:08|タグ:ユーザーフォームグッジョブ表示 21

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

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

 

ページ移動

関連エントリー

コメント

  • コメントはまだありません。

コメント登録

登録フォーム
名前
メールアドレス
URL
コメント
投稿キー(スパム対策に、投稿キー を半角で入力してください。)

ユーティリティ

新着コメント

Twitter

サイト内検索

ページ上部へ