GRRR VBA 公共数组变量在用户表单中不起作用

Question

我正在创建一个宏来计算我在一个月内分配给工作的小时数。我有工作列表的代码和每个工作工作所花费的时间，它将每个工作名称和相关时间保存在数组JobHours(i,j) 中。一旦我尝试在用户表单中访问此数组，它就无法使用。

我在模块中的代码

Option Explicit
Public JobHours() As Variant

    Sub MonthlyHoursShow()
    Monthly_Hours.Show
End Sub

Sub MonthlyHours(SelMonth As Variant)
'Code which assigns values to JobHours() - 
    ReDim JobHours(1, 0)
    JobHours(0, 0) = "Job Number"
    JobHours(1, 0) = "Hours"
'There are a few loops to determine what values to collect, and they are then
'assigned to JobHours() as follows:
    cValue = UCase(ws.Cells(j, 2).Text)
    ReDim Preserve JobHours(1, JobNum)
        JobHours(0, JobNum) = cValue
        JobHours(1, JobNum) = ws.Cells(j, 27).Value
    Worksheets("25 Mar").Cells(8 + JobNum, 30).Value = JobHours(0, JobNum)
    Worksheets("25 Mar").Cells(8 + JobNum, 31).Value = JobHours(1, JobNum)
'where JobNum is a counter for the number of jobs, and is incremented as part of the loop.

    Debug.Print "Upper Bound of JobHours() = " & UBound(JobHours, 2) - 'Returns as 38
    Debug.Print "Total Number of jobs is " & Application.CountA(JobHours) - 'returns as 78

End Sub

在我的用户表单中：

Private Sub CalcButton_Click()
SelMonth = MonthBox.Value

Call MonthlyHours(SelMonth)

'Debug.Print "Upper Bound of JobHours() = " & UBound(JobHours, 2) - 'Returns error
Debug.Print "Total Number of jobs is " & Application.CountA(JobHours) - 'Returns as 1

End Sub

如果我没有在第一行 Debug.Print 中注释 UBound 命令，我会收到以下错误：

Compile Error: Expected Array

我的理解是，如果 Array 被声明为公共变量，它将传递给用户表单 - 事实上，我有这个工作！然后我保存了工作簿，将其关闭并重新打开，现在有问题吗？？

我不知道为什么这不起作用 - 这是我第一次真正尝试使用数组。如果您有任何想法，我们将不胜感激。

谢谢，丹

Answer 1

感谢@Rory，我发现用户表单本身中的一个文本字段称为JobHours，这是导致错误的原因。此后它被标记为Job_Hours，并且一切正常:)

感谢大家的 cmets 和帮助。

丹

Answer 2

由于我们没有看到您的所有代码以及您如何填充数组，因此我们只能进行猜测。

我猜你的问题是UBound(JobHours, 2)中的,2

Debug.Print "Upper Bound of JobHours() = " & UBound(JobHours, 2)

Ubound() 的第二个参数用于指定维度。这仅在您有一个多维数组时才有用。我相信这不是你的情况，你告诉 VBA 访问一个不存在的维度。

如果我错了，请编辑您的问题并向我们展示所有内容。