如何在VBA中用变量指代控件属性（如TabStop）并设置其值？

在VBA里没法直接像你尝试的那样把属性名赋值给变量后直接调用，得用以下两种方法实现：

方法1：CallByName函数（推荐） #

这个函数支持通过字符串指定属性名来设置或获取属性值，兼容性更好，大部分控件属性都能用：

Dim propName As String
' 可以换成"Visible"、"Enabled"等合法属性名
propName = "TabStop"

' 给指定控件的指定属性赋值为True
CallByName(Me.ControlName, propName, VbLet, True)

参数说明：

• VbLet：表示对属性进行赋值操作；如果是要获取属性值，换成VbGet即可
• 最后一个参数是要设置的属性值，根据属性类型调整（比如布尔值、字符串等）

方法2：控件Properties集合 #

部分控件属性可以通过Properties集合按名字访问，写法如下：

Dim propName As String
propName = "Visible"

' 给属性赋值
Me.ControlName.Properties(propName) = True

注意：不是所有属性都在Properties集合里，比如TabStop就没法用这种方式访问，所以更推荐用CallByName。

额外注意点 #

• 你示例里的Visable拼写错误，正确是Visible
• Access控件没有Active属性：如果要设置控件是否可用，用Enabled；如果要让控件获得焦点，用Me.ControlName.SetFocus
• 属性名必须和控件实际存在的属性完全匹配，大小写不敏感但拼写不能错

内容的提问来源于stack exchange，提问作者Charlie