无法在处理另一个DropDown时更改DropDown文本

时间:2015-07-08 14:04:28

标签: excel vba drop-down-menu

我在Excel工作表上有2个DropDowns,它们彼此独立工作。下拉列表中的选择可能会在报告生成期间造成混淆。因此,如果用户正在使用DropDown2,我需要将DropDown#1设置为“select”,反之亦然。 我正在尝试使用DropDown.Text属性,但它没有做到这一点。

Sub PDropDown_Click()

Dim DropDownP As DropDown
Dim DropDownD As DropDown
Set DropDownD = Me.DropDowns("DDropDown")
Set DropDownP = Me.DropDowns("PDropDown")
DropDownD.Text ="Select"
DropDownP.Text = DropDownP.List(DropDownP.ListIndex)
Call Report_Generator.Create_Graph(DropDownP.List(DropDownP.ListIndex))
End Sub

1 个答案:

答案 0 :(得分:0)

您必须将值select添加到组合框中。

Dim bExit as Boolean

Private Sub ComboBox1_Change()
    If bExit = True Then
        bExit = False
        Exit Sub
    End If
    bExit = True
    ComboBox2.Text = "Select"

End Sub

Private Sub ComboBox2_Change()
    If bExit = True Then
        bExit = False
        Exit Sub
    End If
    bExit = True
    ComboBox1.Text = "Select"
End Sub