エクセルVBA シートにある複数のコンボボックスクリア

質問

下のようにワークシートにコンボボックス（ツールボックス）
があります。
ComboBox_りんご1～ComboBox_りんご10
ComboBox_みかん1～ComboBox_みかん10
シートがアクティブになった時に、.AddItemで
リストを追加しています。
ある処理を終える時に、各リストをクリアします。
ComboBox_りんご1.Clear
ComboBox_りんご2.Clear
・・・
これを
For i = 1 to 10
ComboBox_りんご i .Clear
Next
のようにするにはどうしたらよいでしょうか？
また、一つ一つ記述するのに比べて、処理速度など
何か影響はありますでしょうか？
よろしくお願いします。

回答No.1

noname#31387 · ベストアンサー

下記では如何でしょう。

Sub Test()
Dim i As Long
For i = 1 To 10
ActiveSheet.OLEObjects("ComboBox_りんご" & CStr(i)).Object.Clear
Next
End Sub

お礼

ありがとうございました。
スッキリしました。