Excel フォーム上のコントロールを変数に格納

（対象）Excel　VBA

（確認）Excel2010、2013

今回はExcelのフォーム上に配置したコントロールを
変数に格納して使用する方法です。


（手順）
１．変数を準備。この時、使用するのはただの
　　「TextBox」などではなく、「MSForms.」と
　　頭についているものにする

　　→　例）Dim FText As MSForms.TextBox
　　　　　　↑フォーム上のテキストボックス


２．「Set」を使用して変数に格納

　　→　例）For CNT = 1 To 5

　　　　        　Set FText = Me.Controls("Text_テキスト" & CNT)

　　　　        　FText.Text = ""

　　　　　   Next

（実際の使用例）
　オープン時　 ： 中身を削除
　ボタン押下時 ： コントロールの名前を格納

　↓　ソース
　

　Dim FText As MSForms.TextBox

　

　

　Private Sub UserForm_Initialize()

    　'■初期化

    　For CNT = 1 To 5

       　 Set FText = Me.Controls("Text_テキスト" & CNT)

       　 FText.Text = ""

   　 Next

　End Sub

　

　Private Sub Bt_表示_Click()

    　'■順次コントロール名を格納

    　For CNT = 1 To 5

        　Set FText = Me.Controls("Text_テキスト" & CNT)

        　FText.Text = FText.Name

    　Next

　End Sub

---

同じようなコントロールがいくつも出てくるとき
などに非常に便利です。


シート上のコントロールに入れる方法は割とすぐに
見つかりましたが、こっちの「MSForms」は中々
出てこなくて最初ちょっと困りました。