コンボボックスについて

解決

アネキ 2007-05-16 20:03:04 No: 98770

複数のコンボボックスがあり、そのすべてに同じ内容のデータを入れる為に
Do〜Loopで繰り返し作業をしたいのですが
コンボボックスを変数に変えることができません。
どうしたらできますか？

もげ 2007-05-17 04:04:06 No: 98771

>コンボボックスを変数に変える
というのはこういうことですか？

Dim ctl As Control
'名前がComboで始まる全部のコントロールにAddItem
For Each ctl In Me.Controls
     If ctl.Name Like "Combo*" Then
        ctl.AddItem "TEST1"
        ctl.AddItem "TEST2"
        ctl.AddItem "TEST3"
        ctl.AddItem "TEST4"
     End If
Next ctl

'Combo1 にAddItem
    Dim strCtlName As String
    strCtlName = "Combo1"
    Me.Controls(strCtlName).AddItem "Combo1だけ"

アネキ 2007-05-19 01:17:59 No: 98772

ありがとうございます。