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

909

    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. Persujen mukaan rasismi on huumoria

      Vaan kun koomikko kutsui Halla-ahoa fasistiksi, niin piti haastaa oikeuteen. Mihin se huumorinitaju yhtäkkiä hävisi? ⠀
      Maailman menoa
      242
      6384
    2. Rasismia kaikkialla näkevät ovat Suomen tyhmimpiä ihmisiä

      ja monillahan kuluu myös mielialalääkkeitä, eli päässä on ongelmia. Mutta he eivät tajua kuinka paljon ja ihan todellis
      Maailman menoa
      196
      5946
    3. Ei kahta sanaa etteikö Petteri Orpo hyväksy rasismia

      Koska jatkaa hallituksessa rasistisen perussuomalaisiksi itseään kutsuvan puolueen kanssa. Se on Petteri Orpon arvomaai
      Maailman menoa
      17
      5499
    4. Mitkäs nuorisoporukat ovat toisia nuoria ryöstelleet (selvää rassismia)

      No poliisi kertoo, että maahanmuuttajataustaisia ovat, ja isot porukat sillä yhden suomalaisen uhrin kimpussa on ollut j
      Maailman menoa
      80
      4191
    5. Hallitus on kaadettava ja Orpon on erottava

      Mikään muu hallitus ei ole oman elämäni aikana tuhonnut näin paljon tämän maan taloutta ja työllisyyttä sekä suomen main
      Maailman menoa
      143
      3523
    6. Lasse Lehtonen vaatii persuja pyytämään anteeksi aasialaisilta

      Persut ova romahduttaneet Suomen maakuvan parissa päivässä negatiiviseksi rasismillaan ja se alkaa vaikuttamaan jo Suome
      Maailman menoa
      130
      3323
    7. HS 12/25 kysely: persut romahti, demarit raketoi

      Kyyti on kylmää persuleirissä, saattaa vetää siellä silmätkin viirulleen. Sen sijaan SDP:n puoluetoimistolla voidaan pok
      Maailman menoa
      23
      3036
    8. Töppö-persut ovat todella tyhmiä

      sen kertoo tämäkin avaus: "Persujen suosio vain laskee" Töppö-persu vaan unohtaa, että ennen tätä galluppia persujen kan
      Maailman menoa
      8
      2502
    9. Rasismi rapauttaa Suomen mainetta ja hallituksen hiljaisuus pahentaa vahinkoa

      Finnairin viesti Japanista on pysäyttävä: suomalaisen politiikan rasismikohut heijastuvat suoraan matkustuspäätöksiin ja
      Maailman menoa
      263
      2449
    10. Lasse Lehtonen palasi ambulanssilennolla Suomeen

      Nyt on syytä lopettaa irvailu.
      Maailman menoa
      130
      2284
    Aihe