Excel VBA質問箱 IV

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

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


4146 / 13646 ツリー ←次へ | 前へ→

【58213】CommandButton押し間違いを防ぐために・・・ Mimi 08/10/11(土) 22:07 質問[未読]
【58214】Re:CommandButton押し間違いを防ぐために・... ponpon 08/10/11(土) 23:29 発言[未読]
【58221】Re:CommandButton押し間違いを防ぐために・... Mimi 08/10/12(日) 10:34 お礼[未読]

【58213】CommandButton押し間違いを防ぐために・...
質問  Mimi  - 08/10/11(土) 22:07 -

引用なし
パスワード
   こんばんは。
CommandButton押し間違いを防ぐためにOptionButton1がオンの時CommandButton1の操作が有効にCommandButton2の操作が無効に、OptionButton2がオンの時CommandButton2の操作が有効にCommandButton1の操作が無効になるよにする事って
できますか?
教えて頂けませんか。

【58214】Re:CommandButton押し間違いを防ぐために...
発言  ponpon  - 08/10/11(土) 23:29 -

引用なし
パスワード
   ▼Mimi さん:
>こんばんは。
>CommandButton押し間違いを防ぐためにOptionButton1がオンの時CommandButton1の操作が有効にCommandButton2の操作が無効に、OptionButton2がオンの時CommandButton2の操作が有効にCommandButton1の操作が無効になるよにする事って
>できますか?
>教えて頂けませんか。

なんかもっとよい方法がありそうですが・・・

'-------------------------------------------------
Private Sub UserForm_Initialize()
   With Me
      .OptionButton1.Value = True
      .CommandButton1.Enabled = True
      .CommandButton2.Enabled = False
   End With
End Sub

'----------------------------------------------------

Private Sub OptionButton1_Change()
  With Me
    If .OptionButton1.Value = True Then
      .CommandButton1.Enabled = True
      .CommandButton2.Enabled = False
    End If
  End With
End Sub

'-------------------------------------------------------

Private Sub OptionButton2_Change()
  With Me
    If .OptionButton2.Value = True Then
      .CommandButton2.Enabled = True
      .CommandButton1.Enabled = False
    End If
  End With
End Sub

【58221】Re:CommandButton押し間違いを防ぐために...
お礼  Mimi  - 08/10/12(日) 10:34 -

引用なし
パスワード
   ponponさんこんにちは。
お答えありがとうございました。
これで押し間違いをすることが無くなると思います。
今後とも宜しくお願いします。

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