Excel VBA 组合框默认值

Question

我正在寻找一种方法让我的用户表单上的组合框具有默认值无或诸如“从下面选择”之类的东西。

尝试了各种 google 建议，但如果它是代码的第一次迭代，或者更糟的是之前选择的值，则在我的组合框中显示的值是空白的。

代码如下...

' Begin Code
Private Sub UserForm_Initialize()
    Dim RngTags As Range, RngNames As Range, i As Long

ComboBox1.Value = "SomeText"

'Set rng1 = Sheets("Admin").Range("deptrange2")
Set rng1 = Range("ALLDEPT")

With ComboBox1
    .ColumnCount = 1
    .Style = fmStyleDropDownList
    .TextAlign = fmTextAlignLeft
    .BoundColumn = 1

    For i = 1 To rng1.Count
        .AddItem rng1(i).Value
        .List(.ListCount - 1, 1) = rng1(i).Value
    Next i
End With

End Sub


' Puts the value chosen from the list on admin f6
Private Sub ComboBox1_Change()
    Sheets("Admin").Range("f8").Value = ComboBox1.Value

    Call myUnLoad
End Sub

' Gets rid of userform
Sub myUnLoad()
    UserForm1.Hide
End Sub
' End code

谢谢

安德鲁

Answer 1

添加值后，您需要将 ListIndex 设置为 0。

Combobox1.ListIndex=0