[[20090905101955]]　『複数のチェックボックスの選択/解除について』（とよ）　ページの最後に飛ぶ

『複数のチェックボックスの選択/解除について』（とよ）
Ａ１セルにデザインモードのチェックボックスを配置しています。右クリック→プロパティでLinkedCell の欄にＢ１セルを指定し、『レ』　チェックがはいるとTrue、外れるとFalseが出るように、A1～A80まで複数のチェックボックスを使用しているのですが、

このチェックボックスの『レ』を同時に外すことは可能でしょうか？

欲を言えば一つのチェックボックスに『すべて選択/解除』のような機能を付けたいのですが。

ご教授お願い致します。

[[20080821125615]]

 このへん参考になりませんか？

 （とおりすがり）

[[20090903170918]]

 この投稿からすると、「コントロールツールボックス」のチェックボックスのようですね！！

 >一つのチェックボックスに『すべて選択/解除』のような機能
 ↑これを行なうチェックボックスをCheckBox1だとすると・・・、

 当該シートのモジュールに（標準モジュールでは、決してありません）

 '==========================================================================
 Option Explicit
 Private Sub CheckBox1_Click()
    Dim cole As OLEObject
    Application.ScreenUpdating = False
    For Each cole In OLEObjects
       If TypeName(cole.Object) = "CheckBox" And cole.Name <> "CheckBox1" Then
          cole.Object.Value = OLEObjects("checkbox1").Object.Value
       End If
    Next
    Application.ScreenUpdating = True
 End Sub

 これで出来ると思いますが、

[[20090903170918]]

 ↑ここでのやり取りを読むと簡単には、作動しないかもしれませんね！！

 まっ、コードや作成したチェックボックスの名前を確認したり、
 その前に上記コードをどこに記述すればよいのか？

 苦労してみてください

 ichinose

 LinkedCellで設定されてるのでしたら、B列のFALSEをTRUEに置換（標準機能で）
 するだけでレ点は消えると思いますが
 （ｍｏｍｏ）

みなさんありがとうございます。
大変参考になりました。
がんばってみます（汗

コメント返信：

[ 一覧(最新更新順) ]

[[20090905101955]] 『複数のチェックボックスの選択/解除について』（とよ） ページの最後に飛ぶ

[[20090905101955]]　『複数のチェックボックスの選択/解除について』（とよ）　ページの最後に飛ぶ