UserForm_Initializeでセル値を取得してから表示する方法
オリジナル入力フォームとして使えるエクセルVBAのユーザーフォーム。
ラベルやコマンドボタンを複数配置するのは当たりまえですが、顧客リストなどで名前や性別などをいちいちラベル名（Caption）を書き換えるのは面倒なので、ユーザーフォームが開いた瞬間に顧客リストなどから自動的に読み取って書き換えてくれたら便利だと思いませんか？
何もしていないままユーザーフォームを開くと、このようにLabel1～Label10のラベル名（Caption）のまま表示されますので、わざわざコマンドボタンを配置してクリックすることでラベル名が書き換わるようにしています。
こちらは設定後で、ユーザーフォームが開いた瞬間に自動的にラベル名が書き換わるので手間が省かれているので、わずかですが作業効率が上がります。
目次
UserForm_Initialize（イニシャライズ）を使う
UserForm_Initializeとは、ユーザーフォームが表示される前に処理を実行するプログラムなので、記載されたプログラムを実行してからユーザーフォームを表示します。
このUserForm_Initializeは使用頻度が高いVBAコードで、設定も使い方もとても簡単なので手順に従って紹介します。
ユーザーフォームの作成
エクセルのユーザーフォーム作成するには、Visual Basic Editor（VBE）を開きますが、表示方法が分からない場合の説明は下記に記載していますのでここでは省略します。
あわせて読みたい
ユーザーフォームでオリジナル入力画面を作る
エクセルのデータ入力・検索・修正作業ってとても面倒で時間と手間がかかりませんか？ この作業を簡単に素早く終わらせたくないですか？ エクセル使うなら今話題の時短...
まず最初に処理を実行してから開きたいユーザーフォーム自体を表示させるので、ここではUserForm1を表示させました。
UserForm_Initializeを表示させる
表示させたUserForm1が表示される前に処理を実行するプログラム、UserForm_InitializeにVBAコードを記述しますので、下記どちらの方法でも可能です。
- UserForm1自体をダブルクリックする
- UserForm1の画像の上で右クリックして「コードの表示」を選択
上記どちらかの方法を実行すると、UserForm_Clickという名のプログラムが表示されれいる画面に変わります。
カーソルが点滅していますが、ここにVBAコードを記述してもユーザーフォームが表示される前に処理を実行されません。
あくまでUserForm_Clickという名前の通り、ユーザーフォームをクリックしたらプログラムが実行されるので、ここでは使用しませんのでそのまま放置しても削除しても大丈夫です。
使うのはUserForm_Clickではなく、UserForm_Initializeなので切り替えますので、右上に表示されているClickの部分からプルダウンメニューより「Initialize」をクリックします。
クリックすると自動的にVBAコードが追加記載されます。
あとはカーソルが点滅している部分（UserForm_InitializeとEnd Sub）の間に、ユーザーフォームが表示する時に読み込むコードを書いておくだけで完了です。
UserForm_InitializeにVBAコード記述する
最初にもご紹介した画像で、UserForm1を表示する時はセルA1～A10に記載されている値（ここでは都道府県と都道府県番号）をLabel1～10に書き換えて表示するようにVBAコードを書いています。
ちなみに複数のラベル名をまとめて書き換える（繰り返し処理）を使用してみました。
UserForm_Initialize記載VBAコード
Private Sub UserForm_Initialize()
For i = 1 To 10
With UserForm1.Controls(“Label” & i)
.Caption = Cells(i, 1).Value
End With
Next i
End Sub
まとめてラベル名を書き換える方法については下記に記載しています。
あわせて読みたい
ユーザーフォームのラベルをセルの文字で表示させる方法
ラベルの表示をセルの値で自由に表示させたいと思いませんか？ 例えば、今日の日付をユーザーフォームに配置したラベルに表示させるなら、日によって変わらなくちゃいけ...
また、変数iにセルの値を足したり、引いたりもできるようになります。
あわせて読みたい
繰り返し処理For～Nextで変数をセルの値から格納・取得する方法
複数のセルの値を繰り返し取得させてラベルキャプションに使う時にi+1のように使う時に定数ではなく、変数i＋セルB1みたいに変数と一緒に数値も変えたいと思ったことあ...
UserForm_Initializeはラベル以外にもコマンドボタンのキャプションやテキストボックス、更にリストボックスのリストを取得することにも利用できます。