Hur fyller jag i en kombinationsruta med angiven data i arbetsboken öppen?

Normalt kan du fylla en kombinationsruta (ActiveX Control) med ett visst intervall av celldata genom att ange cellreferenserna i fältet ListFillRange i kombinationsrutans egenskaper. Om du vill fylla i en kombinationsruta med specificerade data direkt, utan att manuellt justera dess egenskaper, kan metoden som beskrivs i den här artikeln hjälpa.

Fyll i en kombinationsruta med specificerad data med VBA-kod

Fyll i en kombinationsruta med specificerad data med VBA-kod

Den här metoden kan hjälpa dig att fylla i en kombinationsruta med angiven data direkt i öppen arbetsbok. Gör så här.

1. tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka Denna arbetsbok i den vänstra rutan för att öppna Denna arbetsbok kodredigerare. Och kopiera sedan VBA-koden till den. Se skärmdump:

VBA-kod: fyll i en kombinationsruta med angiven data i arbetsboken öppen

Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
    With Sheet1.ComboBox1
        .Clear
        .AddItem "Select a Fruit"
        .AddItem "Apple"
        .AddItem "Banana"
        .AddItem "Peach"
        .AddItem "Pineapple"
        .AddItem "Watermelon"
        .Text = .List(0)
    End With
End Sub

Anmärkningar:

3. Spara arbetsboken som Excel Macro-Enabled Workbook formatera och stäng den.

4. Öppna arbetsboken igen, du kommer att se att kombinationsrutan har fyllts i med angivna data, som visas i skärmdumpen nedan:

Relaterade artiklar:

• Hur kopierar man kombinationsboxvärde till aktiv cell i Excel?
• Hur visar jag datumformat i kombinationsruta i Excel?
• Hur förhindrar eller inaktiverar man att skriva i en kombinationsruta i Excel?
• Hur fyller man i kombinationsrutan med data från Named Range i Excel?