VBA-Lezione 3. Lavorare con i fogli (Worksheet)

Questa raccolta è un insieme di fogli (Sheets) in una cartella di lavoro (Workbooks). Vediamo quali azioni possiamo eseguire sui fogli.

Come contare il numero di fogli di un libro

Per prima cosa proviamo a scoprire quanti fogli ha il nostro libro:

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

Con questo codice, abbiamo richiamato un messaggio sullo schermo (MsgBox) che mostrava il numero di fogli (Sheets.Count) nella cartella di lavoro (Workbooks) "Test.xls".

Un foglio include non solo celle, ma anche diagrammi. Inoltre, come il foglio di calcolo, anche il grafico verrà incluso nel conteggio dei fogli.

Come aggiungere un foglio a un libro

Nella raccolta dei fogli è anche possibile aggiungere i propri fogli, per questo esiste un metodo Add. Questo metodo ha 4 parametri Add(Before, After, Count, Type). Tutti questi parametri sono facoltativi. I primi due sono responsabili del luogo di inserimento del foglio. Successivamente, il numero di fogli da inserire Count e il tipo di foglio Type. I tipi possono essere, ad esempio, xlWorkSheet per un foglio di calcolo e xlChart per un grafico. Se la posizione non è specificata, il foglio verrà inserito rispetto al foglio corrente.

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

In questo modo abbiamo inserito 4 fogli (Count:=4) dopo il foglio "Sheet3". Puoi anche inserire un foglio alla fine del libro:

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

Come nascondere un foglio

Se lo desideri, alcune lettere possono essere nascoste. Ciò è utile se hai costanti o calcoli che non vuoi vedere sullo schermo sotto forma di lettere. A questo scopo è possibile utilizzare il metodo Visible. Impostando questa proprietà in TRUE o FALSE è possibile rimuovere o visualizzare il foglio richiesto.

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