dポイントプレゼントキャンペーン実施中!

お世話になります

Dim i As Integer
For i = 1 To 3
  Sheets("Sheet1").OLEObjects("コンボ" & i).Value = i
Next

http://oshiete1.goo.ne.jp/kotaeru.php3?q=2372410
上記を参考の上で擬似コントロール配列への代入式を書いたのですが
「オブジェクトは、このプロパティまたはメソッドをサポートしていません」とエラーになってしまいます
もちろん対象のコンボボックスのソースには代入される値は用意されています。
よろしくお願いします

A 回答 (1件)

>   Sheets("Sheet1").OLEObjects("コンボ" & i).Value = i


って、
>   Sheets("Sheet1").OLEObjects("コンボ" & i).Object.Value = i
とかじゃありませんか・・・
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!