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.
Taulukko järjestykseen
2
296
Vastaukset
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ä.
Luetuimmat keskustelut
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww614581- 513052
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1392330Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1051946Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.731515Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381197Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M1931115Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-161082En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois871078- 1731076