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é