Přeskočit navigaci | Přeskočit na novinky

Nový videokurz na Seduo: Excel pro začátečníky

     

Jste zde: Úvodní stránka » excel » vba-priklady-kodu » VBA-sort-razeni-Excel
Microsoft Excel logo

Sort - řazení Excel VBA


Vše co se chcete zeptat o formulářích a bojíte se., Postupně vytvoříte formulář, který dokáže do tabulky zadat údaje, údaje vyhledat (zobrazit) a případně upravit (přepsat).

Úvodem do POZVYHLEDAT (MATCH)

V tomto článku se dozvíte praktické použití vyhledávací funkce POZVYHLEDAT (v angličtině MATCH). Včetně teoretického úvodu a sešitu ke stažení zdarma. Ať si můžete doma prakticky odzkoušet. Pro přehednost je článek rozdělen na jednotlivé kapitoly.

Seznam kapitol

Syntaxe SORT

Vyhledá zadanou položku v oblasti buněk a vrátí relativní pozici dané položky v oblasti.

Syntaxe

.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)

Parametery

Jméno Vyžadován Datový typ Popis
Key1 Nepoviný Variant Určuje první třídící pole (sloupec).
Order1 Nepoviný XlSortOrder Pořadí řazení pro hodnoty uvedené v Key1.
Key2 Nepoviný Variant Určuje druhé třídící pole (sloupec). Nelze pro kontingenční tabulku.
Type Nepoviný Variant Které prvky mají být řazeny.
Order2 Nepoviný XlSortOrder Pořadí řazení pro hodnoty uvedené v Key2.
Key3 Nepoviný Variant Určuje třetí třídící pole (sloupec). Nelze pro kontingenční tabulku.
Order3 Nepoviný XlSortOrder Pořadí řazení pro hodnoty uvedené v Key3.
Header Nepoviný XlYesNoGuess Určuje, zda první řádek obsahuje záhlaví. xlNo je výchozí hodnota (není) xlGuess (obsahuje)
OrderCustom Nepoviný Variant  
MatchCase Nepoviný Variant Velká malá písmena. True je výchozí hodnota. Nelze pro KT.
Orientation Nepoviný XlSortOrientation Vzestupně sestupně. xlAscending, xlDescending
SortMethod Nepoviný XlSortMethod Metoda třídění
DataOption1 Nepoviný XlSortDataOption Třídění textu v poli uvedeném v Key1. Neplatí pro třídění v KT
DataOption2 Nepoviný XlSortDataOption Třídění textu v poli uvedeném v Key1. Neplatí pro třídění v KT
DataOption3 Nepoviný XlSortDataOption Třídění textu v poli uvedeném v Key1. Neplatí pro třídění v KT

Ukázka

Řazení budeme provádět na následujíci tabulce. Ke stažení na konci článku.

SORT - řazení - Excel VBA

Vyčistit řazení

Doporučeno provéstt před vlastním řazením. Vkláda i záznamník maker.

ActiveWorkbook.Worksheets("SORT office.lasakovi.com ").Sort.SortFields.Clear

Řazení podle určitého sloupce

Jak seřadit tabulku podle vybraného sloupce.

With ActiveWorkbook.Worksheets("SORT office.lasakovi.com ") .Range("B6:I430").Sort _ Key1:=.Range("G7"), Order1:=xlAscending, Header:=xlYes End With

Poznámka: Oblast i sloupec je dána napevno, v dalších příkladech bude uvedeno jak oblast vytvořit dynamicky.

Řazení podle podle více sloupců

Použití pro až tři. Jak na více je popsáno dále.

With ActiveWorkbook.Worksheets("SORT office.lasakovi.com ") .Range("B6:I430").Sort _ Key1:=.Range("C2"), Order1:=xlAscending, Header:=xlYes _ , Key2:=.Range("G7"), Order2:=xlAscending, Header:=xlYes End With

Poznámka: Oblast i sloupece jsou dány napevno, v dalších příkladech bude uvedeno jak oblast vytvořit dynamicky.

Řazení podle podle více sloupců

aplikace - SortFields.Add

With ActiveWorkbook.Worksheets("SORT office.lasakovi.com ").Sort With .SortFields .Clear .Add Key:=Range("C6:C430"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .Add Key:=Range("G6:G430"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .Add Key:=Range("D6:D430"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers .Add Key:=Range("E6:E430"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers End With .SetRange Range("B6:I430") .Apply End With

Vychytávky - dynamická oblast ...

'dynamická oblast With Range("B6", Range("I" & Rows.Count).End(xlUp)) .Sort Key1:=.Cells(1, 2), Order1:=xlAscending, _ key2:=.Cells(1, 6), order2:=xlAscending, _ key3:=.Cells(1, 7), order3:=xlAscending, Header:=xlGuess End With

Dim lastrow As Long lastrow = Cells(Rows.Count, 2).End(xlUp).Row Range("B6:I" & lastrow).Sort key1:=Range("B3:B" & lastrow), order1:=xlAscending, Header:=xlNo

Set oneRange = Range("B6:I430") Set aCell = Range("B7") oneRange.Sort Key1:=aCell, Order1:=xlAscending, Header:=xlYes

Související články SORT

Microsoft Excel VBA - stahuj logo

Ke stažení

Soubor SORT - zdrojová tabulka - Excel soubor ve formátu *.xlsx ke stažení zdarma.


Závěrem

Máte nějaké zajímavé použití (aplikaci) funkce POZVYHLEDAT? Můžete zmínit v komentařích.

Článek byl aktualizován: 06.04.2016 14:59

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2006. Své vědomosti a zkušenosti dávám k dispozici na různých školeních a konzultacích, ale také na tomto webu. K dispozici na tomto webu je mnoho návodu, tipů a triků včetně desítek různých šablon.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil

Doporučte tento článek přátelům

Pokud vám článek pomohl, případně si myslíte, že může pomoci i někomu dalšímu, budu rád když jej sdílením doporučíte přátelům - děkuji:



Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články

25.03.2017:
ROUNDUP, ROUNDDOWN - zaokrouhlování

07.04.2017:
Řazení Excel - bug - problém

09.04.2017:
Podmínkové funkce Excel - bug - problém


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2017 | 2627

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.