Cara menggunakan nama sheet sebagai variabel di Microsoft Excel 2007

Langkah 1

Klik pada tab "Pengembang" dan kemudian pada "Visual Basic" untuk memulai editor VB. Klik pada menu "Sisipkan" dan kemudian pada "Modul" untuk memasukkan modul kode baru.

Langkah 2

Subprocedure baru dimulai sebagai berikut:

SubstartNames ()

Langkah 3

Buat variabel "sheetName" untuk menyimpan catatan nama-nama lembar dan dua variabel yang akan digunakan sebagai penghitung dengan cara berikut:

Dim sheetName Sebagai String Dim xCntr As Integer Dim shtCntr As Integer

Langkah 4

Tentukan isi variabel "sheetName" dengan nama halaman pertama buku excel Anda, sebagai berikut:

sheetName = "Sheet1"

Langkah 5

Memberikan penghitung nilai 1 yang mewakili spreadsheet pertama:

shtCntr = 1

Langkah 6

Gunakan kode berikut untuk membuat loop "For ... Loop" melalui setiap lembar dalam buku excel Anda dan tambahkan nama sheet ke A1 menggunakan variabel "sheetName":

Untuk xCntr = 0 hingga 2

Worksheets (sheetName) .Aktifkan Rentang ("A1"). Pilih ActiveCell.FormulaR1C1 = sheetName Range ("A2"). Pilih shtCntr = shtCntr + 1 sheetName = "Sheet" & shtCntr

XCntr berikutnya

Langkah 7

Tekan "F5" untuk menjalankan prosedur. Di setiap lembar kerja A1 akan berisi nama lembar.