Microsoft Excel 2007'de bir sayfanın adını değişken olarak nasıl kullanılır

1. Adım

VB editörünü başlatmak için "Geliştirici" sekmesine ve ardından "Visual Basic" seçeneğine tıklayın. Yeni bir kod modülü eklemek için "Ekle" menüsüne ve ardından "Modüller" e tıklayın.

2. Adım

Yeni bir alt prosedür şu şekilde başlar:

Alt sayfa adları ()

3. adım

Sayfaların adlarının ve sayaç olarak kullanılacak iki değişkenin kaydını aşağıdaki şekilde tutmak için "sheetName" değişkenini oluşturun:

Dim sheetName As Dize Dim xCntr Tam Tamsayı Olarak Dim shtCntr Tamsayı

4. Adım

"SheetName" değişkeninin içeriğini excel kitabınızın ilk sayfasının adıyla aşağıdaki gibi tanımlayın:

sheetName = "Sayfa1"

Adım 5

Sayacı, ilk elektronik tabloyu temsil eden 1 değerini verir:

shtCntr = 1

6. Adım

Excel sayfanızdaki her sayfadan bir "For ... Loop" döngüsü oluşturmak için aşağıdaki kodu kullanın ve "sheetName" değişkenini kullanarak sayfanın adını A1'e ekleyin:

XCntr için = 0'a 2

Çalışma Sayfaları (sheetName) .Açıklama Aralığı ("A1") ActiveCell.FormulaR1C1 = sheetName Range ("A2") öğesini seçin. ShtCntr = shtCntr + 1 sheetName = "Sheet" & shtCntr öğesini seçin.

Sonraki xCntr

7. adım

Prosedürü uygulamak için "F5" e basın. Her çalışma sayfasında A1, sayfanın adını içerecektir.