Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4698 / 76732

←次へ　｜　前へ→


	【77650】複数コンボックスへの処理について

ten - 15/11/18(水) 10:41 -


	引用なし

	パスワード

はじめまして。

今、VBAを勉強中で、複数のワークシート上にそれぞれ４つのコンボボックスを置いて、
全てのコンボボックスで同じ選択肢を設定したいと思っています。
そこで、下記のようなコードを書いたのですが、
「オブジェクトはこのメソッドをサポートしていません」のエラーになります。
「Worksheets(・・).Controls(・・)」がまずいのは見当がつくのですが、
どのような書き方が正しいのでしょうか。

コードを書いているのは「ThisWorkBook」です。

For Each mySheet In Worksheets
　　　　For i = 1 To 4
　　　　　　　　With Worksheets(mySheet.Name).Controls("ComboBox" & i)
　　　　　　　　　　.AddItem "リンゴ"
　　　　　　　　　　.AddItem "みかん"
　　　　　　　　　　.AddItem "かき"
　　　　　　　　　　.AddItem "パイナップル"
　　　　　　　　　　.AddItem "バナナ"
　　　　　　　　　　.AddItem "ブドウ"
　　　　　　　　End With
　　　　Next i
Next

0 hits

▼

【77650】複数コンボックスへの処理について ten 15/11/18(水) 10:41