Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe de keuzelijst met invoervak ​​vullen met gegevens van benoemde bereik in Excel?

U kunt een keuzelijst met invoervak ​​(ActiveX-besturingselement) opgeven met gegevens van een bepaald bereik door het bereik toe te voegen aan de eigenschappen ListFillRange van de keuzelijst met invoervak. Maar weet u hoe u een keuzelijst met invoervak ​​invult met gegevens van een benoemde reeks in Excel? U hebt bijvoorbeeld een reeks cellen in uw werkblad benoemd en moet deze bereiknaam nu opgeven in een keuzelijst met invoervak. Wanneer u de bereiknaam in een keuzelijst met invoervak ​​selecteert, worden alle celwaarden in dit benoemde bereik automatisch in een andere keuzelijst met invoervak ​​geplaatst. Dit artikel introduceert een VBA-methode om dit probleem op te lossen.

Vul de keuzelijst met invoervak ​​in met gegevens van een benoemd bereik met VBA-code


Eenvoudig meerdere selectievakjes invoegen of verwijderen in Excel:

De Batch invoegen Selectievakjes voorzieningen van Kutools for Excel kan u helpen om snel meerdere selectievakjes in het geselecteerde bereik tegelijk in te voegen. En u kunt alle selectievakjes in het geselecteerde bereik verwijderen met de Batch verwijderen selectievakjes. Zie sccreenshot:

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Vul de keuzelijst met invoervak ​​in met gegevens van een benoemd bereik met VBA-code


Voer de volgende stappen uit om de keuzelijst met invoervak ​​te vullen met gegevens van een benoemd bereik in Excel.

1. Selecteer de volledige headers (in dit geval, selecteer ik A1: E1) in uw werkblad en typ een naam in de Naam Box zoals hieronder screenshot getoond.

2. Selecteer elke kolomgegevens behalve de koptekst en geef de kolom afzonderlijk een naam in de kolom Naam Box. Zie screenshot:

In dit geval noemde ik bereik A2: A8, B2: B8, C2: C8, D2: D8 en E2: E8 als datum, winkel, artikelen, verkoop en werkdag afzonderlijk.

3. Plaats vervolgens een keuzelijst met invoervak ​​door op te klikken ontwikkelaar > bijvoegsel > Keuzelijst met invoervak ​​(ActiveX-besturingselement). Zie screenshot:

4. Herhaal stap 3 om nog een keuzelijst met invoervak ​​in het werkblad in te voegen.

5. Klik met de rechtermuisknop op het tabblad Blad en klik vervolgens op Bekijk code vanuit het contextmenu. Zie screenshot:

6. In de opening Microsoft Visual Basic voor toepassingen venster, kopieer en plak onder VBA-code in het codevenster.

VBA-code: vul de keuzelijst met invoervak ​​in met gegevens van een benoemd bereik

Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Set xRg = Range(Me.ComboBox1.Text)
    Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Set xRg = Range("Headers")
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Notes: In de code is ComboBox1 de naam van de keuzelijst met invoervak ​​waarin u alle bereiknamen binnenin vermeldt, en ComboBox2 is de naam van de keuzelijst met invoervak ​​waarin de gegevens van het opgegeven benoemde bereik worden ingevuld. De "Headers" is de bereiknaam die u in step1 hebt gemaakt.

7. Schakel de ontwerpmodus uit door op te klikken ontwikkelaar > Ontwerpmodus.

8. Klik op een cel in het werkblad om de code te activeren. Klik op de pijlknop in de eerste keuzelijst met invoervak, u kunt zien dat alle benoemde bereiken binnen worden weergegeven. Zie screenshot:

Bij het selecteren van een benoemd bereik in de eerste keuzelijst met invoervak, worden de overeenkomstige celgegevens ingevuld in de tweede keuzelijst met invoervak ​​zoals hieronder afgebeeld:


Gerelateerde artikelen:



Aanbevolen productiviteitstools voor Excel

Kutools voor Excel helpt u altijd om uw werk voor de tijd af te maken en uzelf te onderscheiden van een menigte

  • Meer dan 300 krachtige geavanceerde functies, ontworpen voor 1500-werkscenario's, verhoging van de productiviteit met 70%, geeft u meer tijd om voor uw gezin te zorgen en van het leven te genieten.
  • U hoeft niet langer formules en VBA-codes te onthouden, maar uw hersenen rust vanaf nu.
  • Word een Excel-expert in 3 minuten, gecompliceerde en herhaalde bewerkingen kunnen in seconden worden uitgevoerd,
  • Verminder dagelijks duizenden toetsenbord- en muisbewerkingen, zeg nu tot ziens tegen beroepsziekten.
  • 110,000 zeer effectieve mensen en 300 + keuze van wereldberoemde bedrijven.
  • 60-day full features free trial. 60-dagen geld-teruggaranties. 2 jaar gratis upgrade en ondersteuning.

Brengt browsen met tabbladen en bewerken naar Microsoft Office, veel krachtiger dan de tabbladen van de browser

  • Office-tabblad is ontworpen voor Word, Excel, PowerPoint en andere Office-toepassingen: 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 verlaagt dagelijks honderden muisklikken voor u!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.