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
1063
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
Saako kaunis ihminen parempaa kohtelua?
Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa722467En rehellisesti usko et oisit
Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos361799- 101654
Suomennettua: professori Jeffrey Sachs avaa Ukrainan sodan taustat luennollaan EU parlamentissa
Jeffrey Sachs on yhdysvaltalainen ekonomisti. Sachs toimii Columbian yliopiston The Earth Instituten johtajana. Aiemmin3721587Näin sinusta taas unta!
Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly181552Nainen, olet jotenkin lumoava
Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel681407- 1091166
- 121128
En muuttaisi sinusta mitään
Ensin olit etäinen ja yritin pysyä tutkan alapuolella. Mutta ei silmiltäsi jää mitään huomaamatta, kuten minulla ei kuul91094- 201009