Question

我是VBA中面向对象编程的新手，我试图编写我的第一堂课。我正在关注互联网上的指南。但我得到的错误我不明白。

不识别“设置”和“设置”属性，并显示为红色。当我尝试传递参数时，Sub也是如此。你会碰巧知道问题的来源吗？

Option Explicit

Private pNumShare As Integer
Private pNumPlan As Integer
Private pName As String

Public Property Get NumShare() As Integer
    NumShare = pNumShare
End Property

Public Property Let NumShare(int AS Integer)
        pNumShare = int
End Property

Public Sub Class_Initialize()
    NumShare = Empty
    NumPlan = Empty
    Name = Empty
End Sub

Public Sub setColonne(int As Integer)

End Sub

Answer 1

表达式int是一个函数，因此是VBA中的保留字。使用其他变量名称。

请参阅here

（并请编辑您的问题以添加您的代码...代码图片无用）

此语法也是Property Set

中的identify/token

属性让和设置无法识别

1 个答案: