Funkcje informacyjne, część 2/5- funkcje VBA

Kontynuując zagadnienia dot. funkcji informacyjnych dziś zaprezentowane zostaną dwie kolejne funkcje- IsArray() oraz IsObject().


1. Funkcja IsArray zwróci prawdę True gdy testowana zmienna będzie zmienną tablicową. Prześledźmy działanie funkcji na poniższym przykładzie analizując zwracane wyniki:

view sourceprint?

1	Dim ZmiennaA

2	Debug.Print IsArray(ZmiennaA)  >>wynik False

3

4	ZmiennaA = Array(1, 2, 3)

5	Debug.Print IsArray(ZmiennaA)  >>wynik True

6

7	Dim ZmiennaB()

8	Debug.Print IsArray(ZmiennaB)  >>wynik True

Pamiętając jednak o tym, że zakres komórek po przekazaniu do VBA zwraca tablicę także poniższe wywołanie zwróci wynik True:

view sourceprint?

1	Debug.Print IsArray(Range("A1:A10"))

2. Funkcja IsObject zwróci wartość True zawsze wtedy gdy jako argument funkcji wskażemy odwołanie do obiektu. Poniższe przykłady obrazuję taką sytuację, wszystkie zapytania zwracają wartość True niezależnie od tego czy definicja obiektu następuje przez określenie typu zmiennej, przez przypisanie obiektu do zmiennej typu Variant, czy też przez bezpośrednie wskazanie obiektu w momencie wywołania:

view sourceprint?

1	Dim ZmiennaA As Range

2	Dim zmiennaB As Worksheet

3	Dim zmiennaC As Variant

4	Set zmiennaC = Range("A1:B1")

5

6	Debug.Print IsObject(ZmiennaA)        >>wynik True

7	Debug.Print IsObject(zmiennaB)        >>wynik True

8	Debug.Print IsObject(zmiennaC)        >>wynik True

9	Debug.Print IsObject(Range("A1:b1"))  >>wynik True

Myślę, że powyższe funkcje będą dobrym początkiem w zakresie wyjaśniania działania funkcji informacyjnych. Pozostałe dwa posty dot. zagadnienia już wkrótce.