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 ??
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 ??
Vastaukset 1
Vanhimmat
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