Aşağıda bir programa bakacağız Excel VBA'sı o tüm açık çalışma kitapları ve çalışma sayfaları arasında geçiş yapar, ve tüm adları görüntüler.
Durum:
Komut düğmesine aşağıdaki kod satırlarını ekleyin:
1. İlk önce iki nesne ve bir değişken tanımlıyoruz. Çalışma Kitabı türünden bir nesne kitap olarak adlandırırız, Çalışma Sayfası türünden bir nesne sayfa olarak adlandırırız ve Dize türünde bir değişken metin olarak adlandırırız.
Dim book As Workbook, Sheet As Worksheet, Metin As String
2. Tüm açık çalışma kitaplarını dolaşmak istiyoruz. Bunu başarmak için aşağıdaki kod satırını ekleyin:
Çalışma Kitaplarındaki Her Kitap İçin
3. Değişken metnine "Çalışma Kitabı:" metnini, çalışma kitabının adını ve "Çalışma Sayfaları: "" metnini yazıyoruz.
text = text & "Çalışma Kitabı: " & book.Name & vbNewLine & "Çalışma Sayfaları: " & vbNewLine
Not: Öğeleri birleştirmek (birleştirmek) için & operatörünü kullanabilirsiniz. Yeni bir satır başlatmak için vbNewLine'ı kullanabilirsiniz.
4. Bir çalışma kitabının tüm çalışma sayfalarında dolaşmak için aşağıdaki kod satırını ekleyin:
Kitaptaki Her Sayfa İçin. Çalışma Sayfaları
5. Değişken metne bir çalışma kitabının çalışma sayfalarının isimlerini yazıyoruz.
metin = metin ve sayfa.Ad ve vbNewLine
6. İkinci döngüyü kapatın.
Sonraki sayfa
7. Beyaz bir çizgi ekleyin.
metin = metin ve vbNewLine
8. İlk döngüyü kapatmayı unutmayın.
Sıradaki kitap
9. Son olarak, bir MsgBox kullanarak değişken metni görüntülüyoruz.
MsgBox metni
10. Programı test edin. Komut düğmesine tıklamadan önce, çalışma sayfalarınıza bazı açıklayıcı adlar verin ve üç çalışma sayfası içeren boş bir çalışma kitabı açın.
Sonuç:
