excel vbaのwithについて

質問

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

回答No.2

onlyrom · ベストアンサー

Withをネストすることはできますが
With Object1,Object2　という使い方はできません。

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

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

　ComboBox2.List = ComboBox1.List

'--------------------------------------　

以上。

お礼

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

回答No.1

o_chi_chi

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

Call mSet(ComboBox2)

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