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
1094
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
Muistakaa persut, että TE petitte, ei kokoomus
Miksikö kukaan ei arvostele kokoomusta? No sen vuoksi, että kokoomus noudattaa vaalilupauksiaan. Sen sijaan TE persut,1653270Seuraava hallituspohja - Kokoomus, kepu, persut + KD
Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 172262850Outo ilmiö - vasemmistolaiset eivät kirjoita mitään kokoomuksesta
joka sentään johtaa hallitusta, ja jonka talouspolitiikkaa noudatetaan. Nämä muutamat vasemmistolaiset jotka täällä aina702447Maria Veitola kommentoi soutelija Saarion huomionhakuisuutta
"Minusta on jotenkin kuvottavaa, kuinka kovalla intensiteetillä Suomi-media seuraa miessankari Jari Saarion merihätää. S3061716Väestöstä vain vassarit vaihtuvat nopeammin kuin persut
Kevääseen 2023 verrattuna vassareita 50 prosenttia enemmän, ja persuja 25 prosenttia vähemmän.91500Vihervassarit
Vihervassarit sitä, vihervassarit tätä. Minulla on paha mt-ongelma. Se tuli lobotomian jälkioireina. Vihervassarit tät261376Lopetan ikävöinnin
Ei meistä enää koskaan tule mitään. Olen ikävöinyt ja kaivannut enkä saa mitään vastakaikua ja lämpöä. Parempi erillään31261Ei ole liian myöhäistä..
Tule mun luo ja katso silmiin, niin saadaan taas se sanaton yhteys ja sano sitten vain anteeksi rakas ja suutele ja hala31042Ei osattu ratkaista etääntymistä
Mä jäädyin eikä sulla ole taitoa sulattaa. Parempi antaa olla, vaikka toivoin jotain muuta. Miehelle.115930Esprit hoitokdit Varkaudessa?
Asun keskisuomessa ja käyn satunnaisesti äitini luona Varkaudessa. Äitin tarvitsee kohta hoitajan kotiin tai hoitokodin103913