excel - 使用布尔值创建类的问题

Question

我在创建此类时遇到问题，它表明 Set 参数无效并且在下面的代码中出错。我已经检查了三次，似乎找不到问题！知道为什么会发生此错误吗？

代码：

Option Explicit

Private pIsChargeable As Boolean

Public Property Set IsChargeable(value As Boolean)
   pIsChargeable = value
End Property
Public Property Get IsChargeable() As Boolean
   IsChargeable = pIsChargeable
End Property

错误：

编译错误：

同一属性的属性过程定义不一致，或属性过程有可选参数、ParamArray 或无效的 Set final 参数

标签： excelvba

Answer 1

Property Set用于Object类型变量。你正在寻找Property Let.

阅读 Chip Pearson对类的解释也可能会有所帮助。