vba 枚举错误 : "Invalid inside procedure."

Question

我正在尝试通过 VBA 遍历 EXcel 中的一些单元格。我想在其中使用 Enums，但是在运行代码时出现编译器错误，即:“Invalid inside procedure”。

以下是代码片段:

Dim resSub(1 To 8) As Integer

Private Enum Subjects
    Hindi = 1
    English = 2
    Sanskrit = 3
    Math = 4
    Science = 5
    SoScience = 8
End Enum

Dim resCur As Integer
resCur = 0
Dim resG As Integer
resG = 0
Dim resF As Integer
resF = 0
Dim markG As Integer
markG = 0

For j = Hindi To SoScience
    resCur = Sheets("Result").Cells(pst_end_row, ColumnAZ(cpy_start_col + 6 + 2 * j)).Value
    If (resCur < 33) And Not (j = Science) Then
            resSub(j) = 1
            resG = resG + 1
            If (resCur >= 27) Then
                markG = markG + 33 - resCur
            Else
                resF = resF + 1
            End If
    ElseIf (resCur < 25) And (j = Science) Then
            resSub(j) = 1
            resG = resG + 1
            If (resCur >= 19) Then
                markG = markG + 25 - resCur
            Else
                resF = resF + 1
            End If
    End If
Next j

有人可以帮我解决这个问题，因为我是 VBA 编码的新手吗？

谢谢，
阿杰

~~~~~~~~~~~~~~~~~~~~~`
哪里有壳，哪里就有办法。 ;)
~~~~~~~~~~~~~~~~~~~~~

Answer 1

声明 ENUM 之外程序——不在其中。