VBA工作表变量调用选项按钮报错：方法或数据成员未找到

这问题我之前踩过坑，其实是VBA对象模型的类型差异导致的！

问题根源 #

你声明的HBC是通用的Worksheet类型，这个基类的成员里不包含你在HBCALC工作表上添加的自定义选项按钮Metric。而用Me（如果代码写在HBCALC的工作表模块里）或者直接ThisWorkbook.Worksheets("HBCALC")时，VBA会默认做后期绑定，识别到这个对象是你那个特定工作表的实例，所以能访问到控件。但提前声明的Worksheet变量是强类型的，编译时只会检查基类的成员，自然会报“找不到方法或数据成员”的错误。

两种解决办法 #

1. 通过控件集合访问（通用兼容）

不管是ActiveX控件还是表单控件，都可以通过工作表的OLEObjects或Shapes集合来定位控件，不需要依赖具体的类类型：

• 如果是ActiveX选项按钮：

  Dim HBC As Worksheet
  Set HBC = ThisWorkbook.Worksheets("HBCALC")
  For i = 1 To 12
      ' 用OLEObjects获取控件，再通过Object访问其属性
      If HBC.OLEObjects("Metric").Object.Value = True Then
          If rng.Cells(1, i) = 0 Then Exit For
      End If
  Next i
  

• 如果是表单控件选项按钮：

  Dim HBC As Worksheet
  Set HBC = ThisWorkbook.Worksheets("HBCALC")
  For i = 1 To 12
      ' 表单控件用ControlFormat访问状态，xlOn表示选中
      If HBC.Shapes("Metric").ControlFormat.Value = xlOn Then
          If rng.Cells(1, i) = 0 Then Exit For
      End If
  Next i
  

2. 声明为具体的工作表类类型（更简洁）

你可以在VBE的属性窗口里，把HBCALC工作表的(Name)属性改成一个固定名称（比如HBCALCSheet），然后把变量声明为这个具体的类类型：

' 用具体的工作表类名代替通用Worksheet
Dim HBC As HBCALCSheet
Set HBC = ThisWorkbook.Worksheets("HBCALC")
For i = 1 To 12
    ' 现在可以直接像Me.Metric一样访问控件了
    If HBC.Metric.Value = True Then
        If rng.Cells(1, i) = 0 Then Exit For
    End If
Next i

这种方式的好处是代码更简洁，而且能获得编译时的类型检查，避免拼写错误。

内容的提问来源于stack exchange，提问作者Łukasz Witerski