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 šteti delovne liste s posebnim imenom v Excelu?

Ali ste kdaj poskusili šteti število delovnih listov, katerih ime se začne ali vsebuje določeno besedo? Na primer, šteje število delovnih listov, ki se začnejo z imenom ali vsebovati »KTE«. V tem članku boste našli metodo, ki vam bo pokazala težavo.

Številčni listi s specifičnim imenom s kodo VBA

Hitro poiščite vse delovne liste s posebnim imenom


Preprosto poimenovanje vseh imen lista trenutne delovne knjige v programu Excel:

Uporaba listnega indeksa v delovnem zvezku vam pomaga pri upravljanju vaših delovnih listov. Z Ustvari seznam imen listov uporabnost Kutools za Excel, lahko enostavno ustvarite indeks listov z vsemi listi trenutnega vnosa delovne knjige znotraj. In lahko hitro premaknete na določen delovni list tako, da kliknete ime lista v delovnem listu indeksa. Glejte spodnji posnetek:

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!


Številčni listi s specifičnim imenom s kodo VBA

Naslednje VBA kode vam pomagajo prištevati število delovnih listov s specifičnim imenom v delovnem zvezku. Prosimo, naredite na naslednji način.


1. 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 pa kopirajte pod kodo VBA v okno Code.

VBA koda 1: štetje delovnih listov, katerih ime se začne z "KTE"

Sub CountWSNames()
    Dim I As Long
    Dim xCount As Integer
    For I = 1 To ActiveWorkbook.Sheets.Count
        If Mid(Sheets(I).Name, 1, 3) = "KTE" Then xCount = xCount + 1
    Next
    MsgBox "There are " & CStr(xCount) & " sheets that start with 'KTE'", vbOKOnly, "KuTools for Excel"
End Sub

Če želite šteti število delovnih listov vsebovati »KTE«, prosimo, uporabite spodnjo kodo VBA 2.

VBA koda 2: štetje delovnih listov, katerih ime vsebuje "KTE"

Sub CountWSNames()
    Dim I As Long
    Dim xCount As Integer
    For I = 1 To ActiveWorkbook.Sheets.Count
        If InStr(1, Sheets(I).Name, "KTE") > 0 Then xCount = xCount + 1
    Next
    MsgBox "There are " & CStr(xCount) & " sheets that with 'KTE'", vbOKOnly, "KuTools for Excel"
End Sub

Opombe: Prosimo, zamenjajte besedo "KTE" s tistim, ki ga potrebujete za štetje delovnih listov.

3. Pritisnite F5 ključ za zagon kode. Nato se bo pojavilo pogovorno okno, ki vam pove, koliko delovnic v trenutni delovni zvezki se začne z "KTE" ali vsebujejo "KTE". Oglejte si posnetke zaslona:

Število delovnih listov, katerih ime se začne z "KTE":

Število delovnih listov, katerih ime vsebuje "KTE":


Hitro poiščite vse delovne liste s posebnim imenom.

V tem razdelku je prikazano, kako hitro najdete vse delovne liste s specifičnim imenom v trenutni delovni zvezki s programom Kutools for Excel.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, brezplačno lahko poskusite brez omejitev v 60 dneh.

1. Ko namestite Kutools za Excel, se bo navigacijsko podokno Kutools samodejno odprlo na levi strani delovnega zvezka. V nasprotnem primeru lahko s klikom omogočite podokno Kutools > Navigation kot je prikazano spodaj.

2. V razdelku Delovni zvezek in list v podoknu za krmarjenje preverite filter polje in vnesite določeno ime delovnega lista z iskanjem delovnega lista. Nato se vse delovne liste, katerih ime vsebuje določeno besedo, filtrirajo in naštejejo v seznamu delovnega lista. Prikaz slike:

Nasvet.Če želite imeti brezplačen preskus tega pripomočka, pojdite na brezplačno prenesete programsko opremo najprej in pojdite, da uporabite operacijo v skladu z zgornjimi koraki.


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.