Cum se utilizează numele unei foi ca variabilă în Microsoft Excel 2007

Pasul 1

Faceți clic pe fila "Dezvoltator" și apoi pe "Visual Basic" pentru a porni editorul VB. Faceți clic pe meniul "Inserare" și apoi pe "Module" pentru a insera un nou modul de cod.

Pasul 2

O nouă subprocesare începe după cum urmează:

Sub sheetNames ()

Pasul 3

Creați variabila "sheetName" pentru a păstra o înregistrare a numelor foilor și a două variabile care vor fi utilizate ca contoare în modul următor:

Dim sheetName ca șir Dim xCntr ca număr întreg Dim shtCntr ca integer

Pasul 4

Definiți conținutul variabilei "sheetName" cu numele primei pagini a cărții dvs. Excel, după cum urmează:

sheetName = "Sheet1"

Pasul 5

Oferă contravalorii valoarea 1 care reprezintă prima foaie de calcul:

shtCntr = 1

Pasul 6

Utilizați următorul cod pentru a crea o buclă "For ... Loop" prin fiecare foaie din cartea dvs. de excelență și adăugați numele foii la A1 folosind variabila "sheetName":

Pentru xCntr = 0 Pentru 2

Foaie de lucru (listName) .Activate Range ("A1") Selectați ActiveCell.FormulaR1C1 = RangeName Range ("A2") Selectați shtCntr = shtCntr + 1 sheetName = "Sheet" & shtCntr

Înainte xCntr

Pasul 7

Apăsați "F5" pentru a executa procedura. În fiecare foaie de lucru A1 va conține numele foii.