×

callbyname 对象 属性 名称 字符串

根据属性名称的字符串获取该属性的值

鹭岛小千 鹭岛小千 发表于2021-10-01 18:01:26 浏览34 评论0

抢沙发发表评论

【问题描述】如何根据属性名称的字符串获取该属性的值呢?

下图中A2:A6均为工作表的Protection对象的属性名称,如何批量获取它们的值呢?

45-1.png

【小千解答】借助CallByName函数。

代码如下:

Sub xqoffice()
    ActiveSheet.Unprotect
    Dim i As Byte
    For i = 2 To 6
        Cells(i, 2).Value = CallByName(ActiveSheet.Protection, Cells(i, 1).Value, VbGet)
    Next i
End Sub

运行结果:

45-2.png


打赏码.png


【参考资料】

  1. CallByName函数

  2. VBA小探CallByName

  3. 利用CallByName函数对对象进行操作


群贤毕至

访客