vba枚举错误：“内部过程无效”。

Question

我试图通过VBA遍历EXcel中的某些单元格。我想在其中使用枚举，但在运行代码时出现编译器错误，即：“内部过程无效”。

以下是代码段：

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编码时，有人可以帮我这个忙吗？

谢谢，AJ

~~~~~~~~~~~~~~~~~~~~`有壳的地方有办法。;）~~~~~~~~~~~~~~~~~~~~~

Answer 1

在过程外部声明ENUM －不在过程中声明。