Piilotetut taulukot 1-10 näkyviin VBA:lla

Anonyymi

Hei.
Minulla on excelissä 50 taulukkoa piilossa Taul(1)...Taul(50)
Yritän tehdä painiketta jolla saan näkyviin haluamani taulukot esim. Taul(1)...Taul(10)
Eli:
Painiketta klikkaamalla "syöttölaatikko" johon kirjoitetaan luku jollainen määrä taulukoita halutaan näkyviin, esim. 10

Sub näytä_laskentataulukot()
Dim x As Integer

x = InputBox("taulukoiden määrä")
For numtimes = 1 To x
'Loop by using x as the index number to make x number copies.

Miten sen jälkeen ??

1

584

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Helpoin ja ehkä fiksuin tapa on
      lukea kaikki taulukoiden nimet esim. A -sarakkeeseen
      B-sarakkeesen fontiksi Marlet ja kirjain a Ok merkiksi valintaan
      valinta taulukon näytölle tehdään tuplaklikkaamalla B- sarakkeessa halutun taulukon kohdalla B-sarakkeessa ja piilotus vastaavasti tuplaklikkaamalla
      Koodi esim. Worksheet_BeforeDoubleClick tapahtumaan ja tutkitaan sitten onko a -kirjain vaiko tyhäja sen mukaan näytetään/piilotetaan taulukko

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

    Luetuimmat keskustelut

    1. Täti-ihminen Sofia ja nuori kanadalainen lätkänpelaaja

      Sofialla on kiikarissa Logan Thompson 25v, Las Vegasissa pelaava kanadalaispelaaja. Tätä se kai tarkoitti, kun sanoi Seiskalle, ettei tiedä kuinka pit
      Kotimaiset julkkisjuorut
      219
      4891
    2. Some pillastui: Farmin voitto pedattiin Teemulle?!? "Törkee temppu" "Taina oli ihan vailla mahiksia"

      Ohhoh, Farmi-kaksintaistelu ja finaali on saanut tunteet kuumiksi - ja ehkä syystäkin Suomi24 Keskustelu -palstalla... Olisiko Tainalla ollut mahdolli
      Suomalaiset julkkikset
      42
      4279
    3. Suomessa todettu ilmeisesti eka apinarokkotapaus

      Euroopassa matkailleella miehellä. https://www.is.fi/kotimaa/art-2000008841676.html
      Maailman menoa
      141
      2288
    4. Voiko Martinaa muuta kuin nauraa

      Baha oli "tiedän, että ollaan loppuelämä yhdessä."😂 Pikkarainen oli " tässä on nyt se oikea ihminen, en luovu susta koskaan."😂 Lippispojasta sanoo "
      Kotimaiset julkkisjuorut
      386
      2188
    5. Mitäs ajattelisit

      Jos saisit häneltä tänään pienessä sievässä lähetetyn viestin puhelimeen "haluan nähdä" tai "ikävä"?
      Ikävä
      112
      1441
    6. Raju tilitys Stefan T, nyt aloitti Sofia haukkumiset ja käy terapiassa.

      Siitä nähtiin taas, Sofia alkoi heti syyttelyt ja kaikki kertonut Seiskassa,ei osannut tätäkään nainen pitää suutaan kiinni erosta.
      Kotimaiset julkkisjuorut
      325
      1395
    7. Sofia ilmestyi eilen illalla instaansa, on silmät surulliset ja koko kasvojen olemus .

      Ei ole koskaan helppoa eroa olemassa, vaikka kuinka sitä toisin jotkut väittävät.
      Kotimaiset julkkisjuorut
      55
      1237
    8. Seiska: Sofia Belorf haki terapeutilta apua - Avautuu Stefan Thermanista: "Räjähdysherkkä ilotulite"

      Sofia Belórf avautuu miesystäviensä Stefan Thermanin ja Niko Ranta-ahon yhteisistä piirteistä Seiskalle. Therman heitti Sofian tavarat ulos ikkunasta
      Kotimaiset julkkisjuorut
      46
      1231
    9. Onko kaivatullasi jokin taito

      millä saada sinut polvilleeen?
      Ikävä
      48
      1092
    10. Voitko kertoa rakas

      mikä sen muutoksen sinussa aiheutti?
      Ikävä
      104
      961
    Aihe