excel vbaのwithについて

早速質問させていただきます。
withでオブジェクト２つ指定したいのですが方法はありますか？
例えばComboBox1とComboBox2に同じものを入れたい場合です。
With ComboBox1
.AddItem "abc"
.AddItem "123"
.AddItem "アイウ"
End With
上記と同じ事をComboBox2でもしたいです。
よろしくお願いします。

No.2 ベストアンサー 回答者： onlyrom 回答日時： 2008/12/10 14:13

Withをネストすることはできますが

With Object1,Object2　という使い方はできません。

で、ComboBox1とComboBox2に同じものを入れる場合
Listプロパティを使用する方法もあります。

'------------------------------------------
　With ComboBox1
　　　.AddItem "abc"
　　　.AddItem "123"
　　　.AddItem "アイウ"
　End With

　ComboBox2.List = ComboBox1.List

'--------------------------------------　
　
以上。
　

この回答へのお礼

ありがとうございます。
希望通りのものが出来ました。

お礼日時：2008/12/10 14:33

No.1 回答者： o_chi_chi 回答日時： 2008/12/10 12:03

Objectを引数とするプロシージャにすればよいのでは。

Call mSet(ComboBox2)

Sub mSet(CBox as Object)
With CBox
（略）
End With
End Sub