Excel フォームコントロール オプション

質問

いつもお世話になってます。

ActiveXのOptionButtonやChekcBoxは複製Windowでは働かないので、フォームコントールを使おうと思います（フォームコントロールは動作します）。

例えばVBAなら,次のようにすればCheckBox2はoffになります。　これをフォームコントロールのチェック（ボックス）でやりたいのですが？

Sub CheckBox1_Click()
If CheckBox1.Value = True Then CheckBox2.Value = False"
End Sub

回答No.2

watabe007 · ベストアンサー

>これをフォームコントロールのチェック（ボックス）でやりたいのですが？
以下をチェックボックス1のマクロに設定します。(標準モジュール)
Sub Test()
　　If ActiveSheet.CheckBoxes(Application.Caller).Value = xlOn Then
　　　　ActiveSheet.CheckBoxes("チェック 2").Value = xlOff
　　Else
　　　　ActiveSheet.CheckBoxes("チェック 2").Value = xlOn
　　End If
End Sub

お礼

watabe007さん

これぞ私が欲しかった機能です。　完璧にneedsに合いました。

有難うございました。

回答No.4

watabe007

おまけ
アクティブシートの全チェックボックスのON/OFF
ActiveSheet.CheckBoxes.Value = xlOn / xlOff

お礼

watabe007さん

お陰様で全体のチェックを消すには？と考えていたので、大変助かりました。

これから類推するに、全体のオプション（ボタン）をoffにするには、
ActiveSheet.OptionButtons.Value = xlOff
とするのでしょうね。

プロジェクトが一気に進みました。

有難うございました。

回答No.3

watabe007

こんな方法も
チェックボックス1に登録
1がONになれば2、3は、OFF
1がOFFになれば2、3は、ON
Sub Test()
　　Dim isOn As Boolean
　　With ActiveSheet
　　　　isOn = (.CheckBoxes(Application.Caller).Value = xlOn)
　　　　.CheckBoxes("チェック 2").Value = isOn
　　　　.CheckBoxes("チェック 3").Value = isOn
　　End With
End Sub

お礼

watabe007

これも上手く動作しました。

有難うございました。

回答No.1

imogasi

ソフトとはＥｘｃｅｌとして（Ａｃｃｅｓｓなどと微妙に違う箇所がある）
コントロールを置く台紙に当たるものは何ですか
（１）シート
（２）ユーザーフォーム
（３）その他
微妙に違う箇所があるので。
ＡｃｔｉｖｅＸのコントロールと対比しているようなので、シート上か。
質問には改めて、明記しておくべきと思う。
ーー
オプションボタンを使わずに、オプションボタン的な機能をチェックボクスで実現したいということか。
オプションボタンも付けると思うがなぜ。趣味的に勉強する？

補足

失礼しました。

複製したwindowsのsheet上です。環境はW10、Excel2016です。

複製windowsの上では、ActivXコントロルが働きません
（これが働けばbest）。そこでフォームコントロールのオプションをsheetに置きたいのですが、非常に枠が小さくグループ分けなどをやると見難く成ります。　そこど少しでも大きなチェックを使おうと言う魂胆です。チェックなら結構見えるのでやむを得ない処置です。

20人の趣味のクラブの成績表作成ソフト（5段階の成績結果、開始/終了時間、試験問題番号（受験者の過去受験の重複を避ける）、本人証明、費用支払い確認、最終成績表作成など盛りだくさん）で、リモートで分担で試験結果の入力作業をする必要があり今の仕様になりました。

一番欲しい仕様は、親sheetと別々にスクロール可能な複製sheet上でActiveXコントロール（OptionButton, Checkbox)をリモート子PCから操作できるようにしたいと言う事です。

親PC上のwindowsを、リモート（イナターネット）の子ＰＣからセルへの入力・修正は出来ております。

宜しくお願い致します。