• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Seřazení čísel v řádkách

Zaslal/a LucisFerrus 6.11.2014 1:44

Zdravím všechny
Potřeboval bych makro na seřazení hodnot v řádkách.
V každém řádku mám 16 náhodných hodnot které bych potřeboval seřadit od nejnižší a těch řádků mám přes 500.
Jsem teprve nováček, pár pokusů už jsem zkusil zbastlit ale pořád se v tom nějak plácám, dělám chybu v syntaxi, nebo nevím kde.
Můžete mi někdo poradit jak to udělat abych mohl dát do SORT postupně jeden řádek za druhým?

Jméno
Kontrola
Text
	Ukázka

---

Hav-Ran(6.11.2014 6:13)#022182

Mala by stačiť procedúra

Sub TriedeniePoRows()
Dim iRow As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
Rows(iRow).Sort _
Key1:=Cells(iRow, 1), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlLeftToRight
iRow = iRow + 1
Loop
End Subcitovat

Lucis-Ferrus(6.11.2014 14:16)#022212

Paráda, zafungovalo to. Sice to setřídilo celý řádek, kde vzadu byly další hodnoty, ale to nebyl až takovej problém je odstranit.
Ještě dotaz jestli by šlo nějak určit v tom řádku počáteční a koncové buňky, jen čistě kvůli pochopení programu.citovat

AL(6.11.2014 19:23)#022222

V prípade, že budeš chieť radiť hodnoty napr. iba zo stĺpcov A až K, tak miesto

Rows(iRow).Sort _

v Hav-Ranovom kóde jednoducho napíšeš

Intersect(Rows(iRow),[A:K]).Sort _citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse