【エクセルVBA】Initializeイベントでワークシートの値をユーザーフォームの初期値にセットする

皆様こんにちは、ノグチです。

ユーザーフォームを作って使ってみるまでを目標に、コントロールのプロパティやイベントを、連載記事でご紹介しています。

前回は、テキストボックスのイベントをいくつかご紹介しました。

今回は、ユーザーフォームのInitializeイベントで、ユーザーフォームを開くと同時に、ワークシート上の値をユーザーフォームのテキストボックスに表示する方法をご紹介します！

前回までのおさらい

まず、前回までに作成したユーザーフォームがこちら。

「品目」というラベルの下にある、TextItemというオブジェクト名のテキストボックスを用いて、テキストボックスのプロパティやイベントをご紹介してきたのでした。

今回も、こちらのテキストボックス「TextItem」を使っていきますよ。

まず、ユーザーフォームのテキストボックスに値を表示するには、テキストボックスのValueプロパティに表示したい値をセットします。

テキストボックスにワークシートの値を表示したいのなら、テキストボックスのValueプロパティに、ワークシートのCellオブジェクトまたはRangeオブジェクトのValueプロパティをセットすることになりますね。

例えば、TextItemというオブジェクト名のテキストボックスに、ワークシートのA1セルの値をセットしたいなら、こんなコードになります。

TextItem.Value ＝ ActiveSheet.Cells(1, 1).Value

これを、テキストボックスのEnterイベントに入れて、動かしてみましょう。

Private Sub TextItem_Enter()
    TextItem.Value = ActiveSheet.Cells(1, 1).Value
End Sub

ユーザーフォームを開いて、テキストボックスにフォーカスを当ててみると…

この通り、ワークシートの指定したセルから値をもってきて、ユーザーフォーム上のテキストボックスに表示してくれていますね。

ユーザーフォームで入力した値を、ワークシートに転記することもできますよ。

上でご紹介したのと逆で、ワークシートのCellオブジェクト、RangeオブジェクトのValueプロパティに、コントロールのValueプロパティをセットすればよいのです。

試しに、テキストボックスのExitイベントを使って、ワークシートに値を転記してみましょう。

こんなコードができます。

Private Sub TextItem_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ActiveSheet.Cells(1, 1).Value = TextItem.Value
End Sub

ユーザーフォームのテキストボックスに値を入力して、フォーカスをテキストボックスから離すと…

この通り、ユーザーフォームの背後で、テキストボックスに入力した値が、ワークシートに転記されていますね。

ユーザーフォームで画面を作っていると、マスタやワークシートの値など、ユーザーフォームを開くと同時に読み込んでおいて、フォーム上のコントロールに初期値として表示したい、という場面が出てくることがあります。

そんな時に使えるのが、ユーザーフォームのInitializeイベントです。

このイベントは、ユーザーフォームが開くタイミングで実行されるイベントなので、例えば、

といった、初期化処理をしたい場合はこちらのイベントプロシージャに処理を書き込むことになります。

では早速、Initializeイベントを使って、ユーザーフォームを開いたときに、ワークシートの値をユーザーフォーム上のテキストボックスに初期値としてセットしてみましょう。

コードはこちら。

Private Sub UserForm_Initialize()
    TextItem.Value = ActiveSheet.cells(1, 1).Value
End Sub

ユーザーフォームを開いたとき、ワークシート上のA1セルの値を、ユーザーフォームのTextItemというオブジェクト名のテキストボックスに転記する、というコードです。

ワークシートのA1セルに値を入力しておいて…

ユーザーフォームを開いてみると…

この通り、ワークシートの値が初期値としてテキストボックスに表示されていますね。

今回は、テキストボックスに入力した値をワークシートに転記する方法と、ユーザーフォームのInitializeイベントで、ワークシート上の値をユーザーフォームの初期値にセットする方法をご紹介しました。

このイベントは、ユーザーフォームでツールを作る場合、マスタシートの読み込みなどで何かと使うことになるイベントですので、是非使ってみてくださいね。

それでは、最後までお読み頂きありがとうございました！

ユーザーフォームは、ちょっとした画面なら作れてしまう、便利な機能です。

何となく敷居が高いように感じてしまいますが、順を追っていけば難しいことはありませんよ。