Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 处理其他下拉列表时不能更改下拉文本_Excel_Vba_Drop Down Menu - Fatal编程技术网

Excel 处理其他下拉列表时不能更改下拉文本

Excel 处理其他下拉列表时不能更改下拉文本,excel,vba,drop-down-menu,Excel,Vba,Drop Down Menu,我在excel表格上有两个下拉列表,它们相互独立。在生成报告期间,两个下拉列表上的选择都可能导致混乱。因此,如果用户正在使用DropDown2,我需要将DropDown#1设置为“选择”,反之亦然。 我正在尝试使用DropDown.Text属性,但它不起作用 Sub PDropDown_Click() Dim DropDownP As DropDown Dim DropDownD As DropDown Set DropDownD = Me.DropDowns("DDropDown") Set

我在excel表格上有两个下拉列表,它们相互独立。在生成报告期间,两个下拉列表上的选择都可能导致混乱。因此,如果用户正在使用DropDown2,我需要将DropDown#1设置为“选择”,反之亦然。 我正在尝试使用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

您必须将选择值添加到组合框中

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