VBA-Lecția 3. Lucrul cu foi (Worksheet)

Această colecție este un set de foi (Sheets) într-un registru de lucru (Workbooks). Să vedem ce acțiuni putem face pe foi.

Cum se numără numărul de foi dintr-o carte

Mai întâi, să încercăm să aflăm câte foi are cartea noastră:

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

Cu acest cod, am apelat un mesaj pe ecran (MsgBox) care afișa numărul de foi (Sheets.Count) din registrul de lucru (Workbooks) „Test.xls”.

O foaie include nu numai celule, ci și diagrame. De asemenea, ca și foaia de calcul, graficul va fi inclus în numărul de foi.

Cum să adăugați o foaie la o carte

În colecția de foi, este și posibil să adăugați propriile foi, pentru aceasta există o metodă Add. Această metodă are 4 parametri Add(Before, After, Count, Type). Toți acești parametri sunt opționali. Primele două sunt responsabile de locul de introducere a foii. În continuare, numărul de foi de inserat Count și tipul de foi Type. Tipurile pot fi, de exemplu, xlWorkSheet pentru o foaie de calcul și xlChart pentru o diagramă. Dacă locația nu este specificată, foaia va fi inserată relativ la foaia curentă.

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

Astfel am introdus 4 foi (Count:=4) după foaia „Sheet3”. De asemenea, puteți introduce o foaie chiar la sfârșitul cărții:

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

Cum să ascunzi o foaie

Dacă doriți, unele litere pot fi ascunse. Acest lucru este util dacă aveți constante sau calcule pe care nu doriți să le vedeți pe ecran sub formă de litere. Puteți utiliza metoda Visible pentru aceasta. Setând această proprietate în TRUE sau FALSE, puteți elimina sau afișa foaia necesară.

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