Excel VBA'daki Kitaplar ve E-Tablolar üzerinden Dön

Aşağıda bir programa bakacağız Excel VBA o tüm açık çalışma kitaplarında ve çalışma sayfalarında dolaşırve tüm isimleri görüntüler.

Durum:

Kitaplar ve E-Tablolar Örneği'nden Döngü

Komut düğmesine aşağıdaki kod satırlarını ekleyin:

1. İlk olarak, iki nesneyi ve bir değişkeni beyan ederiz. Kitabın adını verdiğimiz bir Çalışma Kitabının bir nesnesi, biz çarşaf olarak adlandırdığımız Çalışma Sayfası'nın bir nesnesi ve metin dediğimiz tür bir değişken.

Dim book As Workbook, sheet As Worksheet, text As String

2. Tüm açık çalışma kitaplarına geçiş yapmak istiyoruz. Bunu başarmak için aşağıdaki kod satırını ekleyin:

For Each book In Workbooks

3. "Çalışma Kitabı:" metnini, çalışma kitabının adını ve değişken metne "Çalışma Sayfaları:" metnini yazıyoruz.

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

Not: öğelerini birleştirmek (birleştirmek) için & operatörünü kullanabilirsiniz. Yeni bir satır başlatmak için, vbNewLine'ı kullanabilirsiniz.

4. Çalışma kitabının tüm çalışma sayfalarını döngülemek için aşağıdaki kod satırını ekleyin:

For Each sheet In book.Worksheets

5. Bir çalışma kitabının çalışma sayfalarının isimlerini değişken metne yazarız.

text = text & sheet.Name & vbNewLine

6. İkinci döngüyü kapatın.

Next sheet

7. Beyaz çizgi ekleyin.

text = text & vbNewLine

8. İlk döngüyü kapatmayı unutmayın.

Next book

9. Son olarak, değişken metni bir MsgBox kullanarak görüntüleriz.

MsgBox text

10. Programı test edin. Komut düğmesini tıklatmadan önce, çalışma sayfalarınıza açıklayıcı bir ad verin ve boş bir çalışma kitabı açın.

Sonuç:

Excel VBA'daki Kitaplar ve E-Tablolar üzerinden Dön