Miten saisi tehtyä buttonin, jonka avulla voi sortata taulukon sarakkeiden mukaan? Eli tarvitsisin alasvetovalikon, josta voisi valita tietyn arvon, jonka mukaan taulukko järjestyy. Tiedän kyllä data > sort-toiminnon, mutta järjestämistä pitäisi tehdä usein ja taulukko on aika iso, joten sen maalaaminen on aika rasittavaa puuhaa joka kerta erikseen sorttausta varten.
Sorttausbuttonin tekeminen
Pässi_
4
1092
Vastaukset
- excelin makrokieleen
nimeltä VBA (Visual Basic for Applications).
Jos ei lainkaan tuttua, niin vaikeaa on, mutta
onnistuu.
Vinkki: koko taulukko maalautuu kun näpäytät
vasenta yläkulmaa.- on jokamiehen
makron "tekokone". Ei varmaankaan saa tehtyä tuota alasveto-kikkaa, mutta tee niin monta painiketta vierekkäin kuin tarvitset. Vinkki: Nimeä alue- valitse hiirellä alue joka sortataan. Kaavarivin vasemmassa reunassa "Nimiruutu"-ikkuna. Klikkaa sitä hiirellä ja anna alueelle sopiva nimi (pitää alkaa kirjaimella) ja paina ENTER. Nimiruutu ikkunan nuolta painamalla löydät tuon antamasi nimen ja klikkaa sitä. Haluttu alue on valittuna. Avaa:
- Työkalut > Makro > Nauhoita uusi makro
- anna makrolle osuva nimi
- hae alue tuon nimiruudun avulla
- tee nyt tuo lajittelu käsin kuten olet tähänkin asti tehnyt ja paina sitten "Lopeta nauhoitus". (vinkkinä: lajittelun tehtyä klikkaa tyhjää haluamaasi ruutua, ettei alue jää maalatuksi siniseksi)
- avaa Näytä > Työkalurivit > Lomakkeet ja valitse "Painike"
- piirrä hiirellä haluamasi kokoinen painike
- avautuu "Makro-ikkuna", valitse haluamasi makro ja OK.
Tee kaikille lajitteluperusteille oma nappi ja nimeä ne. Jos tietue-alue on niin iso että pitää pystyvierityspalkkia käyttää niin sijoita napit ylälaitaan ja klikkaa jotain solua joka on juuri nappien alapuolella ja mene "Ikkuna" > "Kiinnitä ruudut". Näin napit pysyy aina näkyvillä.
taulukon moduuliin...
oletuksena otsikot ekalla rivillä
muokkaa sopivaksi järjestys ja useammat sarakkeet, nyt lajittelee tuplaklikkauksella mistä tahansa solusta ko. solun sarakkeen mukaan...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim vika As Long
vika= Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Row
Rows("2:" & vika).Sort Key1:=Cells(2, ActiveCell.Column), _
Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
Keep Excelling
@KundeSinulle ei sitten sovi sellainen järjestely, missä ensin valitset kerra sen suuren alueen ja sitten nimeät sen Lisää - Nimi - Määritä jne. Tämän jälkeen voit toistuvasti Muokkaa - Siirry -valinnasta (Ctrl G) (tai nimiruudusta valiten)päästä valitsemaan alueen ja sitten lajittelemaan? On nyt ehkä vähän helpompi kuin se laajan alueen valinta? Joitain optioitakin tuolla matkan varrella on, millä siitä voi sovittaa tarpeisiinsa.
Kaikki sarakkeet nimetyllä alueella on valittavissa lajitteluun eikä vaikutus ulotu alueen ulkopuolelle.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
6 kW saunan lämmityksestä kohta 10 euron lisämaksu / kerta
Kokoomuslainen sähköyhtiöiden hallitsema Energiavirasto ehdottaa 5 kW:n rajaa, jonka ylittämisestä tulee lisämaksu. Tark3178653Duunarit hylkäsivät vasemmistoliiton, siitä tuli feministinaisten puolue
Pääluottamusmies Jari Myllykoski liittyi vasemmistoliittoon, koska se oli duunarien puolue. Sitä samaa puoluetta ei enää2044720Olen väsynyt tähän
En osaa lopettaa ja koen huonoa omaatuntoa tästä. Kaikki on muutenkin turhaa ja tekemisesi sattuvat. Tunteita on vain hy353690Oppiiko vasemmistolaiset valehtelun jo kotonaan?
Sillä vasemmistolaiset/äärivasemmistolaiset valehtelee ja keksii asioita omasta päästään todella paljon. Esim. joku vas1982665Seuraava hallituspohja - Kokoomus, kepu, persut + KD
Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 171232245- 511786
Maailman laiskin eläin: persu
Persu ei ole eläessään laittanut rikkaa ristiin itsensä elättämiseen. Luonnossa tuollainen ei olisi mahdollista, mutta s1011779- 591699
- 1751413
Minneapolisin tapauksesta hyvä video
Runoilijan auto oli poikittain tiellä ja kun poliisit lähestyivät sitä, runotyttö painoi reippaadti kaasua. Auto syöksäh3501388