/ / Buclă prin intermediul cărților și foilor în Excel VBA

Bucle prin cărți și foi în Excel VBA

Mai jos ne vom uita la un program în Excel VBA acea buclele prin toate registrele de lucru deschise și foile de lucru, și afișează toate numele.

Situatie:

Buclă prin exemple de cărți și foi

Adăugați următoarele linii de cod la butonul de comandă:

1. În primul rând, declarăm două obiecte și o variabilă. Un obiect de tip Carte de lucru pe care o numim cartea, un obiect de tip de foaie de lucru pe care îl numim foaie și o variabilă de tip String numim text.

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

2. Vrem să ne bifăm prin toate registrele de lucru deschise. Pentru a realiza acest lucru, adăugați următoarea linie de cod:

For Each book In Workbooks

3. În textul variabil se scrie textul "Workbook:", denumirea cărții de lucru și textul "Worksheets:".

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

Notă: puteți utiliza funcția & operator pentru a concatena (îmbina) elemente. Pentru a porni o linie nouă, puteți utiliza vbNewLine.

4. Pentru a trece prin toate foile de lucru ale unui registru de lucru, adăugați următoarea linie de cod:

For Each sheet In book.Worksheets

5. Vom scrie numele foilor de lucru ale unui registru de lucru la textul variabil.

text = text & sheet.Name & vbNewLine

6. Închideți a doua bucla.

Next sheet

7. Adăugați o linie albă.

text = text & vbNewLine

8. Nu uitați să închideți prima buclă.

Next book

9. În final, afișăm textul variabil utilizând un MsgBox.

MsgBox text

10. Testați programul. Înainte de a face clic pe butonul de comandă, dați foile de lucru unele denumiri descriptive și deschideți un alt registru de lucru necompletat.

Rezultat:

Bucle prin cărți și foi în Excel VBA

De asemenea, citiți: