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
1071
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
Moikka rakas
Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa204244Immu otti pataan
Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!2383580Malmin tapaus on järkyttävä
Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi4881867- 1401638
Tykkäätkö halaamisesta?
Minä en. Tänään tuttava, jolle olen maininnut että en pidä halaamisesta, yritti halata minua ja olen vieläkin ihan raivo1521571Hinduilu on suurta eksytystä
tekosyvällinen tarina uppoaa moneen. Harhautusta todellisen Jumalan yhteydestä. Kuka haluaisi nähdä sielunvaelluksessa5791481Näetkö feminismin uhkana
Vai mahdollisuutena kun deittailet naisia? Mitä miehet mieltä feminismistä?2171427- 1131385
- 491119
- 751075