Excel VBAで「コントロール」を動的に作成して使う方法

Excel VBAを使って、ユーザーフォームにコントロール（ボタンやテキストボックスなど）を動的に追加する方法を、初心者の方でもわかりやすく解説します。特に、45歳以上のパソコンやスマホに不安がある方でも安心して学べる内容となっています。

動的コントロールとは？
なぜ動的にコントロールを作成するのか？
動的コントロールの作成手順
動的に追加したコントロールのイベント処理
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

動的コントロールとは？

Excelのイメージ

まず、「動的コントロール」とは、プログラムの実行中に必要な数だけボタンやテキストボックスなどの部品を自動で作成することを指します。これにより、例えば「商品名」や「数量」など、項目数が変動する場合でも柔軟に対応できます。

なぜ動的にコントロールを作成するのか？

例えば、100件の商品情報を入力するフォームを作成する場合、手動で100個のボタンやテキストボックスを配置するのは大変です。そこで、VBAを使って必要な数だけ自動で作成することで、作業効率が大幅に向上します。

動的コントロールの作成手順

以下の手順で、ユーザーフォームに動的にコントロールを追加する方法を紹介します。

ユーザーフォームを準備する

まず、ExcelのVBAエディタを開き、新しいユーザーフォームを作成します。フォームには、コントロールを配置するための「フレーム」を追加しておくと便利です。

コントロールを動的に追加するコードを書く

ユーザーフォームの「Initialize」イベントに、以下のようなコードを記述します。

vba

Private Sub UserForm_Initialize()

    Dim i As Integer

    Dim newLabel As Object

    Dim newTextBox As Object
    For i = 1 To 100

        ' ラベルを追加

        Set newLabel = Me.Controls.Add("Forms.Label.1", "Label" & i)

        With newLabel

            .Caption = "商品" & i

            .Top = 10 + (i - 1) * 30

            .Left = 10

        End With

' テキストボックスを追加 Set newTextBox = Me.Controls.Add("Forms.TextBox.1", "TextBox" & i) With newTextBox .Top = 10 + (i - 1) * 30 .Left = 100 .Width = 100 End With Next i End Sub

このコードでは、100個のラベルとテキストボックスを動的に追加しています。

フォームを表示する

標準モジュールに以下のコードを追加し、フォームを表示します。

vba

Sub ShowForm()

    UserForm1.Show

End Sub

これで、実行時に100個のラベルとテキストボックスが表示されるフォームが作成されます。

動的に追加したコントロールのイベント処理

動的に追加したコントロールに対しても、イベント処理を追加することができます。例えば、テキストボックスに入力された内容を取得するには、以下のようなコードを使用します。

vba

Private Sub CommandButton1_Click()

    Dim i As Integer

    For i = 1 To 100

        If Me.Controls("TextBox" & i).Text <> "" Then

            MsgBox "商品" & i & ": " & Me.Controls("TextBox" & i).Text

        End If

    Next i

End Sub

このコードでは、各テキストボックスに入力された内容をメッセージボックスで表示しています。