Excel中VBA编程学习笔记（九）--工作表应用(WorkSheet)

1、获取工作表数量及选中、激活工作表

Private Sub test()

    Dim count As Integer

    count = Worksheets.count    '获取工作表数量

    Dim name As String

    name = Worksheets(1).name   '获取第一个工作表名称

    Worksheets(count).Select    '选中最后一个工作表

    Worksheets(Array("StudentAttendence", "studentsScore")).Select  '选中多张工作表,可以同时对这些工作表进行操作

    Worksheets("sheet1").Activate   '激活表名为sheet1的工作表

End Sub

注：对于激活的工作表可以使用ActiveSheet表示。选中的工作表与激活的工作表不同，选中的工作表可以有多个，但是激活的工作表只有一个。一般点击工作表的标签时候就会激活该工作表。

2、删除批注

【例1】删除工作表中的所有批注

Private Sub test()

    Dim tmp As Comment

    For Each tmp In ActiveSheet.Comments

        tmp.Delete

    Next

End Sub

【例2】删除选中区域的所有批注

Sub test2()

    For Each rng In Selection

        If Not rng.Comment Is Nothing Then

            rng.ClearComments

        End If

    Next

End Sub

3、添加批注及批注属性设置

Range.AddComment添加批注。

If Worksheets(1).Cells(1, 1).Comment Is Nothing Then '判断是否存在批注

        Worksheets(1).Cells(1, 1).AddComment  '添加批注

        Worksheets(1).Cells(1, 1).Comment.Visible = True  '设置批注可见

        Worksheets(1).Cells(1, 1).Comment.Text Text:="Hello"