Hoe vul ik een Userform ComboBox met alle bladnamen in Excel?
Dit artikel heeft het over het vullen van alle bladnamen van de huidige werkmap in een gebruikersformulier keuzelijst met invoervak in Excel.
Vul een Userform ComboBox in met alle bladnamen met VBA-code
Vul een Userform ComboBox in met alle bladnamen met VBA-code
De volgende VBA-code kan u helpen alle bladnamen van de huidige werkmap in een gebruikersformulier met invoervak in te voegen. Ga als volgt te werk.
1. druk de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, voeg een gebruikersformulier in door op te klikken Invoegen > Gebruikersformulier zoals hieronder getoond screenshot.
3. Teken en voeg een keuzelijst met invoervak in het gebruikersformulier in. Zie screenshot:
4. Klik met de rechtermuisknop op de ingevoegde keuzelijst en selecteer Bekijk code vanuit het contextmenu. Zie screenshot:
5. In de opening Microsoft Visual Basic voor toepassingen -venster, kopieer en plak dan de VBA-code om de originele code in het codevenster te vervangen.
VBA-code: vul een Userform ComboBox in met alle bladnamen van de huidige werkmap
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
Note: In de code is ComboBox1 de naam van de ingevoegde Combo Box. Wijzig het alstublieft in uw eigen exemplaar.
6. druk de F5 toets om de code uit te voeren. In het openingsgebruikersformulier ziet u dat alle bladnamen van de huidige werkmap worden weergegeven in de keuzelijst met invoervak, zoals onderstaand screenshot:
Geef eenvoudig alle bladnamen weer in Excel
De Maak een lijst met bladnamen nut van Kutools for Excel kan helpen om eenvoudig alle werkbladnamen van een actieve werkmap in een nieuw werkblad in Excel weer te geven. En u kunt rechtstreeks naar het overeenkomstige werkblad gaan door op de bladnaam te klikken, zoals in de onderstaande schermafbeelding wordt weergegeven.
Download en probeer het nu! (30 dagen gratis proefperiode)
Gerelateerde artikelen:
- Hoe kopieer ik de keuzelijst met invoervak naar de actieve cel in Excel?
- Hoe de datumnotatie weergeven in de uitvoer met invoervak in Excel?
- Hoe open ik een specifiek werkblad met de geselecteerde waarde van een keuzelijst met invoervak in Excel?
- Hoe kan ik typen in een keuzelijst met invoervak in Excel voorkomen of uitschakelen?
- Hoe tab uit de keuzelijst met invoervak om een specifieke cel in Excel te selecteren?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!