< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#022182
Hav-Ran
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
#022212
avatar
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
icon #022222
avatar
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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09