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"

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

数据之道

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值