Contar hojas | Tutorial de Excel VBA

En Excel, si tienes muchas hojas, puedes usar un código VBA para contarlas rápidamente en lugar de contarlas manualmente o usar cualquier fórmula. Entonces, en la publicación veremos diferentes formas de contar hojas de un libro de trabajo.

Contar hojas del libro activo

A continuación se muestra el código que debe utilizar para contar la hoja del libro activo.

>ThisWorkbook.Sheets.Count

En este código, primero, se hace referencia al libro de trabajo activo usando «Este libro de trabajo» y se hace referencia a todas las hojas; al final, se usa el método de conteo para contar todas las hojas. Y si desea contar las hojas de trabajo en lugar de las hojas, utilice el siguiente código.

ThisWorkbook.Worksheets.Count

Enlaces útiles: Ejecutar una macro – Grabador de macros – Editor de Visual Basic – Libro de macros personal

Contar hojas de un libro diferente

Puede utilizar el nombre del libro para hacer referencia y luego contar las hojas del mismo. Digamos que desea contar las hojas del libro «Libro1».

Aquí está el código.

Workbooks(«sample-file.xlsx»).Sheets.Count

Este código le proporciona el recuento de hojas que tiene en el libro de trabajo «sample-file.xlsx». Hay una cosa que debe tomar: este libro de trabajo debe estar abierto.

Contar hojas de todos los libros abiertos

Es posible que tenga más de un libro abierto al mismo tiempo y pueda contar todas las hojas de todos esos libros.

Sub vba_loop_all_sheets()Dim wb As WorkbookDim i As LongFor Each wb In Application.Workbooks If wb.Name <> «PERSONAL.XLSB» Then i = i + wb.Sheets.Count End IfNext wbMsgBox «Total sheets in all the open workbooks: » & iEnd Sub

Contar hojas de un libro cerrado

Ahora aquí tenemos un código que se refiere al libro que está guardado en el escritorio de mi sistema. Cuando ejecuto este código, abre ese libro de trabajo en la parte posterior, cuenta las hojas y luego agrega ese recuento a la celda A1.

Sub vba_count_sheets()Dim wb As WorkbookApplication.DisplayAlerts = FalseSet wb = Workbooks.Open(«C:UsersDellDesktopsample-file.xlsx»)ThisWorkbook.Sheets(1).Range(«A1»).Value _= wb.Sheets.Countwb.Close SaveChanges:=TrueApplication.DisplayAlerts = TrueEnd Sub

Hemos desactivado las alertas de visualización para abrir y cerrar el archivo en el backend.

Preguntas frecuentes sobre el tutorial de Excel VBA – Blog

Contar hojas | Tutorial de Excel VBA

El tutorial de Excel VBA es una excelente fuente de información para aquellos que desean automatizar tareas en Excel y aprovechar al máximo las capacidades de la programación en Visual Basic for Applications. Sin embargo, es común que surjan preguntas durante el proceso de aprendizaje. A continuación, responderemos algunas de las preguntas más frecuentes relacionadas con el conteo de hojas en Excel utilizando VBA.

1. ¿Cómo puedo contar el número de hojas en un libro de Excel usando VBA?

Para contar el número de hojas en un libro de Excel mediante VBA, puedes utilizar el siguiente código:

VBA
Sub ContarHojas()
Dim NumHojas As Integer
NumHojas = Worksheets.Count
MsgBox «El libro contiene » & NumHojas & » hojas.»
End Sub

Este código utiliza la propiedad «Count» para obtener el número de hojas en el libro actual y luego muestra un mensaje con el resultado utilizando la función «MsgBox».

2. ¿Puedo contar solo las hojas visibles en un libro?

Sí, es posible contar solo las hojas visibles en un libro de Excel utilizando el siguiente código:

VBA
Sub ContarHojasVisibles()
Dim NumHojasVisibles As Integer
Dim Hoja As Worksheet

NumHojasVisibles = 0

For Each Hoja In Worksheets
If Hoja.Visible Then
NumHojasVisibles = NumHojasVisibles + 1
End If
Next Hoja

MsgBox «El libro contiene » & NumHojasVisibles & » hojas visibles.»
End Sub

Este código utiliza un bucle «For Each» para recorrer todas las hojas del libro y verifica si cada hoja está visible utilizando la propiedad «Visible». Si la hoja es visible, se incrementa el contador. Al final, se muestra un mensaje con el número de hojas visibles encontradas.

3. ¿Puede un libro de Excel tener más de 255 hojas?

Sí, desde la versión de Excel 2007 en adelante, es posible tener más de 255 hojas en un libro. Las versiones anteriores de Excel tenían una limitación de 255 hojas. Sin embargo, cabe mencionar que tener un número excesivamente alto de hojas puede afectar el rendimiento del libro y hacerlo más lento.

4. ¿Hay alguna forma de contar el número total de celdas en todas las hojas de un libro de Excel mediante VBA?

Sí, puedes utilizar el siguiente código para contar el número total de celdas en todas las hojas de un libro de Excel:

VBA
Sub ContarCeldasTotales()
Dim TotalCeldas As Long
Dim Hoja As Worksheet

TotalCeldas = 0

For Each Hoja In Worksheets
TotalCeldas = TotalCeldas + Hoja.Cells.Count
Next Hoja

MsgBox «El libro contiene un total de » & TotalCeldas & » celdas.»
End Sub

Este código utiliza el bucle «For Each» para recorrer todas las hojas del libro y suma el número de celdas en cada hoja utilizando la propiedad «Cells.Count». Al final, muestra un mensaje con el número total de celdas encontradas.

Esperamos que estas respuestas te sean de ayuda mientras exploras el fascinante mundo de Excel VBA. Si tienes más preguntas, te recomendamos visitar los siguientes recursos:

¡Estamos seguros de que encontrarás respuestas a todas tus preguntas y que te convertirás en un experto en Excel VBA en poco tiempo!

 ThisWorkbook.Sheets.Count 

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

 


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 

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 

Sub ContarHojas()


    Dim NumHojas As Integer


    NumHojas = Worksheets.Count


    MsgBox "El libro contiene " & NumHojas & " hojas."


End Sub 

Sub ContarHojasVisibles()


    Dim NumHojasVisibles As Integer


    Dim Hoja As Worksheet


    NumHojasVisibles = 0


    For Each Hoja In Worksheets


        If Hoja.Visible Then


            NumHojasVisibles = NumHojasVisibles + 1


        End If


    Next Hoja


    MsgBox "El libro contiene " & NumHojasVisibles & " hojas visibles."


End Sub