Excel VBA質問箱 IV

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

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


44793 / 76732 ←次へ | 前へ→

【36950】Re:オプションボタンをクリックしないと...
回答  neptune  - 06/4/18(火) 22:02 -

引用なし
パスワード
   ▼saru@ さん:

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

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

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

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

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

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
8 hits

【36845】オプションボタンをクリックしないと登録ボタンに無効する方法は? saru@ 06/4/15(土) 11:46 質問
【36847】Re:オプションボタンをクリックしないと登... ぱっせんじゃー 06/4/15(土) 12:50 発言
【36848】Re:オプションボタンをクリックしないと登... ぱっせんじゃー 06/4/15(土) 12:52 発言
【36849】Re:オプションボタンをクリックしないと登... だるま 06/4/15(土) 12:58 回答
【36859】Re:オプションボタンをクリックしないと登... saru@ 06/4/16(日) 22:54 質問
【36860】Re:オプションボタンをクリックしないと... neptune 06/4/16(日) 23:30 回答
【36862】Re:オプションボタンをクリックしないと... saru@ 06/4/16(日) 23:53 質問
【36866】Re:オプションボタンをクリックしないと... だるま 06/4/17(月) 9:31 回答
【36901】Re:オプションボタンをクリックしないと... saru@ 06/4/17(月) 20:02 質問
【36904】Re:オプションボタンをクリックしないと... neptune 06/4/17(月) 21:15 回答
【36915】Re:オプションボタンをクリックしないと... saru@ 06/4/18(火) 0:10 質問
【36925】Re:オプションボタンをクリックしないと... neptune 06/4/18(火) 13:02 回答
【36946】Re:オプションボタンをクリックしないと... saru@ 06/4/18(火) 19:28 お礼
【36950】Re:オプションボタンをクリックしないと... neptune 06/4/18(火) 22:02 回答

44793 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free