0

アプリケーション用の VB には、次のコードがあります。

Private Sub cc_Change()

End Sub

Private Sub UserForm_Initialize()
    cc.AddItem "op1"
    cc.AddItem "op2"
    cc.AddItem "op3"
    cc.AddItem "op4"

End Sub

上記の作品。

これをさらに開発して、「op1」をクリックすると関連するオプションが表示されるようにしたいと思います。これは私がこれまでに持っているコードです。

Private Sub combo2_Change()
    If cc = "op1" Then
    Me.combo2.RowSourceType = "Value List"
    Me.combo2.RowSource = "a; b; c"
    Else
    Me.combo2.RowSourceType = "Value List"
    Me.combo2.RowSource = "default"
    End If
End Sub

譲渡可能であるため、「op1」のみをリストしました。「op1」を選択すると、値「a」「b」または「c」が得られません。

4

2 に答える 2

0

これを使用するプライベートサブ内cc_Change() ：

If cc = "op1" Then
        combo2.AddItem "a"
Else
        combo2.AddItem "default"
End If
于 2013-03-04T00:00:11.813 に答える
0

正しく理解できた場合、変更イベント内の最初のコンボ ボックス (cc) を変更するイベントのコードを記述する必要があります。次のことを試してください。

Private Sub cc_Change()
    If cc = "op1" Then
        Me.combo2.RowSourceType = "Value List"
        Me.combo2.RowSource = "a; b; c"
    Else
        Me.combo2.RowSourceType = "Value List"
        Me.combo2.RowSource = "default"
    End If
End Sub
于 2013-03-03T22:29:47.950 に答える