- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：マクロ ユーザーフォームでの件）
VBAマクロを使用して自動で大量のコンボボックスを作成する方法
このQ&Aのポイント
- VBAマクロを使用して、自動で大量のコンボボックスを作成する方法について教えてください。
- 質問者は、以下のマクロを使用してコンボボックスを作成しようとしていますが、各コンボボックスに個別の名前を割り当てることはできるのでしょうか。
- 特定の名前を持つ複数のコンボボックスを自動的に作成するために、マクロを修正する方法を教えてください。
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
No1です。 作成しながらならば、以下ですかね。 Dim N As Long Dim i As Long Dim myctl As Control N = 4 For i = 1 To N Set myctl = Me.Controls.Add("Forms.ComboBox.1", "ComboBox" & i, True) With myctl .Height = 20 .Width = 150 .Left = 120 .Top = (i - 1) * .Height + 10 End With
その他の回答 (1)
- piroin654
- ベストアンサー率75% (692/917)
回答No.1
以下のようなことですか？ Dim ctl(1 To 4) As Control Dim i As Long Dim j As Long For i = 1 To 4 Set ctl(i) = Me.Controls("ComboBox" & i) Next i For j = 1 To 4 With ctl(j) .Height = 20 .Width = 150 .Left = 120 .Top = (j - 1) * .Height + 10 End With Next j
