Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako napolniti Combo Box s podatki o imenovanem obsegu v Excelu?

Polje Combo (Nadzor ActiveX) lahko določite s podatki določenega obsega, tako da dodate obseg v ListFillRange lastnosti kombiniranega polja. Ali veste, kako napolniti polje Combo s podatki imenovanega območja v Excelu? Na primer, na vašem delovnem listu ste navedli vrsto celic, zdaj pa morate to ime razdalje določiti v polju Combo. Ko izberete ime območja v enem seznamu, bodo vse vrednosti celic v imenovanem obsegu samodejno zapolnjene v drugem polju. Ta članek bo predstavil metodo VBA za rešitev te težave.

Populirajte polje Combo s podatki imenovanega območja s kodo VBA


Preprosto vstavite ali izbrišite več potrditvenih polj v velikem obsegu v Excelu:

O Škatle za vstavljanje paketnih paketov pripomočki podjetja Kutools za Excel vam lahko hitro pomagajo pri vstavljanju več potrditvenih polj v izbranem obsegu hkrati. Vse potrditvene polja v izbranem obsegu lahko izbrišete z Batch Preveri polja. Glej sccreenshot:

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Populirajte polje Combo s podatki imenovanega območja s kodo VBA


Prosimo, naredite, kot sledi, da zapolnite polje Combo s podatki imenovanega območja v Excelu.

1. Prosimo, izberite celotne glave (v tem primeru na delovnem listu izberite A1: E1) in vnesite ime v ime Box kot je prikazano spodaj.

2. Izberite vse podatke o stolpcu, razen glave, in nato v stolpcu označite stolpec posebej ime Box. Prikaz slike:

V tem primeru sem poimenoval obseg A2: A8, B2: B8, C2: C8, D2: D8 in E2: E8 kot datum, trgovina, predmeti, prodaja in teden posebej.

3. Potem vstavite škatlo s škatlico s klikom Razvojni > Vstavi > Kombinirano polje (nadzor ActiveX). Prikaz slike:

4. Ponovite korak 3, da v delovni list vstavite drugo škatlo.

5. Z desno miškino tipko kliknite zavihek stanja in nato kliknite Ogled kode iz kontekstnega menija. Prikaz slike:

6. V odprtju Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite pod kodo VBA v okno Code.

VBA koda: zapolnite polje Combo s podatki imenovanega območja

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

Opombe: V kodi je ComboBox1 ime kombiniranega polja, v katerem boste navedli vsa imena domen znotraj, in ComboBox2 je ime kombiniranega polja, v katerem bodo podatki iz določenega imenovanega območja vneseni znotraj. »Glave« je ime območja, ki ste ga ustvarili v koraku XX.

7. Izklopite način oblikovanja tako, da kliknete Razvojni > Način oblikovanja.

8. Če želite aktivirati kodo, kliknite poljubno celico v delovnem listu. V prvem kombiniranem polju kliknite gumb s puščico, lahko vidite vse imenske obsege, ki so navedeni znotraj. Prikaz slike:

Ko izberete imensko območje v prvem kombiniranem polju, se bodo ustrezni podatki celice naselili v drugi kombinirani vrstici, kot je prikazano spodaj:


Sorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.