Excel VBA質問箱 IV

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

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


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

23252 / 76732

←次へ　｜　前へ→


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

neptune - 08/11/13(木) 17:09 -


	引用なし

	パスワード

みなさんこんにちは

>これでOKです。
nさんありがとうございます。

りんさん>
私的好みでは少々コーディング量は増えますが、
こんなまとめ方が見通しが良く、改造も楽チンと思うので好きです。

同じく、シートモジュールに書きました。

Private mCol As Collection

Sub t()
　　Dim chkBuf As MSForms.CheckBox

　　Call SetCollection 'コレクション作成
　　
　　For Each chkBuf In mCol
　　　　Debug.Print chkBuf.Caption
　　Next
　　Set mCol = Nothing　　'不要になったら後始末^ ^
End Sub

Private Sub SetCollection()
　　Dim chk As MSForms.CheckBox
　　
　　Set mCol = New Collection
　　'まぁここの書き方は好きな書き方で。
　　Set chk = Me.OLEObjects("CheckBox1").Object
　　mCol.Add chk
　　Set chk = Me.OLEObjects("CheckBox2").Object
　　mCol.Add chk
　　Set chk = Me.OLEObjects("CheckBox3").Object
　　mCol.Add chk
　　Set chk = Nothing
End Sub

1 hits

▼

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