Jak używać nazwy arkusza jako zmiennej w programie Microsoft Excel 2007

Krok 1

Kliknij zakładkę "Developer", a następnie "Visual Basic", aby uruchomić edytor VB. Kliknij menu "Wstaw", a następnie "Moduły", aby wstawić nowy moduł kodu.

Krok 2

Nowy podprocedura rozpoczyna się w następujący sposób:

Sub sheetNames ()

Krok 3

Utwórz zmienną "sheetName", aby zachować zapis nazw arkuszy i dwóch zmiennych, które będą używane jako liczniki w następujący sposób:

Dim sheetName As String Dim xCntr Jako Integer Dim shtCntr As Integer

Krok 4

Zdefiniuj zawartość zmiennej "sheetName" z nazwą pierwszej strony twojej książki Excel w następujący sposób:

sheetName = "Sheet1"

Krok 5

Przydziela licznikowi wartość 1, która reprezentuje pierwszy arkusz kalkulacyjny:

shtCntr = 1

Krok 6

Użyj poniższego kodu, aby utworzyć pętlę "For ... Loop" poprzez każdy arkusz w swojej książce Excel i dodaj nazwę arkusza do A1, używając zmiennej "sheetName":

Dla xCntr = 0 To 2

Arkusz roboczy (sheetName) .Aktywuj zakres ("A1") Wybierz ActiveCell.FormulaR1C1 = SheetName Range ("A2") Wybierz shtCntr = shtCntr + 1 sheetName = "Sheet" & shtCntr

Następny xCntr

Krok 7

Naciśnij "F5", aby wykonać procedurę. W każdym arkuszu A1 będzie zawierać nazwę arkusza.