[[20070226204408]]　『VBA:checkboxに一括してチェックを付ける』（masabou5）　ページの最後に飛ぶ

『VBA:checkboxに一括してチェックを付ける』（masabou5）

 お世話になっています。
 チェックボックスが500個くらいあり、一括選択を次のようにしましたが、エラーが出てしまいました。
 どこがおかしいのかお教え下さい。

 Private Sub cmdSelect_Click()　　　'一括選択というコマンドボタンを押したとき
    For i = 1 To 500
        CheckBox　&　i = True
    Next
End Sub

 よろしくお願いします｡

 >        CheckBox　&　i = True
 Me.Controls("CheckBox" & i).Value = True
 でどうでしょうか。
 (ROUGE)

 ROUGEさん、ありがとうございました｡
 しかし、｢メソッドまたはデータメンバが見つかりません｣というメッセージが出ますが・・・
（masabou5）

 こういうことかな？

 Sub test()
 Dim shp As Shape
 For Each shp in ActiveSheet.Shapes
      With shp
           If .Type = msoOLEControlsObject And _
              .OLEFormat.Object.ProgID = "Forms.CheckBox.1" Then shp.Value = True
      End With
 Next
 End Sub
 (seiya)

 シートのActiveXコントロールでしたか。。。(ROUGE)
'----
Private Sub cmdSelect_Click()
    Dim ob As OLEObject
    For Each ob In Me.OLEObjects
        If ob.Name Like "CheckBox*" Then _
            ob.Object.Value = True
    Next
End Sub

 ROUGEさん、ありがとうございました｡
 完璧に動作することが出来ました。とても助かりました。御礼申し上げます。

 又、seiyaさん、ありがとうございました｡
 ただ、どういう訳か、動作がうまく行きませんでした。
 もう少し、検討いたします。
 又、教えていただきたく、よろしくお願いします｡　（masabou5）

コメント返信：

[ 一覧(最新更新順) ]

[[20070226204408]] 『VBA:checkboxに一括してチェックを付ける』（masabou5） ページの最後に飛ぶ

[[20070226204408]]　『VBA:checkboxに一括してチェックを付ける』（masabou5）　ページの最後に飛ぶ