GRRR VBA Kullanıcı dizisinde çalışmayan genel dizi değişkeni

Question

Bir ay içinde bir işe kaç saat çalıştığımı gösteren bir makro oluşturuyorum. Her işin çalışmasında harcanan zaman ve işlerin listesi için kodum var, bu da her iş adını ve ilgili saatleri JobHours(i,j) dizisinde kaydeder. Bu diziye kullanıcı formunda erişmeye çalıştığımda mevcut değildir. modül

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 

ve benim userform içinde

Kodum:

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 

ben aşağıdaki hatayı alıyorum ilk Debug.Print doğrultusunda UBound komutu açıklama yoksa:

Compile Error: Expected Array 

bir kamu değişkeni olarak bir kullanıcı formuna geçecek - Aslında bu işe yaramıştım! Daha sonra çalışma kitabını kurtardım, kapattım ve tekrar açıldı ve şimdi sorun var mı?

Bunun neden çalışmadığı hakkında hiçbir fikrim yok - bir dizi kullanma konusundaki ilk gerçek girişimim. Herhangi bir fikriniz varsa, büyük takdir edilecektir.

Teşekkürler Dan

Answer 1

hepimiz kodunuzu göremiyorsanız ve dizi doldurmak nasıl biz tahmin yapmak sadece olabilir.

Benim tahminim Sorununuz olmasıdır Ubound() ikinci parametre var Optionnaly boyut belirtmektir ,2

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

UBound(JobHours, 2) içinde. Bu çok boyutlu bir diziniz varsa sadece yararlıdır. Bunun sizin durumunuz olmadığını ve VBA'ya var olmayan bir boyuta erişmesini söylediğine inanıyorum.

Yanılıyorsam sorunuzu değiştirin ve bize her şeyi gösterin.

Answer 2

@Rory sayesinde Kullanıcı formunun kendisinde bir metin alanının, hatalara neden olan JobHours olduğunu belirledim. O zamandan beri Job_Hours etiketli ve hepsi çalışıyor :)

Yorumlarınız ve yardımlarınız için herkese teşekkürler.

Dan