VBA-Lekcja 3. Praca z arkuszami (Worksheet)

Ta kolekcja to zestaw arkuszy (Sheets) w skoroszycie (Workbooks). Zobaczmy jakie akcje możemy wykonać na arkuszach.

Jak policzyć liczbę arkuszy w książce

Najpierw spróbujmy dowiedzieć się, ile arkuszy ma nasza książka:

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

Za pomocą tego kodu wywołaliśmy komunikat na ekran (MsgBox), który wyświetlał liczbę arkuszy (Sheets.Count) w skoroszycie (Workbooks) „Test.xls”.

Arkusz zawiera nie tylko komórki, ale także diagramy. Podobnie jak arkusz kalkulacyjny, wykres zostanie uwzględniony w liczbie arkuszy.

Jak dodać arkusz do książki

W kolekcji arkuszy istnieje także możliwość dodania własnych arkuszy, służy do tego metoda Add. Ta metoda ma 4 parametry Add(Before, After, Count, Type). Wszystkie te parametry są opcjonalne. Pierwsze dwa odpowiadają za miejsce włożenia arkusza. Następnie liczba arkuszy do wstawienia Count i typ arkusza Type. Typami mogą być na przykład xlWorkSheet w przypadku arkusza kalkulacyjnego i xlChart w przypadku wykresu. Jeśli lokalizacja nie zostanie określona, arkusz zostanie wstawiony względem bieżącego arkusza.

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

W ten sposób wstawiliśmy 4 arkusze (Count:=4) po arkuszu „Arkusz3”. Można także wstawić kartkę na samym końcu książki:

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

Jak ukryć prześcieradło

Jeśli chcesz, niektóre litery można ukryć. Jest to przydatne, jeśli masz stałe lub obliczenia, których nie chcesz widzieć na ekranie w postaci liter. Możesz w tym celu użyć metody Visible. Ustawiając tę właściwość w TRUE lub FALSE, możesz usunąć lub wyświetlić wymagany arkusz.

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