Proszę o pomoc, definiuję publiczną tablicę na początku modułu
Potem prosta procedura czytająca komórki do tejże tablicy. Procedura Czytaj() działa, tablica się generuje (przykład piszę z głowy aby w prosty sposób pokazać mój problem). Procedura Rob() działa tylko wtedy jeżeli uruchomię ją po wcześniejszym uruchomieniu procedury Czytaj. Jeżeli zrobię to w innej kolejności albo uruchomię procedurę Rob() dwa razy to już nie zadziała, wywala błąd. Innymi słowami, Rob() czasami działa a czasami nie a ja nie wiem dlaczego. Czy to dlatego że dodefiniowuję wymiany MojaTablica dopiero w procedurze?
I potem druga procedura która ma przetwarzać publiczną tablicę
Code:
Public MojaTablica() as Double
Potem prosta procedura czytająca komórki do tejże tablicy. Procedura Czytaj() działa, tablica się generuje (przykład piszę z głowy aby w prosty sposób pokazać mój problem). Procedura Rob() działa tylko wtedy jeżeli uruchomię ją po wcześniejszym uruchomieniu procedury Czytaj. Jeżeli zrobię to w innej kolejności albo uruchomię procedurę Rob() dwa razy to już nie zadziała, wywala błąd. Innymi słowami, Rob() czasami działa a czasami nie a ja nie wiem dlaczego. Czy to dlatego że dodefiniowuję wymiany MojaTablica dopiero w procedurze?
Code:
Sub Czytaj()
ReDim Tablica (1 to 10, 1 to 10)
For i=1 to 10
For j = 1 to 10
Tablica(i,j) = ActiveSheet.Cells(i,j)
Next j
Next i
End Sub
I potem druga procedura która ma przetwarzać publiczną tablicę
Code:
Sub Rob()
Dim Tablica2(1 to 10, 1 to 10)
For i=1 to 10
For j = 1 to 10
MsgBox Tablica(i,j) 'sprawdzenie czy dostęp do publicznej tablicy
Tablica2(i,j) = Tablica(i,j)+2
Next j
Next i
End Sub.