投稿日 | : 2005/11/09(Wed) 06:42 |
投稿者 | : いな |
Eメール | : |
URL | : |
タイトル | : Re: UserFormに動的にTextBoxを作成 |
VB6とかならこんな感じで出来るけれど、ExcelにLoadステートメントってあったかなぁ〜
あとExcelVBAは使用するExcelのVerによって使用できる関数/使用できない関数が
あるので、明記するとより分かりやすいです。
#まぁ記述されていないということで、最新Verだと思うのですが…。
--
' Load イベントで配列を動的に作成してフォームに加える
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 9
' Load ステートメントを使用してコントロールを作成する
Call Load(Me.Text1(i))
' ここで、プロパティなどを必要に応じて設定します
Me.Text1(i).Text = "Text" & CStr(i + 1)
Me.Text1(i).Top = Me.Text1(0).Top + (240 * i)
' 初期値で False になっているので True にする
Me.Text1(i).Visible = True
Next i
End Sub