ユーザーフォームを開く時にラベルの名前を書き換えて表示する方法

エクセル検索

HOME	UserForm	印刷	画面	ファイル	図形
日付・時刻	データ	セル	色	関数	VBA関数

ユーザーフォームに配置したラベル名「Label1」が、フォーム表示と同時に名前や日付などに自動的に表示を変えることができるのをご存知ですか？

方法は簡単で指定したセルの値を読み込ませてから表示させるように、エクセルのVBAコードを書き込むだけなのでご紹介します。

ユーザーフォーム（UserForm)

オリジナルの入力フォームが作れるユーザーフォームの基本表示方法からおさらいです。

ここでは、ユーザーフォームに配置したコマンドボタンにVBAコードを配置することを前提に書きます。

ユーザーフォームを表示する

VBAコード

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

解説

コマンドボタン1がクリックされたら
ユーザーフォーム1を表示する
マクロ記録終了

ユーザーフォームを閉じる

VBAコード

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

解説

コマンドボタン1がクリックされたら
ユーザーフォーム1を閉じる
マクロ記録終了

ユーザーフォームを閉じて別のユーザーフォームを表示する

VBAコード

Private Sub CommandButton1_Click()
Unload UserForm1
UserForm2.Show
End Sub

解説

コマンドボタン1がクリックされたら
ユーザーフォーム1を閉じる
ユーザーフォーム2を表示する
マクロ記録終了

ここまでが基本的なユーザーフォームほ表示・閉じる方法です。

次にユーザーフォームを開く時に、配置されているラベル名をセルの値から読み込んで表示させるようにしましょう。

ユーザーフォームを開く時にラベル名を書き換えて表示

VBAコードは、上から順番にプログラムを実行しますので、UserForm2.Showの前に読み込むVBAコードを書かなくてはいけません。

ここでは、ユーザーフォーム1に配置されたコマンドボタン1を押すと、セルA1の値を読み込んでラベル1を書き換えてからユーザーフォーム2を表示する方法です。

VBAコード

Private Sub CommandButton1_Click()
Unload Me
UserForm2.Label1.Caption = Range(“A1”).Value
UserForm2.Show
End Sub

解説

コマンドボタン1がクリックされたら
表示中のユーザーフォームを閉じる（UserForm1を省略してMe）
ユーザーフォーム2に配置したラベル1の名前をセルA1の値とする
ユーザーフォーム2を表示する
マクロ記録終了

となり、これでユーザーフォーム2が表示されるとラベル名がセルA1の値に書き換えられて表示されます。

ところが、実際にはユーザーフォームに配置されたラベルは1個って事ありませんので、並べて複数書き換えることも可能です。

ラベル書き換えが複数

ここではラベル3つを書き換える方法ですが、これぐらいの数ならばWithステートメントでまとめて書いても平気ですよね。

VBAコード

Private Sub CommandButton1_Click()
Unload Me
With UserForm2
.Label1.Caption = Range(“A1”).Value
.Label2.Caption = Range(“A2”).Value
.Label3.Caption = Range(“A3”).Value
End With
UserForm2.Show
End Sub

解説

コマンドボタン1がクリックされたら
表示中のユーザーフォームを閉じる
ユーザーフォーム2の下記操作をする
ラベル1の名前をセルA1の値とする
ラベル2の名前をセルA2の値とする
ラベル3の名前をセルA3の値とする
Withステートメント
ユーザーフォーム2を表示する
マクロ記録終了

ただ、このラベルの数が30個ぐらいあったら、かなり面倒なので繰り返し処理を使うと楽ですよ。

VBAコード

Private Sub CommandButton1_Click()
Unload Me
For i = 1 To 30
With UserForm2.Controls(“Label” & i)
.Caption = Cells(i, 1).Value
End With
Next i
UserForm2.Show
End Sub

解説