Jak používat název listu jako proměnné v aplikaci Microsoft Excel 2007

Krok 1

Klikněte na kartu "Developer" a potom na "Visual Basic" pro spuštění editoru VB. Klikněte na nabídku "Vložit" a potom na "Moduly" vložte nový kódový modul.

Krok 2

Nový podproces začíná následovně:

Sub listNames ()

Krok 3

Vytvořte proměnnou "listName", aby se zachovala záznam názvů listů a dvou proměnných, které budou použity jako čítače následujícím způsobem:

Dim nameName jako řetězec Dim xCntr jako celé číslo Dim shtCntr jako celé číslo

Krok 4

Definujte obsah proměnné "sheetName" s názvem první stránky knihy Excel takto:

sheetName = "List1"

Krok 5

Dává čítači hodnotu 1, která představuje první tabulku:

shtCntr = 1

Krok 6

Pomocí následujícího kódu vytvořte smyčku "For ... Loop" přes každý list v knize programu Excel a přidejte název listu A1 pomocí proměnné "sheetName":

Pro xCntr = 0 Do 2

Tabulky (listName) .Activate Range ("A1") Zvolte ActiveCell.FormulaR1C1 = RangeName Range ("A2") Vyberte shtCntr = shtCntr + 1 sheetName = "Sheet" & shtCntr

Další xCntr

Krok 7

Stiskněte tlačítko "F5" pro provedení postupu. V každém listu A1 bude obsahovat název listu.