[[20080908235523]]　『チェックボックスの連動』（あい）　ページの最後に飛ぶ

『チェックボックスの連動』（あい）
ＶＢＡ初心者なのですが、教えてください！！！
現在、Excel2003を使用しています。
シートが異なるチェックボックス同士を連動させるプログラムを作成したいのですが、どのようにしたらいいのでしょうか？
例えば、sheet1とsheet2にチェックボックスがあって、sheet1のチェックボックスをクリックすると、sheet2が連動するというようなものです。。。

 何のチェックボックスか書きましょう。　(アカギ)

アカギさんへ

チェックボックスに種類とかあるんですか？？
素人ですいません．．．
レ点のやつなんですが．．．
（あい）

 >チェックボックスに種類とかあるんですか？？
 [御参考]
http://oshiete1.goo.ne.jp/qa1565497.html
 （dack）

＞アカギさん

参考資料有難うございます。
[表示(V)]-[ツールバー(T)]-[コントロールツールボックス] からの分です。

 Sheet1の方に
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
    Worksheets("Sheet2").CheckBox1 = True
Else
    Worksheets("Sheet2").CheckBox1 = False
End If
End Sub

 Sheet2の方に
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
    Worksheets("Sheet1").CheckBox1 = True
Else
    Worksheets("Sheet1").CheckBox1 = False
End If
End Sub

 を記述してみてください。

 （川野鮎太郎）

 ↑とか
 Private Sub CheckBox1_Click()
    With Sheets("sheet2").CheckBox1
        .Value = Not Not CheckBox1
    End With
 End Sub
 　なども有効かとおもわれます。
    　　（弥太郎）

 >シートが異なるチェックボックス同士を連動させるプログラムを作成したいのです
 これが目的なら、既投稿されていますが、セル一つを仲介役に使えば、ＶＢＡは要りません。

 １　Sheet1にコマンドバー「コントロールツールボックス」にあるチェックボックス配置します。

 ２　配置後、このチェックボックスを選択後、右クリック---プロパティとクリックし、チェックボックスの
     プロパティダイアログを表示させます（尚、当該チェエクボックスが選択できない場合は、
     「コントロールツールボックス」にある三角定規のアイコンをクリックし、デザインモードにしてから
     再度チェエクボックスを選択すところから始めてください）。

 ３　上記プロパティダイアログにて、LinkedCell　というプロパティとして、Sheet2!A1　と指定して下さい。

 ４　指定したら、プロパティダイアログを閉じた後、「コントロールツールボックス」にある三角定規のアイコンをクリックし、
    デザインモードを終了してください。

 ５　今度は、Sheet2をアクティブにして、Sheet1と同じように
    コマンドバー「コントロールツールボックス」にあるチェックボックス配置します。

 ６　配置後、このチェックボックスを選択後、右クリック---プロパティとクリックし、チェックボックスの
     プロパティダイアログを表示させます（尚、当該チェエクボックスが選択できない場合は、
     「コントロールツールボックス」にある三角定規のアイコンをクリックし、デザインモードにしてから
     再度チェエクボックスを選択すところから始めてください）。

 ７　上記プロパティダイアログにて、LinkedCell　というプロパティとして、Sheet2!A1　と指定して下さい。

 ８　指定したら、プロパティダイアログを閉じた後、「コントロールツールボックス」にある三角定規のアイコンをクリックし、
    デザインモードを終了してください。

 これで設定完了です。

 Sheet1のチェックボックスのＯＮ、ＯＦＦがSheet2のチェックボックスにも反映されます。

 試してみてください。

 ichinose

鮎太郎さん、弥太郎さん、ichinoseさん
皆さんありがとうございます！！！

直ぐに試してみます☆

コメント返信：

[ 一覧(最新更新順) ]

[[20080908235523]] 『チェックボックスの連動』（あい） ページの最後に飛ぶ

[[20080908235523]]　『チェックボックスの連動』（あい）　ページの最後に飛ぶ