VBA-Lição 3. Trabalhando com planilhas (Worksheet)

Esta coleção é um conjunto de planilhas (Sheets) em uma pasta de trabalho (Workbooks). Vamos ver quais ações podemos realizar nas planilhas.

Como contar o número de folhas de um livro

Primeiro, vamos tentar descobrir quantas folhas nosso livro tem:

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

Com este código, chamamos uma mensagem para a tela (MsgBox) que exibia a quantidade de planilhas (Sheets.Count) da pasta de trabalho (Workbooks) "Test.xls".

Uma planilha inclui não apenas células, mas também diagramas. Além disso, assim como a planilha de cálculo, o gráfico será incluído na contagem de planilhas.

Como adicionar uma folha a um livro

Na coleção de planilhas também é possível adicionar suas próprias planilhas, para isso existe um método Add. Este método possui 4 parâmetros Add (Before, After, Count, Type). Todos esses parâmetros são opcionais. Os dois primeiros são responsáveis pelo local de inserção da folha. A seguir, o número de folhas a serem inseridas Count e o tipo de folha Type. Os tipos podem ser, por exemplo, xlWorkSheet para uma planilha e xlChart para um gráfico. Se o local não for especificado, a planilha será inserida em relação à planilha atual.

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

Desta forma inserimos 4 folhas (Count:=4) após a folha "Folha3". Você também pode inserir uma folha bem no final do livro:

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

Como ocultar uma planilha

Se desejar, algumas letras podem ser ocultadas. Isto é útil se você tiver constantes ou cálculos que não deseja ver na tela na forma de letras. Você pode usar o método Visible para isso. Ao definir esta propriedade em TRUE ou FALSE você pode remover ou exibir a planilha necessária.

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