laskentataulukon valinta

VBA:lla?

Moi, pitäisi saada "yleismakro" joka valitsee aina aktiivisen laskentataulukon vasemmanpuoleisen laskentataulukon aktiiviseksi, eli ei saisi viitata mihinkään absoluuttiseen laskentataulukon nimeen. Kiitos jo etukäteen.

12

724

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • M.L.

      Onnistuisiko tällä:

      Sub Edellinen()
      Dim I As Long
      I = ActiveSheet.Index
      Do
      I = I - 1
      If I = 0 Then I = Worksheets.Count
      Loop Until Worksheets(I).Visible = True
      Worksheets(I).Activate
      End Sub

      Jos aktiivinen taulukko on ensimmäinen (vasemmanpuoleisin) aktivoidaan viimeinen.


      - Mika

    • Nimimerkki

      > Moi, pitäisi saada "yleismakro" joka valitsee aina aktiivisen laskentataulukon

      Makro pitää laittaa henkilökohtaiseen makro kirjaan jos haluat että makro on käytössä aina, laita sitten makrolle joku hyvä näppäin yhdistelmä, niin saat ajettua mkron aina kuin haluat.


      > vasemmanpuoleisen laskentataulukon aktiiviseksi

      olisiko tämä mitä tarkoitit:

      Sub aktivoiEdellinen()

      If ActiveSheet.Index > 1 Then Sheets(ActiveSheet.Index - 1).Activate

      End Sub

      • Nimimerkki

        jaha, olin vähän hidas joku muu kerkesi sillä aikaa kun kirjoittelin vastausta ( ja vastasin pariin sähköpostiin samalla ).


    • että allaolevat makrot eivat toimi oikein. Ei ole excelia tässä hotellin koneessa, mutta entapa jos tyokirja sisaltaa kaavioita :-)ja kumpikaan ei kasitellyt viimeista taulukkoa ekaa tosin kyllakin...
      palaan parin pv paasta asiaan, jos muut ei ole korjannneet tai olin vaarassa
      Keep exceling

      • Nimimerkki

        Nappasin tuossa yhden 4 taulukkoisen työkirjan, laitoin jokaiseen taulukkoon yhden kaavion, painoin näppäintä ja taulukoksi tuli aina edellinen ( vasen ) taulukko, otin pari muuta työkirjaa esiin samanaikaisesti ja painoin näppäimiä ja joka kerta valitsi edellisen ( vasemman ) taulukon.

        Yleensä se on niin että jos tarpeeksi monimutkaisen esimerkin ottaa, tulee eteen sekin tilanne että ei toimi, mutta eiköhän sitten ratkaista tuo ongelma kun joku törmää tuohon tulevaan ongelmaa.

        Toki jos kunde jo etukäteen tietää mikä voisi aiheuttaa ongelmia, vinkki otetaan kiitollisuudessa vastaan jo etukäteen.


      • Nimimerkki kirjoitti:

        Nappasin tuossa yhden 4 taulukkoisen työkirjan, laitoin jokaiseen taulukkoon yhden kaavion, painoin näppäintä ja taulukoksi tuli aina edellinen ( vasen ) taulukko, otin pari muuta työkirjaa esiin samanaikaisesti ja painoin näppäimiä ja joka kerta valitsi edellisen ( vasemman ) taulukon.

        Yleensä se on niin että jos tarpeeksi monimutkaisen esimerkin ottaa, tulee eteen sekin tilanne että ei toimi, mutta eiköhän sitten ratkaista tuo ongelma kun joku törmää tuohon tulevaan ongelmaa.

        Toki jos kunde jo etukäteen tietää mikä voisi aiheuttaa ongelmia, vinkki otetaan kiitollisuudessa vastaan jo etukäteen.

        lisasitko kaavion olemassaolevaan taulukkoon vaiko lisasitko sen uuteena taulukkona, jolloin siita tulee kaavion niminen taulukko. Tota jalkimmaista ajattelin lahinna...


      • Nimimerkki
        Nimimerkki kirjoitti:

        Nappasin tuossa yhden 4 taulukkoisen työkirjan, laitoin jokaiseen taulukkoon yhden kaavion, painoin näppäintä ja taulukoksi tuli aina edellinen ( vasen ) taulukko, otin pari muuta työkirjaa esiin samanaikaisesti ja painoin näppäimiä ja joka kerta valitsi edellisen ( vasemman ) taulukon.

        Yleensä se on niin että jos tarpeeksi monimutkaisen esimerkin ottaa, tulee eteen sekin tilanne että ei toimi, mutta eiköhän sitten ratkaista tuo ongelma kun joku törmää tuohon tulevaan ongelmaa.

        Toki jos kunde jo etukäteen tietää mikä voisi aiheuttaa ongelmia, vinkki otetaan kiitollisuudessa vastaan jo etukäteen.

        Lisäsin kaavion vielä omalle sivulle ( ei taulukon sisään ), makro toimi hyvin, eli tämäkään ei aiheuttanut ongelmia. ( minulla on mac office 2004 )

        Järjeselin noita sivuja ja testasin, edeleen toimi hyvin.

        Itse asiassa tuo toimii niin hyvin että pidän tuon makron henkilökohtaisessa makro kirjassa. Tuonko saisi vielä toimimaan nuolinäppäimistä


      • Nimimerkki

      • Nimimerkki kirjoitti:

        Lisäsin kaavion vielä omalle sivulle ( ei taulukon sisään ), makro toimi hyvin, eli tämäkään ei aiheuttanut ongelmia. ( minulla on mac office 2004 )

        Järjeselin noita sivuja ja testasin, edeleen toimi hyvin.

        Itse asiassa tuo toimii niin hyvin että pidän tuon makron henkilökohtaisessa makro kirjassa. Tuonko saisi vielä toimimaan nuolinäppäimistä

        ulkomuistista... VbLeft en ole varma miten se kirjoitetaan mutta ainakin {F1} on oikea muoto...

        Sub Auto_Open()
        Application.OnKey "{VbLeft}", "Vasemmalle"
        Application.OnKey "{VbRight}", "Oikealle"
        End Sub

        Sub Auto_Close()
        Application.OnKey "{VbLeft}"
        Application.OnKey "{VbRight}"
        End Sub


      • Nimimerkki
        kunde kirjoitti:

        ulkomuistista... VbLeft en ole varma miten se kirjoitetaan mutta ainakin {F1} on oikea muoto...

        Sub Auto_Open()
        Application.OnKey "{VbLeft}", "Vasemmalle"
        Application.OnKey "{VbRight}", "Oikealle"
        End Sub

        Sub Auto_Close()
        Application.OnKey "{VbLeft}"
        Application.OnKey "{VbRight}"
        End Sub

        Monessa tilanteessa olisi mukavempi vaihtaa sivua mnopeasti näppäimiltä, niin että ei tarvitse viedä kättä hiirelle ja sihdata oikeaan välilehteen.

        Ajattelin, jospa tuollainen olisi jo sisäänrakenettu ominaisuus, eipä löytynyt mitään näppäin yhdistelmää sille.

        Kiitos vinkistä, nyt varmasti löytyy nyt sopiva tapa vaihtaa taulukkoa.


      • Nimimerkki
        Nimimerkki kirjoitti:

        Monessa tilanteessa olisi mukavempi vaihtaa sivua mnopeasti näppäimiltä, niin että ei tarvitse viedä kättä hiirelle ja sihdata oikeaan välilehteen.

        Ajattelin, jospa tuollainen olisi jo sisäänrakenettu ominaisuus, eipä löytynyt mitään näppäin yhdistelmää sille.

        Kiitos vinkistä, nyt varmasti löytyy nyt sopiva tapa vaihtaa taulukkoa.

        No tällaisen sain nyt nuolilla toimiin.

        Käytän tässä nyt näppäimiä ALT ja COMMAND ja nuolia.

        Tuo yhdistelmä näkyi maalaavan reunaviivoja soluun, mutta koska en itse niitä tarvitse, yleensä jos soluja muotoilen niin joudun muutenkin käyttään hiirtä. Mutta katsokaa itse mikä on teille sopiva ja helpeistä miten se kirjoitetaan ( OnKey ).


        Henkilökohtaiseen makro kirjaan:

        Private Sub Workbook_Open()

        Application.OnKey "%*{LEFT}", "aktivoiEdellinen"
        Application.OnKey "%*{RIGHT}", "aktivoiSeuraava"
        Application.OnKey "%*{DOWN}", "aktivoiEka"

        End Sub



        Sub aktivoiEdellinen()
        If ActiveSheet.Index > 1 Then Sheets(ActiveSheet.Index - 1).Activate
        End Sub

        Sub aktivoiSeuraava()
        If ActiveSheet.Index < ActiveWorkbook.Sheets.Count Then Sheets(ActiveSheet.Index 1).Activate
        End Sub

        Sub aktivoiEka()
        Sheets(1).Activate
        End Sub


      • M.L.

        Ei toimi mun esimerkki oikein, jos osa taulukoista on kaaviotaulukoita. Ja jos on pelkästään kaaviotaulukoita, aiheutuu ikuinen silmukka. Olen jotenkin juuttunut tuohon Worksheet-objektiin niin, etten useinkaan muista, että muunkin tyyppisiä taulukoita on.

        Parempi versio, joka ei välitä siitä onko taulukko laskenta- vai kaaviotaulukko:

        Sub Edellinen()
        Dim I As Long
        I = ActiveSheet.Index
        Do
        I = I - 1
        If I = 0 Then I = Sheets.Count
        Loop Until Sheets(I).Visible = True
        Sheets(I).Activate
        End Sub

        Vimeistä taulukkoa en käsitellyt, kun pyydettiin ainoastaan siirtymistä vasemmalle, eli kohti ensimmäistä taulukkoa. Makro tarkastaa sen, ettei yritetä siirtyä piilotettuun taulukkoon.


        - Mika


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa

      On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t
      Maailman menoa
      173
      4376
    2. Vilma Nissinen pyytää anteeksi rasistisia lausuntojaan

      Nöyrtyi kuten persut yleensäkin. On kyllä noloa tuollainen vätystely, kun ei ole miestä seisoa omien lausuntojensa takan
      Maailman menoa
      118
      2737
    3. Ikävä sinua..

      Kauan on aikaa kulunut ja asioita tapahtunut. Mutta sinä M-ies olet edelleen vain mielessäni. En tiedä loinko sinusta va
      Ikävä
      27
      2396
    4. Riikka Purra: "Kokoomus haluaa leikata pienituloisten etuuksista - Se ei meille käy"

      Näin vakuutti persujen Purra edellisten eduskunta vaalien alla,. https://www.ku.fi/artikkeli/4910942-kun-uudessa-videos
      Maailman menoa
      58
      1867
    5. Riikka Purra sanoo, että sietokykyni vittumaisiin ihmisiin alkaa olla lopussa.

      https://www.iltalehti.fi/politiikka/a/be8f784d-fa24-44d6-b59a-b9b83b629b28 Riikka Purra sanoo medialle suorat sanat vitt
      Maailman menoa
      380
      1826
    6. Lindtmanin pääministeriys lähenee päivä päivältä

      Suomen kansan kissanpäivät alkavat siitä hetkestä, kun presidentti Stubb on tehnyt nimityksen. Ainoastaan ylin tulodesi
      Maailman menoa
      64
      1504
    7. Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä

      Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu
      Maailman menoa
      22
      1489
    8. Kapiainen siviiliesimies, Herra suuri Herra

      Sotilaana kyvytön, johtajana munaton ja kotona tossun alla. Se on upseerin uran tuen pää, seinään ajo. Mutta aina löytyy
      Sodankylä
      86
      1443
    9. Pitäisikö ilotulitteiden myynti kieltää?

      Esim jyväskylässä ainakin on ammuttu ilotulitteita päin ihmisiä ja autoja. Samoin Helsingissä? Pitäisikö ilotulitteiden
      Maailman menoa
      110
      1420
    10. Väärä pää tutustumiseen

      Mikä ihme on, että miehet haluavat ensimmäisenä sänkyyn? Onko nykyään niin helppo saada nainen peittojensa alle.. tai pä
      Ikävä
      163
      1291
    Aihe