Como contar planilhas usando vba?

No Excel, se você tiver muitas planilhas, poderá usar o código VBA para contá-las rapidamente, em vez de contar manualmente ou usar qualquer fórmula. Portanto, no artigo veremos diferentes maneiras de contar as planilhas de uma pasta de trabalho.

Contar planilhas na pasta de trabalho ativa

Aqui está o código que você precisa usar para contar a planilha da pasta de trabalho ativa.

 ThisWorkbook.Sheets.Count

Neste código, primeiro você se referiu à pasta de trabalho ativa usando “ThisWorkbook” e se referiu a todas as planilhas, no final use o método count para contar todas as planilhas. E se você quiser contar planilhas em vez de planilhas, use o código a seguir.

 ThisWorkbook.Worksheets.Count

Links úteis: Executar uma macro – Gravador de macro – Editor Visual Basic – Manual pessoal de macros

Contar planilhas de outra pasta de trabalho

Você pode usar o nome da pasta de trabalho para consultá-la e depois contar as planilhas nela contidas. Suponha que você queira contar as planilhas da pasta de trabalho “Livro1”.

Aqui está o código.

 Workbooks("sample-file.xlsx").Sheets.Count

Este código fornece o número de planilhas que você tem na pasta de trabalho “sample-file.xlsx”. Há uma coisa que você precisa levar: este fichário precisa estar aberto.

Conte as folhas de todos os fichários abertos

Você pode ter várias pastas de trabalho abertas ao mesmo tempo e contar todas as planilhas em todas essas pastas de trabalho.

 Sub vba_loop_all_sheets() Dim wb As Workbook Dim i As Long For Each wb In Application.Workbooks If wb.Name <> "PERSONAL.XLSB" Then i = i + wb.Sheets.Count End If Next wb MsgBox "Total sheets in all the open workbooks: " & i End Sub

Contando as folhas de um fichário fechado

Agora temos algum código aqui que se refere à pasta de trabalho salva na área de trabalho do meu sistema. Quando executo esse código, ele abre esta pasta de trabalho no final e conta as planilhas nela contidas e, em seguida, adiciona essa contagem à célula A1.

 Sub vba_count_sheets() Dim wb As Workbook Application.DisplayAlerts = False Set wb = Workbooks.Open("C:UsersDellDesktopsample-file.xlsx") ThisWorkbook.Sheets(1).Range("A1").Value _ = wb.Sheets.Count wb.Close SaveChanges:=True Application.DisplayAlerts = True End Sub

Desativamos a exibição de alertas para abrir e fechar o arquivo no back-end.