Excel VBA ClassOne类fReadData成员函数数据类型错误问题求助

问题排查与解决方案 #

核心错误点

1. 带参数的Property Get使用逻辑错误：你把fReadData定义为带参数的属性读取器，但实际将它当作修改实例状态的方法调用，VBA中这种用法会引发类型传递错误；同时带参数属性的调用语法要求特殊，加括号的写法会强制值传递，导致类型不匹配。
2. 实例作用域错误：fReadData内部新建了一个ClassOne实例oFreadData，修改的是这个临时实例的One属性，和外部的oOne完全无关，所以调用后oOne.One不会有任何变化。
3. Range值转换错误：直接将Range对象赋值给Double类型属性时，没有明确提取单元格的数值，导致类型不匹配。

修正后的代码

ClassOne类模块

Option Explicit

Private pOne As Double

Public Property Get One() As Double
    One = pOne
End Property

Public Property Let One(lOne As Double)
    ' 增加数值验证，避免非数值赋值出错
    If IsNumeric(lOne) Then
        pOne = lOne
    Else
        Err.Raise vbObjectError + 1001, , "必须赋值数值类型"
    End If
End Property

' 将fReadData改为Sub方法，负责修改当前实例的状态
Public Sub fReadData(alue As Range)
    ' 明确取第一个单元格的数值并转换为Double
    Me.One = CDbl(alue.Columns(1).Cells(1).Value)
End Sub

主模块

Option Explicit

Dim oOne As ClassOne

Function Test(alue As Range) As Double
    ' 延迟初始化实例，避免自动创建空实例的意外行为
    If oOne Is Nothing Then Set oOne = New ClassOne
    
    ' 调用Sub方法时无需加括号（非Call语句调用规则）
    oOne.fReadData alue
    
    Test = oOne.One
End Function

修正说明

1. 将fReadData改为Sub方法：它的核心作用是修改当前实例的状态，而非返回属性值，用方法更符合逻辑，也避免了带参数属性的语法歧义。
2. 移除内部临时实例：直接用Me.One修改当前实例的私有变量，确保外部oOne的属性会被更新。
3. 明确转换Range值：通过Cells(1).Value提取单元格的实际数值，再用CDbl强制转换为Double类型，彻底解决类型不匹配问题。
4. 修正实例初始化方式：不在变量声明时用New，改为使用时检查并初始化，避免VBA自动创建空实例的隐性行为。
5. 调整方法调用语法：调用Sub方法时去掉括号，符合VBA的调用规则，避免强制值传递引发的错误。

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