Taulukko järjestykseen

Jösse

Saako taulukossa A1:H10 olevat luvut jotenkin suuruusjärjestykseen niin, että aloitetaan A1:stä alaspäin ja jatketaan sitten B-sarakkeesta jne. Eli suurin A1:ssä ja pienin H10:ssä. Yksi sarake tai rivi on tietysti helposti järjestetty, mutta entä tällainen taulukko.

2

333

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      moduuliin...

      Sub LajitteleSarakkeittain(Taulukko As String, Alue As String)
      Dim Sarakkeet As Integer
      Dim Rivit As Integer
      Dim Solujenlkm As Integer
      Dim s As Integer
      Dim r As Integer
      Dim laskuri As Integer
      On Error Resume Next
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Sheets("Huuhaa").Delete
      Worksheets.Add().Name = "Huuhaa"
      Worksheets("Huuhaa").Activate
      range("A1") = "luvut"
      For Each solu In range(Taulukko & "!" & Alue)
      range("A65536").End(xlUp).Offset(1, 0) = solu.Value
      Next solu
      range("A1", range("A1").End(xlDown)).Sort Key1:=range("A2"), _
      Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
      Sheets(Taulukko).Activate
      range(Alue).Cells(1, 1).Activate
      Sarakkeet = range(Alue).Columns.Count
      Rivit = range(Alue).Rows.Count
      Solujenlkm = range(Alue).Cells.Count
      laskuri = 2
      For s = 1 To Sarakkeet
      For r = 1 To Rivit
      range(ActiveCell.Address).Offset(r - 1, s - 1).Value = _
      range("Huuhaa!A" & laskuri).Value
      laskuri = laskuri 1
      Next r
      Next s
      Sheets("Huuhaa").Delete
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True

      End Sub
      Sub koe()
      LajitteleSarakkeittain "Taul1", "A1:H10"
      End Sub

      • Jösse

        Kiitos kunde. Toimii hyvin. Pieniä muutoksia jouduin tekemään, että sopi oman taulukon raameihin (oli hieman eri mitä kyselyssä). Kokeilemalla se kuitenkin onnistui. Hienoa kun löytyy apua tarvittaessa.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kuka oli töllöntyön tekijä?

      Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt
      Pieksämäki
      21
      3445

    2. Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja

      Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.
      Pieksämäki
      44
      1686

    3. Kun kohtaat jotain ainutlaatuista

      ja upeaa, johon rakastut ehkä ensimmäistä kertaa ihan tosissaan. Sitten sähläät kaiken omien epävarmuuksien vuoksi. Eikö
      Ikävä
      19
      1011

    4. Mua ahdistaa

      Tämä juttu. Miksi nainen torjuit minut vaikka kiinnostuksen merkkejä oli? Eihän tämän jutun olisi tarvinut johtaa sen pi
      Ikävä
      32
      999

    5. Minkälaisessa asunnossa

      haluaisit kaivattusi kanssa asua?
      Ikävä
      60
      987

    6. Ei tämä enää tervettä oo

      Sydän pamppaillen oon jo tunnin meinannu laittaa sulle viestiä... Sormi tärisee lähetä kuvakkeen kohdalla.
      Ikävä
      22
      958

    7. Perämoottoreiden huolto melkoisen kallista

      Minulla on tuollainen keskikokoinen perämoottori ja yleistä merkkiä. Kyselin sille keväthuoltoa paikallisista liikkeistä
      Savonlinna
      37
      839

    8. Tanskademarit: ilman risusavottaa ei rahaa!

      Näin persuna on pakko ihailla noita Tanskan demareita. Tanskalaisessa sosiaalidemokratiassa ei työtön saa rahaa ellei os
      Maailman menoa
      173
      831

    9. Mikä siinä on että sinkku yrittää varattua?

      Siis ihan aina yrittävät muiden puolisoita.
      Sinkut
      51
      749

    10. Pub Marjuskan grillibileet

      Pub marjuskassa ilmainen makkara tarjoilu ja jakaa parille sadalle aurinko laseja. Miten tälläistä. Saako popittaa ja ja
      Haapavesi
      12
      683
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt