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
1108
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
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ä nyt424712Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja
Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.532564Jenkkilahkojen kastekaava
Jenkkilahkojen yhteinen kastekaava on kirjoitettuna Mormonin Kirjaan, Moroni, luku-8 Pienten lapsien vanhempia uhataan1391034Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!
Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin1611015Odotan sitä hetkeä
kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh71954- 118911
Olen melko vakuuttunut
etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok70874- 137825
- 48810
Taas mietin että
mitä ihmettä sanoisin, jos laittaisin viestiä. Aina voi toivottaa jotain, vaikka hyvää kesää, ja jos ei tule vastausta,49767