Hur fyller jag i en användarform ComboBox med alla arknamn i Excel?

Denna artikel talar om att fylla i alla arknamn för aktuell arbetsbok i ett användarformulär Combo Box i Excel.

Fyll en ComboBox för användarform med alla arknamn med VBA-kod

Fyll en ComboBox för användarform med alla arknamn med VBA-kod

Följande VBA-kod kan hjälpa dig att infoga alla arknamn för aktuell arbetsbok i en kombinationsruta för användarform. 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 fönstret, vänligen infoga ett användarformulär genom att klicka Insert > Användarformulär som nedan visas skärmdump.

3. Rita och sätt sedan in en kombinationsruta i användarformuläret. Se skärmdump:

4. Högerklicka på den infogade kombinationsrutan och välj Visa kod från snabbmenyn. Se skärmdump:

5. I öppningen Microsoft Visual Basic för applikationer kopiera och klistra in under VBA-koden för att ersätta den ursprungliga i kodfönstret.

VBA-kod: Fyll i en ComboBox för användarform med alla arknamn på aktuell arbetsbok

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

Anmärkningar: I koden är ComboBox1 namnet på den infogade kombinationsrutan. Ändra den till din egen.

6. tryck på F5 nyckel för att köra koden. I det öppna användarformuläret kan du se att alla arknamn för den aktuella arbetsboken visas i kombinationsrutan enligt skärmbilden nedan:

Relaterade artiklar:

• Hur kopierar man kombinationsboxvärde till aktiv cell i Excel?
• Hur visar jag datumformat i kombinationsruta i Excel?
• Hur öppnar jag ett specifikt kalkylblad med det valda värdet i en kombinationsruta i Excel?
• Hur förhindrar eller inaktiverar man att skriva i en kombinationsruta i Excel?
• Hur flikar du ur kombinationsrutan för att välja specifik cell i Excel?