Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44793 / 76732

←次へ　｜　前へ→


	【36950】Re:オプションボタンをクリックしないと...

neptune - 06/4/18(火) 22:02 -


	引用なし

	パスワード

▼saru@ さん：

>作動できなかった。原因はわかりませんでした。
UPされた部分のみでは私にもわかりません。
Me.Hideが引っかかっていますけど。

>と方法を変えてみましたが作動できました。
>無駄なところがありましたらご指導お願いします。
インデントはもう少しわかり易く付けた方がいいですね。

OptionButtonとCommandButtonの操作のみを書いてみました。
動作は、最初の質問を参考にしてます。
新規UserFormにOptionButton３個、CommandButton３個
を配置してください。

自分のものと比べて、原因を探ってみて下さい。
で、なければなんかスッキリしませんから。

原因がわかれば教えてください。スッキリしたいから。

Option Explicit

Private Sub UserForm_Initialize()
　　Call ButtonOperate(False)
End Sub

Private Sub OptionButton1_Click()
　　Call ButtonOperate(True)
　　'処理
End Sub

Private Sub OptionButton2_Click()
　　Call ButtonOperate(True)
　　'処理
End Sub

Private Sub OptionButton3_Click()
　　Call ButtonOperate(True)
　　'処理
End Sub

Private Sub CommandButton1_Click()
　　If OpCheck = False Then Exit Sub
　　'処理
End Sub
Private Sub CommandButton2_Click()
　　If OpCheck = False Then Exit Sub
　　'処理
End Sub

Private Sub CommandButton3_Click()
　　If OpCheck = False Then Exit Sub
　　'処理
End Sub
Private Function OpCheck() As Boolean
　　If GetOpNum = -1 Then
　　　　Call ButtonOperate(False)
　　　　OpCheck = False
　　Else
　　　　OpCheck = True
　　End If
End Function

Private Function GetOpNum() As Long
　　With Me
　　　　If .OptionButton1.Value = True Then
　　　　　　GetOpNum = 0
　　　　ElseIf .OptionButton2.Value = True Then
　　　　　　GetOpNum = 1
　　　　ElseIf .OptionButton3.Value = True Then
　　　　　　GetOpNum = 2
　　　　Else
　　　　　　GetOpNum = -1
　　　　End If
　　End With
End Function

Private Sub ButtonOperate(pFlg As Boolean)
　　With Me
　　　　.CommandButton1.Enabled = pFlg
　　　　.CommandButton2.Enabled = pFlg
　　　　.CommandButton3.Enabled = pFlg
　　End With
End Sub

7 hits

▼

【36845】オプションボタンをクリックしないと登録ボタンに無効する方法は？ saru@ 06/4/15(土) 11:46