Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Co tu jest nie tak???
anonim




Typ: Nie zarejestrowany
Co tu jest nie tak???

Option Base 1
Option Explicit
Dim tablica1 As Variant
Dim r As Variant

Public Sub tablice()

Workbooks.Open Filename:="G:\Distribution\MIS\\Baza .xls"
Worksheets("Approved".Activate
tablica1 = Worksheets("Approved".Range(Cells(1, 1), Cells(65000, 16))

    ActiveWorkbook.Close
r = Application.WorksheetFunction.CountIf _
(tablica1(1 to 14),(25000 to 14),"ron"

End Sub

23-02-2004 09:26
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
hm...

Słuchaj, nie chcę Cię urazić, ale...

1) Wszystkie tablice (nawet te typu Variant) wymagają w VBA wypełnienia, lecz to wypełnienie nie może być dokonane za pomocą prostego przypisania (choć jest wyjątek). Radzę poczytaj więcej na temat tablic stytycznych i dynamicznych, opierając się głównie na przykładach, a zrozumiesz o co chodzi. Najczęściej odbywa się to tak:

Dim tablica As Variant
'wypełnianie tablicy
For i = 0 to 99
    'zwiększ rozmiar tablicy dynamicznej o 1
    'bez utraty do tychczasowej wartości
    Redim Preserve tablica(i)
    tablica(i) = i
Next i

'odczytanie zawartości tablicy dynamicznej
For i = LBound(tablica()) to UBound(tablica())
    Msgbox tablica(i), vbInformation, i
Next i

2) Nie możesz do zmiennej typu tablicowego przypisać zakresu komórek!

Jeszcze raz proszę, przedstaw swój problem z opsiem tego, co chcesz osiągnąć, a podpowiem Ci jak go rozwiązać.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

24-02-2004 21:28
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1