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 filtre iz vseh delovnih listov v aktivni delovni zvezki v Excelu?

Če ste v delovnem listu Excel ustvarili več filtrov na različnih delovnih listih, zdaj pa želite vse filtre izbrisati hkrati. Običajno morate premakniti na delovni list, enega za drugim, da preverite filter in ga nato očistite ročno. Ali obstaja ustrezna metoda za brisanje filtrov iz vseh delovnih listov v aktivni delovni zvezki? Poskusite metodo v tem članku.

Počistite filtre iz vseh delovnih listov v aktivni delovni zvezki s kodo VBA


puščica modra desno mehurček Počistite filtre iz vseh delovnih listov v aktivni delovni zvezki s kodo VBA


Prosimo, zaženite spodnji VBA skript, da počistite filtre iz vseh delovnih listov v aktivni delovni zvezki.

1. V delovni zvezku morate izbrisati filtre, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnji VBA skript v okno Modul. Glejte spodnji posnetek:

VBA koda: počistite filtre iz vseh delovnih listov v aktivni delovni zvezki

Sub Auto_Open()
    Dim xWs As Worksheet
    For Each Wks In ThisWorkbook.Worksheets
    On Error Resume Next
    If Wks.AutoFilterMode Then
        Wks.AutoFilterMode = False
    End If
    Next Wks
End Sub

3. Pritisnite F5 ključ za zagon kode. Potem se takoj odstranijo vsi filtri po vseh delovnih listih v trenutni delovni zvezki.


puščica modra desno mehurčekSorodni članki:



Priporočena orodja za produktivnost za Excel

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.