Как да използвате името на лист като променлива в Microsoft Excel 2007

Стъпка 1

Кликнете върху раздела "Програмист" и след това върху "Visual Basic", за да стартирате VB редактора. Кликнете върху менюто "Вмъкване" и след това върху "Модули", за да вмъкнете нов модул за код.

Стъпка 2

Новата подпрограма започва, както следва:

Sub namesNames ()

Стъпка 3

Създайте променливата "sheetName", за да запазите запис на имената на листовете и две променливи, които ще бъдат използвани като броячи по следния начин:

Dim dimName като стринг Dim xCntr като цяло число Dim shtCntr Като цяло число

Стъпка 4

Определете съдържанието на променливата "sheetName" с името на първата страница на Excel книгата, както следва:

sheetName = "Sheet1"

Стъпка 5

Дава на брояча стойността на 1, която представлява първата електронна таблица:

shtCntr = 1

Стъпка 6

Използвайте следния код, за да създадете цикъл "For ... Loop" през всеки лист във вашата Excel книга и да добавите името на листа към A1, като използвате променливата "sheetName":

За xCntr = 0 до 2

Работни листове (sheetName) .Активиране на диапазона ("A1") Изберете ActiveCell.FormulaR1C1 = RangeName Range ("A2") Изберете shtCntr = shtCntr + 1 sheetName = "Sheet" & shtCntr

Следващ xCntr