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 odstraniti vsebino kombiniranega polja s kodo VBA v Excelu?

Običajno lahko vsebino seznama izbrišete tako, da odstranite podatke o seznamu vnosnega območja. Kaj pa odstranjevanje vsebine vseh kombiniranih polj v Excelovem listu? Ta članek pripravlja dve kodi VBA, ki vam pomagajo, da ne samo jasno vsebino kombiniranega polja, temveč tudi jasno vsebino vseh kombiniranih polj hkrati na delovnem listu Excel.

Preprosto jasno vsebino kombiniranega polja s kodo VBA


Preprosto jasno vsebino kombiniranega polja s kodo VBA


Spodaj dve kodi VBA vam lahko pomagata čiščenje vsebine kombiniranega polja ali vseh kombiniranih polj v aktivnem delovnem listu. Prosimo, naredite na naslednji način.

1. Na delovnem listu morate zbrisati vsebino seznama, pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Potem kopirajte pod kodo VBA v okno Code.

VBA 1: Počisti vsebino kombiniranega polja na preglednici

Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
    .ListFillRange = ""
End With
End Sub

Opombe: V kodi "Drop Down 2" je ime kombiniranega polja, ki ga boste izbrisali. Prosim, spremenite ga sami.

VBA 2: Počisti vsebino vseh kombiniranih polj v aktivnem delovnem listu

Sub ClearComboBox()
    Dim xOle As OLEObject
    Dim xDrop As DropDown
    Application.ScreenUpdating = False
    For Each xOle In ActiveSheet.OLEObjects
        If TypeName(xOle.Object) = "ComboBox" Then
            xOle.ListFillRange = ""
        End If
    Next
    For Each xDrop In ActiveSheet.DropDowns
        xDrop.ListFillRange = ""
    Next
    Application.ScreenUpdating = True
End Sub

3. Pritisnite F5 ali kliknite gumb Run, da zaženete kodo.

Nato lahko vidite, da je vsebina v navedenem seznamu ali vseh kombiniranih poljih v aktivnem delovnem listu, kot je prikazano spodaj, prikazana:

Opombe: kodo VBA je mogoče uporabiti tako za Combo Box (Form Control) kot Combo Box (Control ActiveX).


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.