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
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 発言

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