Excel Suuruusjärjestys

Matti5555

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.

3

4270

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • automattisoia

      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

    • ghjghjhgf

      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

      • Kundepuu alias Kunde

        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

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa

      En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod
      Ikävä
      22
      5404

    2. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      26
      4657

    3. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      28
      2661

    4. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      34
      2314

    5. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      2058

    6. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      15
      2008

    7. En ole koskaan kokenut

      Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka
      Ikävä
      19
      1637

    8. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      12
      1571

    9. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

      Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
      Suomalaiset julkkikset
      24
      1360

    10. Ei tämä etene ikinä

      Kun kumpikaan ei enää ota yhteyttä. Mä en ainakaan uskalla.
      Ikävä
      15
      1306
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt