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"