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 razvrščati liste po vrednosti celice v Excelu?

Ko uporabljamo Excelovo datoteko, vedno razvrstamo delovne liste po abecednih, številskih ali barvnih zavihkih, ali ste kdaj poskusili razvrstiti liste listov za določeno vrednost celice?

Če imate delovni list z več desetimi delovnimi listi, na vsakem delovnem listu celica A1 ima določeno vrednost, zdaj pa morate vse delovne liste v tej delovni zvezki razvrščati glede na vrednost celice A1 na vsakem delovnem listu naraščajoče. S tem členom boste dobili rešitev.

Razvrsti vse delovne liste na podlagi vrednosti celice s kodo VBA


puščica modra desno mehurček Razvrsti vse delovne liste na podlagi vrednosti celice s kodo VBA


Če želite razvrstiti vse delovne liste, ki temeljijo na vrednosti celice v Excelu, za nas ni neposrednega načina, vendar vam lahko sledi naslednja VBA koda.

1. Drži dol ALT + F11 tipke in odpre Okno Microsoft Visual Basic za aplikacije.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Okno modula.

VBA koda: Razvrsti vse liste glede na vrednost celice

Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
    For j = i To Application.Worksheets.Count
        If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
            Application.Worksheets(j).Move Before:=Application.Worksheets(i)
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

3. Po lepljenju kode, nato pritisnite F5 ključ za zagon te kode in se bo oglasno polje odprlo, da vas opomni, da izberete celico, na katero želite razvrstiti liste na podlagi, si oglejte sliko zaslona:

doc-sort-listi-po-celici-1

4. Zdaj lahko vidite, da so vsi delovni listi razvrščeni glede na besedilno vrednost celice A1 na vsakem delovnem listu naraščajoče.

Opombe:

1. Če v izbranih celicah obstajajo številke in besedilni nizi, bodo listi vsebovali številke, ki bodo razvrščene pred listi nizov besedilnih nizov.

2. Če je v eni od celic A1 prazen, bo relativni delovni list razporejen pred vsemi listi.


Sorodni članki:

Kako razvrščati delovne liste po abecednem / alfanumeričnem vrstnem redu v Excelu?

Kako razvrstiti zavihke delovne listine po barvi v Excelu?

Kako obrniti vrstni red zavihkov v delovnem listu?


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.