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

839

    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. En voi jutella kanssasi

      tietenkään, mutta täällä voin sanoa sinulle, että se sinun hiljaisuutesi ja herkkyytesi eivät ole heikkoutta. Ne ovat ih
      Tunteet
      57
      7340
    2. Trump ja Vance murskasivat ja nolasivat Zelenskyn tiedotusvälineiden edessä Valkoisessa talossa.

      Jopa oli uskomaton tilaisuus Valkoisessa talossa. Zelensky jäi täydelliseksi lehdellä soittelijaksi suhteessa Trumpiin j
      Maailman menoa
      739
      3604
    3. Zelenskyi ei suostunut nöyrtymään Trumpin ja Vancen edessä, siksi meni pieleen

      Trumppia täytyy imarrella, silloin homma toimii aina. Tähän Zelenskyi ei suostunut.
      Maailman menoa
      372
      1988
    4. Mikä on kaivattusi ärsyttävin piirre?

      Mun kaivattu on erittäin vastahakoinen puhumaan itsestä. Kääntää puheenaiheen aina muuhun kun hänestä tulee puhetta.
      Ikävä
      165
      1826
    5. Koska olet rakastellut

      Kaivattusi kanssa viimeksi?
      Ikävä
      86
      1479
    6. Kokoomus haluaa hoitaa flussat yksityisellä, jotta säästettäisiin rahaa ja aikaa

      Mies hakeutui Terveystalo Kamppiin flunssaoireiden takia helmikuisena sunnuntai-iltana. Diagnoosiksi kirjattiin influens
      Maailman menoa
      84
      1401
    7. Miten saisin

      Sinut omakseni?
      Ikävä
      91
      1300
    8. Anteeksi Pekka -vedätys

      Apuna Ry:n somessa levinnyt Anteeksi Pakka -kampanja saa aina vaan kummallisempia piirteitä. ”Mä pyydän anteeksi. Mä
      Maailman menoa
      63
      1257
    9. Rakkaus ei iloitse vääryydestä vaan iloitsee yhdessä TOTUUDEN kanssa.

      Tajuatteko, että jotkut ihmiset pitävät siitä, kun toiset kaatuvat? He nauttivat siitä, kun toiset mokaavat tai käyttävä
      Idän uskonnot
      262
      1251
    10. Kumpi tästä

      Teidän tilanteesta teki vaikeaa? Sivusta
      Ikävä
      81
      1164
    Aihe