|
みなさんこんにちは
>これで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
|
|