小编Sko*_*die的帖子

我目前正在使用Excel VBA加载项来处理从一个系统到利益相关者想要查看的格式的CSV导出。我对OOP不太熟悉，但是我认为可以转换优先级在Let代码中输入类型，并以与输出时相同的格式存储数据。

我写了下面的课：

'Class Module "Project"
Option Explicit

Private m_sPriority As String

Property Let Priority(lInput As Long)
    Select Case lInput
        Case 1
            m_sPriority = "High"
        Case 2
            m_sPriority = "Medium"
        Case 3
            m_sPriority = "Low"
        Case Else
            m_sPriority = "No Priority"
    End Select
End Property

Property Get Priority() As String
    Priority = m_sPriority
End Property

这是测试它的模块：

'Standard Module
Option Explicit

Sub test()
        Dim Project As Project
        Set Project = New Project

        Project.Priority = 1
        Debug.Print Project.Priority
End Sub

我希望在运行此命令时看到“高”输出到控制台。

有没有办法在VBA中完成此操作，或者我的代码格式错误？