[[20200326222916]]　『VBA 初心者です　CommondButtonの』（じょーかー）　ページの最後に飛ぶ

『VBA 初心者です　CommondButtonの』（じょーかー）

下記コードを教えていただいてやりたいことはできたのですが
さらに追加で CommondButton1を押さないと CommondButton2が Trueにならないように変更したいのですがよろしくお願いいたします。
CommondButton1を押さない限り CommandButton2.Enabled = False のままにしておきたいです
Private Sub ComboBox2_click()
Dim サンプル1 As String
サンプル1 = Me.TextBox1
Select Case サンプル1
Case "A"
Me.CommandButton1.Enabled = False
Me.CommandButton2.Enabled = False
Me.CommandButton3.Enabled = False
Me.CommandButton4.Enabled = True
End Select

Dim ダメージランク As String
Dim クリーニング As String

ダメージランク = Me.ComboBox2
クリーニング = Me.ComboBox3

Select Case ダメージランク
Case "○"
Me.CommandButton1.Enabled = False
Me.CommandButton2.Enabled = False
Select Case クリーニング
Case ""
Me.CommandButton3.Enabled = False
Me.CommandButton4.Enabled = True
Case "水", "S"
Me.CommandButton3.Enabled = True
Me.CommandButton4.Enabled = False
End Select

Case "×"
Me.CommandButton1.Enabled = True
Me.CommandButton2.Enabled = False
Me.CommandButton3.Enabled = False
Me.CommandButton4.Enabled = False
End Select
End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 >CommondButton1を押さない限り CommandButton2.Enabled = False のままにしておきたいです

 UserForm_InitializeイベントでCommandButton2.Enabled = False 
 に設定すれば

 Private Sub UserForm_Initialize()
    CommandButton2.Enabled = False
 End Sub

 Private Sub CommandButton1_Click()
    CommandButton2.Enabled = True

 End Sub

（ピンク） 2020/03/26(木) 22:46

的を外してるかもしれませんが、提示のコードを整理してみると↓になりませんか？

    Private Sub ComboBox2_click()

        If Me.TextBox1.Value = "A" Then 'サンプル1
            Me.CommandButton1.Enabled = False
            Me.CommandButton2.Enabled = False
            Me.CommandButton3.Enabled = False
            Me.CommandButton4.Enabled = True
        End If

        Select Case Me.ComboBox2 'ダメージランク
            Case "○"
                Me.CommandButton1.Enabled = False
                Me.CommandButton2.Enabled = False
                Select Case Me.ComboBox3 'クリーニング
                    Case ""
                        Me.CommandButton3.Enabled = False
                        Me.CommandButton4.Enabled = True
                    Case "水", "S"
                        Me.CommandButton3.Enabled = True
                        Me.CommandButton4.Enabled = False
                End Select

            Case "×"
                Me.CommandButton1.Enabled = True
                Me.CommandButton2.Enabled = False
                Me.CommandButton3.Enabled = False
                Me.CommandButton4.Enabled = False
        End Select
    End Sub

つまり、「追加で CommondButton1を押さないと CommondButton2が Trueにならないように変更したい」とのことですが、提示のコードではそのようになっているなぁとおもうのですが・・・

（もこな２） 2020/03/27(金) 04:50

コメント返信：

[ 一覧(最新更新順) ]

[[20200326222916]] 『VBA 初心者です CommondButtonの』（じょーかー） ページの最後に飛ぶ

[[20200326222916]]　『VBA 初心者です　CommondButtonの』（じょーかー）　ページの最後に飛ぶ