VBA-第 3 课。使用工作表 (Worksheet)

该集合是工作簿 (Workbooks) 中的一组工作表 (Sheets)。让我们看看我们可以在工作表上执行哪些操作。

如何计算一本书的页数

首先，让我们尝试找出我们的书有多少页：

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

使用此代码，我们向屏幕 (MsgBox) 调用一条消息，该消息显示工作簿 (Workbooks)“Test.xls”中的工作表数量 (Sheets.Count)。

工作表不仅包含单元格，还包含图表。此外，与计算表一样，图表也将包含在表计数中。

如何向书中添加工作表

在工作表集合中，还可以添加您自己的工作表，为此有一个 Add 方法。该方法有 4 个参数 Add(Before, After, Count, Type)。所有这些参数都是可选的。前两个负责纸张的插入位置。接下来，要插入的纸张数量Count和纸张类型Type。例如，类型可以是电子表格的 xlWorkSheet 和图表的 xlChart。如果未指定位置，则将相对于当前工作表插入工作表。

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

这样我们就在工作表“Sheet3”之后插入了 4 个工作表 (Count:=4)。您还可以在书的最后插入一张纸：

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

如何隐藏工作表

如果您愿意，可以隐藏一些字母。如果您不想在屏幕上以字母的形式看到常量或计算结果，这非常有用。您可以使用 Visible 方法来实现此目的。通过在 TRUE 或 FALSETbl_ 中设置此属性，您可以删除或显示所需的工作表。

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