Excel VBA質問箱 IV

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

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


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

23346 / 76807

←次へ　｜　前へ→


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

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


	引用なし

	パスワード

複数のオブジェクト(チェックボックス等)に対し類似の処理を行う場合、
どのように書くと良い感じかをご教示下さい。

このように書くと、vがVariant型なので、vの後に「.」を打ってもプロパティ一覧が表示(機能名なんでしたっけ？)されません。
　Dim v As Variant
　Dim chs As Variant
　
　chs = Array(Sheet1.chechboxA, Sheet1.chechboxB, Sheet1.chechboxC)
　For Each v In chs
　　Debug.Print v.Value
　　' chを使用する処理色々
　Next

このように書くと、エラーになります。
　Dim v As Variant
　Dim ch As CheckBox
　Dim chs As Variant
　
　chs = Array(Sheet1.chechboxA, Sheet1.chechboxB, Sheet1.chechboxC)
　For Each v In chs
　　ch = v ' エラーになる。「set ch = v」でもエラー
　　Debug.Print ch.Value
　　' chを使用する処理色々
　Next

・C言語で言うと「set ch = (CheckBox)v」的なことをしたいです。(キャスト)
・実際のプログラムは膨大で、一部分のサンプルを元に質問させて頂いています。

0 hits

▼

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

≪