Excel VBA質問箱 IV

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

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


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

23264 / 76732

←次へ　｜　前へ→


	【58837】Re:複数のオブジェクトに対し類似の処理

りった - 08/11/13(木) 13:50 -


	引用なし

	パスワード

いつもお世話になってます。

>'Sheet1モジュールに記述
>Sub t()
>Dim chk As MSForms.CheckBox
>　　Set chk = Me.OLEObjects("CheckBox1")
>End Sub

だと2003でもエラーになりました。

nさんの回答の親記事はJakaさんの回答ではなく私の最初の質問です。
下記のようにしました。
　Dim v As Variant
　Dim ch As MSForms.CheckBox

　For Each v In Array(Sheet1.chechboxA, Sheet1.chechboxB, Sheet1.chechboxC)
　　Set ch = v
　　Debug.Print ch.Value
　　' chを使用する処理色々
　Next

ん～っ.スリム。こんな質問ばかりで恐縮です。

0 hits

▼

【58830】複数のオブジェクトに対し類似の処理 りった 08/11/13(木) 11:10