Excel VBA質問箱 IV

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

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


23277 / 76738 ←次へ | 前へ→

【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 質問
【58832】Re:複数のオブジェクトに対し類似の処理 Jaka 08/11/13(木) 11:49 発言
【58834】Re:複数のオブジェクトに対し類似の処理 りった 08/11/13(木) 13:10 質問
【58833】Re:複数のオブジェクトに対し類似の処理 n 08/11/13(木) 13:00 発言
【58835】Re:複数のオブジェクトに対し類似の処理 りった 08/11/13(木) 13:17 お礼
【58836】Re:複数のオブジェクトに対し類似の処理 neptune 08/11/13(木) 13:28 発言
【58837】Re:複数のオブジェクトに対し類似の処理 りった 08/11/13(木) 13:50 発言
【58841】Re:複数のオブジェクトに対し類似の処理 neptune 08/11/13(木) 14:58 お礼
【58844】Re:複数のオブジェクトに対し類似の処理 n 08/11/13(木) 15:19 発言
【58849】Re:複数のオブジェクトに対し類似の処理 neptune 08/11/13(木) 17:09 発言

23277 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free