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

827

    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. Järkyttävä tieto Purrasta

      Purra tapasi nykyisen miehensä täällä. Suomi24:ssä! Tulipa likainen olo. Nyt loppuu tämä roikkuminen tällä palstalla.
      Maailman menoa
      233
      5430
    2. Näin asia on

      Tiedän ettei hän koskaan aio lähestyä minua eikä niin ole koskaan aikonutkaan, eikä lähesty ja enkä minä enää tee sitä k
      Ikävä
      23
      3790
    3. Taas varoitusta lumesta ja jäästä

      Ai kauhea! Vakava säävaroitus Lumi-/jäävaroitus Varsinais-Suomi, Satakunta, Uusimaa, Kanta-Häme, Päijät-Häme, Pirkanmaa,
      Maailman menoa
      18
      2284
    4. Mikseivät toimittajat vaadi Orpoa vastuuseen lupauksistaan

      Missä ne 100.000 uutta työpaikkaa muka ovat? Eivät yhtään missään. Näin sitä Suomessa voi puhua ja luvata mitä sattuu. E
      Maailman menoa
      285
      2162
    5. Aavistan tai oikeastaan

      tiedän, että olet hulluna minuun. Mutta ilman kommunikointia, tällaisenaan tilanne ja kaikki draama ovat mun näkökulmast
      Ikävä
      48
      1421
    6. Mistä erotat onko joku kiinnostunut vai muuten mukava?

      Voi sekaantua yleiseen ystävällisyyteen vai voiko?
      Suhteet
      161
      1269
    7. Poliisi tahtoo pääsyn 4 miljoonan suomalaisen sormenjälkiin.

      https://www.is.fi/digitoday/art-2000011009633.html Tämä sormenjälkiin poliisin pääsy on erittäin tärkeä rikollisten kiin
      Maailman menoa
      130
      1165
    8. Örebro kuolleet lisääntyy.

      Nyt n, 10. Mitähän vielä. Haavoittuneet?. Kuka on ampuja, salaisuus.
      Maailman menoa
      120
      1018
    9. Sulla on upeat pakarahalihakset

      todella hyvä muoto...
      Ikävä
      34
      930
    10. J. Et tullut.

      Ei se mitään. Perjantaina tulee joku muu. M.
      Ikävä
      161
      807
    Aihe