Mam tipsa jak sprawdzić czy tablica ma określony wymiar, a nie tylko zainicjowana. Oczywiście bez On Error ... bo z tym to bardzo łatwo można stwierdzić. Na podstawie tego napisałem własną funkcję, która zwraca wymiary tablicy albo -1 jeśli nie ma określonego wymiaru. To ta funkcja:
Private Function myLUBound(ByRef astrArray() As String, _ ByRef lngLBound As Long, _ ByRef lngUBound As Long) As Boolean
If IsArray(astrArray) Then If (Not Val(Not astrArray)) Then ' to jest warunek na sprawdzenie, czy tablica ma okreslony zakres ' lngLBound = LBound(astrArray) lngUBound = UBound(astrArray) Else lngLBound = -1 lngUBound = -1 End If myLUBound = True End If
End Function
Komentarze
Fajne, ale mo?na jeszcze uprosci? Dodane przez cypizek w dniu - 2008-08-07 14:50:07Spodoba?o mi si? rozwiązanie. Szuka?em tego od dawna. No i znalaz?em jeszcze uproszczenie warunku czy ma zakres bez Val(): zamiast Code:If (Not Val(Not astrArray)) Then mo?na u?y? podwójnej negacji Code:If (Not Not astrArray)) Then
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie. Tylko zarejestrowani użytkownicy mogą pisać komentarze.
