[[20111210101748]]　『チェックボックスを何個か選択して一括でチェック』（初心者Ａ）　ページの最後に飛ぶ

『チェックボックスを何個か選択して一括でチェックを入れる』（初心者Ａ）
一括にチェックを入れたいチェックボックスだけを選択し、操作できる方法はありますか？
色々調べて、「グループボックス」で囲むことをやってみたのですが、囲んでコントロールの書式設定を開いても一括にチェックできません。

 Ctrlキーを押しながら、その「一括にチェックを入れたいチェックボックス」を順次選択し、
 この状態で　右クリック----＞コントロールの書式設定をクリックし、
 コントロールの書式設定ダイアログを表示させます。
 コントロールタブにて、値を設定後、ＯＫボタンクリックで同時にOn、Offの実現が
 可能になります。

 試してみてください。

 ichinose

  Sub test() 'フォームのチェックボックスが4個以上の場合で、【チェックボックス1】にマクロの登録
    Dim i As Long
    For i = 1 To ActiveSheet.CheckBoxes.Count
        MsgBox "CheckBoxes(" & i & ").text は　" & ActiveSheet.CheckBoxes(i).text & "　で CheckBoxes（item）は　" & i
    Next
    MsgBox ActiveSheet.CheckBoxes(1).Value
    If ActiveSheet.CheckBoxes(1).Value = 1 Then
        ActiveSheet.CheckBoxes(Array(2, 4)).Value = True    '上記の　i　CheckBoxesの2と4にチェック（レ）をつける
  '例　CheckBoxesの2と4と5にチェックの場合、必要な所だけArray(2,4,5)とする　ただしCheckBoxesの数が5つ無いとエラー
    Else
        ActiveSheet.CheckBoxes(Array(2, 4)).Value = False
    End If
 End Subichinoseさん私の場合EX2000　フォームのチェックボックスとしてCtrl+shiftでした。
（beginner）

 >EX2000　フォームのチェックボックスとしてCtrl+shiftでした。
 Excel2000で確認しました。ご指摘ありがとうございます。
 今、会社に行って確認してきました（と言っても自宅の隣ですが）。
 と言う事でExcel2000の場合は、Ctrl＋Shiftキーを押しながら順技選択してください。

 又は、オブジェクトの選択　というアイコンを使う方法もありますねえ。

 それでは・・・。

 ichinose@今から、お歳暮買いと年賀状の写真撮り

コメント返信：

[ 一覧(最新更新順) ]

[[20111210101748]] 『チェックボックスを何個か選択して一括でチェック』（初心者Ａ） ページの最後に飛ぶ

[[20111210101748]]　『チェックボックスを何個か選択して一括でチェック』（初心者Ａ）　ページの最後に飛ぶ