Excel VBA質問箱 IV

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

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


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

23874 / 76732

←次へ　｜　前へ→


	【58214】Re:CommandButton押し間違いを防ぐために・・・

ponpon - 08/10/11(土) 23:29 -


	引用なし

	パスワード

▼Mimi さん：
>こんばんは。
>CommandButton押し間違いを防ぐためにOptionButton1がオンの時CommandButton１の操作が有効にCommandButton２の操作が無効に、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

4 hits

▼

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