| |
▼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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
