エクセルVBA/フォームのオプションボタンを元に戻す

Question

ワークシート上に、フォームのオプションボタンが7個貼ってあります。
名前はOP1～OP7とします。
ある一定の条件に合致した場合、押されたオプションボタンがxlonになるのをキャンセルし、前にオンになっていたオプションを再度xlonにしたいのですが、Appication.Undoではエラーになってしまいました。
どうやったら前の状態に戻せるのでしょうか？

taocat · Accepted Answer

こんにちは。

Application.Callerとは何とお洒落な。。(^o^)

------------------------------------------------------------------
Public myOpValues(7) As Integer 'これmyOpValues(7) ってどういう意味ですか？

●ひとつ前の７個のオプションボタンの状態を保持するための配列
-------------------------------------------------------------------
If n <> OpNo And myOpValues(n) = 1 Then 'このmyOpValues(N) はなんですか？

●配列myOpValues()にはひとつ前のオプションボタンの状態が入っているので元に戻すためにそこをチェックしています
---------------------------------------------------------------
　　　　ActiveSheet.OptionButtons(n).Value = 1

●そしてここで元の状態に戻しています
----------------------------------------------------------------

　　　myOpValues(N) = 0 'このmyOpValues(N)=０はどんな意味ですか？

●現在のオプションボタンの状態を配列に再設定する為に先ず、Offにしているだけです。

------------------------------------------------------------
　　　If N = OpNo Then myOpValues(N) = 1

●そしてここでいまクリックされたオプションボタンの状態"On"を配列に保持
-----------------------------------------------------------

ということになりますがある別の場合も考えていたのでちょと分かり難いコードになりました。
そこで単純に補足のようなことでよければ以下のようにシンプルにすることもできますね。
=========================================================

Sub OpCheck(OpNo)

　Dim N As Integer

　If ActiveSheet.CheckBoxes("CCK" & OpNo).Value <> 1 Then
　　　MsgBox "そこは選べないわよ。", vbCritical, "Sorry!!"

　　　　For N = 1 To 7
　　　　　　ActiveSheet.OptionButtons(N).Value = myOpValues(N)
　　　　Next N
　End If

　For N = 1 To 7
　　　myOpValues(N) = ActiveSheet.OptionButtons(N).Value
　Next N
End Sub
============================================================

それから、こんな時はどうするのでしょう。
例えば、CCK３にチェック、OP３がONの状態の時、CCK３のチェックを外した場合、OP３はONのまま？それともOFFにする？

以上です。
　

taocat · Answer

こんばんは。

CCK３にチェック、OP３がONの状態のとき云々は、杞憂でしたね。(^^;


＞Option Button 1～7という規則的ならびではなかったものをOpt1～Opt7の名前をつけていたとしたらやはり使えないんでしょうねぇ？

やりかた次第で可能だと思いますよ。
何れにしても、も少し具体的な例（なるべく実態に近い例）を挙げて貰えれば答えやすいのですが。。。

以上です。

Wendy02 · Answer

こんにちは。

＞それはわたしも考えましたが、オプションボタンを押して初めてマクロが走るんですから、押したあとでEnabled=Falseでは意味がないんです。

読んでいても、おやりになりたいことが、良く理解できないのですが、押した後でダメなら、C1の.Enabled=False の条件だけにすればよいと思いますね。

　If Range("C1").Value = True And t = 3 Then
　　　　　　　　↓
　If Range("C1").Value = True Then

でも、#11 の「回答に対するお礼」の例では、

C1 に 3

を入れて、以下のようにすればよいのではありませんか？

'これ以外は、#12 と他は全て同じです。

Sub OPValueStock()
　 Dim t As Integer
　 'オプションボタンの値を確保
　 With ActiveSheet
　 t = .Shapes(Application.Caller).DrawingObject.Index
　 If Range("C1").Value = t Then
　　　MsgBox "それは選べません。", 16
　　　Me.OptionButtons(t).Value = 0
　　　　j = i
　　　　Call OPRecover
　 End If
　　　　j = i
　　　　i = t
　 End With
End Sub

Wendy02 · Answer

こんばんは。

Wendy02の#8 発言、間違いでした。#2の「回答に対するお礼」の読み違えです。taocat さんの書き込みで、その流れを気づきました。

＞どのオプションボタンを押したかで、条件が整うのです。仮にC1セルの値が「TRUE」の時に3番目のオプションボタンを押されたら「キャンセル」させるといった具合です

これは、単に、C1 が、True だったら、OptionButtons(3).Enable =False
っていうことではありませんか？

キャンセルというよりも、選べなくすればよいと思います。

具体的には、このようになります。
　 t = .Shapes(Application.Caller).DrawingObject.Index
　 If Range("C1").Value = True And t = 3 Then
　　　Me.OptionButtons(3).Enabled = False
　 Else
　　　Me.OptionButtons(3).Enabled = True
　 End If

とすればよいのでは？

それから、これは、難しく考えないで、ものすごくシンプルに考えればよいのではありませんか？

'シートモジュール

Private i As Integer
Private j As Integer
Sub OPValueStock()
　 Dim t As Integer
　 'オプションボタンの値を確保
　 With ActiveSheet
　 t = .Shapes(Application.Caller).DrawingObject.Index
　 If Range("C1").Value = True And t = 3 Then
　　　Me.OptionButtons(3).Enabled = False
　 Else
　　　Me.OptionButtons(3).Enabled = True
　 End If
　　　　j = i
　　　　i = t
　 End With
End Sub
Private Sub OPRecover()
　 'オプションボタンの値を戻す(UnDo)
　　　On Error Resume Next
　　　Me.OptionButtons(j).Value = 1
End Sub
'=======================================
'設定用マクロ'(一回だけでよい）
Sub SettingMacro()
'オプションボタンの設定
Dim o As Variant
For Each o In ActiveSheet.OptionButtons
　 o.OnAction = Me.Name & ".OPValueStock"
Next o
End Sub

taocat · Answer

こんばんは。

merlionXXさん、ほんとに色んなことされてますねぇ。(^^;

要するにセルC1に値がある時は、OptionButton３を選択できないようにする、ということですね？

（全て標準モジュール）
--------------------------------------------

Public myOpValues(7) As Integer

-----------------------------------
Sub オプション1_Click()
　　Call OpCheck(1)
End Sub
-----------------------------------
Sub オプション2_Click()
　　Call OpCheck(2)
End Sub
-----------------------------------
Sub オプション3_Click()
　　Call OpCheck(3)
End Sub
-----------------------------------
Sub オプション4_Click()
　　Call OpCheck(4)
End Sub
-----------------------------------
Sub オプション5_Click()
　　Call OpCheck(5)
End Sub
-----------------------------------
Sub オプション6_Click()
　　Call OpCheck(6)
End Sub
-----------------------------------
Sub オプション7_Click()
　　Call OpCheck(7)
End Sub

------------------------------------------
Sub OpCheck(OpNo)

　Dim N As Integer
　Dim Q As Integer

　If OpNo = 3 And Range("C1").Value <>"" Then
　　　For N = 1 To 7
　　　　　If N <> 3 And myOpValues(N) = 1 Then
　　　　　　　　ActiveSheet.OptionButtons(N).Value = 1
　　　　　　　　Exit Sub
　　　　　End If
　　　Next N
　End If

　For N = 1 To 7
　　　myOpValues(N) = 0
　　　If N = OpNo Then myOpValues(N) = 1
　Next N

End Sub
--------------------------------------------

なお、分かり易くするためにOptionButtonの数は質問の７に固定し、名前もデフォルトにしてあります。
実際にはwendy02さんのようにcount,redimなど使用すべきですね。

勘違いしてましたら平にご容赦願います。(^^;;;
以上です。
　

noname#22222 · Answer

s_husky です。

ルーチンとコードの記述内容は同じです。

bonaron · Answer

#7です。

>Private Sub SetOption(Idx As Integer, sw As Boolean)
>Sheet2.Shapes("Opt" & Idx).ControlFormat.Value = sw

>Private Sub SetOption(Idx As Integer, sw As Boolean)
ActiveSheet.Shapes("Opt" & Idx).ControlFormat.Value = sw

にしてください。ゴメン

Wendy02 · Answer

こんばんは。

＞でも、考えたんですが、各オプションボタンにSub OPValueStock()を登録しても、それで保存されるのはオプションボタンを押した状態での配列ですよね？押す前の状態は保存されないのでは？

まったく、押されていない、すべてオフの状態では、登録をしたところで、全部オフです。

しかし、もしも、すでに、押されている状態を取得するのでしたら、Sheet_Activate イベントやWorkbook_Open イベントで取ります。

もし、固定状態でしたら、最初から、配列で、どれか1つに、１を代入すればよいわけです。

後は、配列の中身を、ローカルウィンドウで確保されているかみてください。
On は、１として入っているはずです。

bonaron · Answer

エクセルは門外漢ですが。
フォームのオプションボタンをはじめて使いました。。。

Option Explicit

Dim OptionIndex As Integer

Private Function CheckCondition() As Boolean
    'キャンセルする条件の場合 True を返してね。
    CheckCondition = False
End Function

Private Sub SetOption(Idx As Integer, sw As Boolean)
    Sheet2.Shapes("Opt" & Idx).ControlFormat.Value = sw
    If sw Then
        OptionIndex = Idx
    Else
        OptionIndex = 0
    End If
End Sub

Private Sub CheckOption(Idx As Integer)
    If Not CheckCondition Then
        OptionIndex = Idx
    Else
        If OptionIndex <> 0 Then
            SetOption OptionIndex, True
        Else
            SetOption Idx, False
        End If
    End If
End Sub

Public Sub Opt1_Click()
    CheckOption 1
End Sub

Public Sub Opt2_Click()
    CheckOption 2
End Sub
'・・・・・・
Public Sub Opt7_Click()
    CheckOption 7
End Sub

Wendy02 · Answer

こんにちは。

＞Sub OPRecoverを走らせましたが、オプションボタンは元には戻りませんでした。
大方、それは、モジュールレベル変数が抜けているのだと思います。

Private Ops() As Long　'←これ

ただし、他のプロシージャが同一のモジュールにない場合は、Public にしてくださいね。

エクセルVBA/フォームのオプションボタンを元に戻す

こんにちは。

この回答への補足

こんばんは。

こんにちは。

こんばんは。

こんばんは。

s_husky です。

#7です。

こんばんは。

エクセルは門外漢ですが。

こんにちは。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング