Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Kliknite na kartu " Vývojár " , a kliknite na tlačidlo " Visual Basic " pre spustenie editora jazyka Visual Basic . Kliknite na menu " Vložiť " , a kliknite na tlačidlo " modul " vložiť nový kód modulu . 
 2 
 Spustenie nového podprocedura takto " 
 
 Sub sheetNames ( ) 
 
 Sims 3 
Vytvorte " sheetName " premenné sledovať názvy listov a dvoch premenných , ktoré majú byť použité ako čítače , takto : klipart
 Dim sheetName As String 
 
 Dim xCntr As Integer 
 
 Dim shtCntr As Integer 
 Stránka 4 
 Definujte obsah " sheetName " premenné s názvom prvého listu v zošite , takto : 
 
 sheetName = " Hárok1 " 
 5 
 Dajte čítač hodnotu 1 predstavujúci prvej tabuľky : 
 
 shtCntr = 1 
 6 
 Použiť nasledujúci kód vytvorí " pre ... Loop " pre sláčiky cez každý list v zošite a pridajte názov hárka A1 pomocou " sheetName " premenné : 
 
 xCntr = 0 až 2 
 
 listy ( sheetName ) . Aktivácia 
 
 Range ( " A1 " ) . Vyberte 
 
 ActiveCell.FormulaR1C1 = sheetName 
 
 Range ( " A2 " ) . vyberte 
 
 shtCntr = shtCntr + 1 
 
 sheetName = " list " a shtCntr 
 
 Ďalšie xCntr 
 7 
 Stlačte " F5 " pre spustenie postup . A1 v každej tabuľke bude obsahovať názov hárka . 
              
Copyright © počítačové znalosti Všetky práva vyhradené