VBA-Lección 3. Colección Sheets

Esta colección es un conjunto de hojas (Sheets) en un libro de trabajo (Workbooks). Veamos qué acciones podemos hacer en las hojas.

Cómo contar el número de hojas en un libro

Primero, intentemos averiguar cuántas hojas tiene nuestro libro:

Sub Test() 'moonexcel.com.ua
	MsgBox (Str(Application.Workbooks.Item("Test.xls").Sheets.Count))
End Sub

Con este código, llamamos un mensaje a la pantalla (MsgBox), que mostraba la cantidad de hojas (Sheets.Count) en el libro de trabajo (Workbooks) "Test.xls".

Una hoja incluye no solo celdas, sino también diagramas. Además, al igual que la hoja de cálculo, el gráfico se incluirá en el recuento de hojas.

Cómo agregar una hoja a un libro

En la colección de hojas, también es posible agregar sus propias hojas, para esto existe un método Add. Este método tiene 4 parámetros Add(Before, After, Count, Type). Todos estos parámetros son opcionales. Los dos primeros son responsables del lugar de inserción de la hoja. A continuación, el número de hojas a insertar Count y el tipo de hoja Type. Los tipos pueden ser, por ejemplo, xlWorkSheet para una hoja de cálculo y xlChart para un gráfico. Si no se especifica la ubicación, la hoja se insertará en relación con la hoja actual.

Sub Test() 'moonexcel.com.ua
    Sheets.Add After:=Worksheets("Hoja 3"), Count:=4
End Sub

Por lo tanto, hemos insertado 4 hojas (Count:=4) después de la hoja "Hoja3". También puede insertar una letra al final del libro:

Sub Test() 'moonexcel.com.ua
	Worksheets.Add
	ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
End Sub

Cómo ocultar una hoja

Si lo desea, se pueden ocultar algunas letras. Esto es útil si tiene constantes o cálculos que no desea ver en la pantalla en forma de letras. Puede usar el método Visible para esto. Al establecer esta propiedad en TRUE o FALSE, puede eliminar o mostrar la hoja requerida.

Sub Test() 'moonexcel.com.ua
	ActiveWorkbook.Sheets("Hoja 3").Visible = False
End Sub