Eli miten saa excelissä järjestettyä suuruusjärjestykseen numeroiden mukaan..?
Esim jos on pistetaulukko:
Matti 6
Teppo 3
Miika 9
Jarno 5
Niin jos muuttaa numeroita niin ohjelma järjestää automaattisesti suurimmasta pienimpään järjestykseen? Siis tietysti niin että nimet pysyy mukana pisteiden kanssa.
Esim jos on pistetaulukko:
Matti 6
Teppo 3
Miika 9
Jarno 5
Niin jos muuttaa numeroita niin ohjelma järjestää automaattisesti suurimmasta pienimpään järjestykseen? Siis tietysti niin että nimet pysyy mukana pisteiden kanssa.
Vastaukset 3
Vanhimmat
järjestys ei varmaankaan onnistu ihan sitä mukaa kun kirjoittaa, mutta voit vaikka tehdä Napin ja sille nauhoittaa makron joka lajittelee "paremmuusjärjestykseen".
Automaattisen saa tehtyä, mutta siihen pitää tehdä ensin aputaulukko.
Yksinkertainen esimerkki:
Kirjoita Matti J3:seen ja "6" K3:seen, Teppo J4 ja jne...
I3:seen =K3-RIVI()/10 - RIVI funktio siksi että saadaan eri arvot tasapisteille
vedä nyt kaava I3:sta alaspäin niin pitkästi kuin tarvitset, kaava antaa pisteille omat "tunnuslukunsa"
B3:seen =SUURI(I:I;RIVI()-2) - ja vedä kaava alaspäin - kaava hakee "tunnusluvut" suurimmasta pienimpään
Kaavassa ...RIVI()-2) tuo -2 pitää aina muuttaa oikeaksi jos solua vaihdetaan pystysuunnassa, eli jos tuo aloitus kaava on vaikka B5:ssa, pitää olla RIVI()-4), muissa alasvedettävissä pysyy aina se sama mikä 1:ssä
C3:seen =JOS(B3
Laitat seuraavan koodin sheetin koodimoduliin, niin se järjestää A ja B sarakkeen suuruusjärjestykseen toiselta riviltä lähtien automaattisesti aina kun muutat B sarakkeen arvoja.
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Sort.SortFields.Clear
With ActiveSheet.Sort
.SortFields.Add Key:=Range(Cells(2, 2), Cells(Selection.SpecialCells(xlCellTypeLastCell).Row, 2)), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange Range(Cells(2, 1), Cells(Selection.SpecialCells(xlCellTypeLastCell).Row, 2))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
vaatii lajittelukent't ja turhaan suorittaa lajittelua jos ei ole sarake B muuttunut
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(2)) Is Nothing Then
Columns("A:B").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub