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?

Zaslat odpověď >

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)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.