Na porovnanie dvoch referencií objektov sa používa operátor VBA „Is“.
Ak sú referencie na objekty rovnaké, Je vráti PRAVDU. Ak sú referencie na objekty odlišné, Je vráti NEPRAVDU.
Je nič
Najbežnejšie používanie súboru Je Operátor má skontrolovať, či bol objekt priradený k premennej objektu.
Ako to funguje, môžete vidieť v nižšie uvedenom postupe:
| 123456789101112 | Sub Is nothing ()Dim ws As worksheet'Nastaviť ws = ActiveSheetAk ws nie je nič, potomMsgBox „Nepriradené“InakMsgBox „Priradené“Koniec AkKoniec pod |
Je to užitočné, aby sa zabránilo chybám spôsobeným tým, že objekt nie je priradený k premennej objektu.
Križovatka - nie je nič
Bežne sa to používa pri udalostiach zmeny pracovného hárka na identifikáciu, či cieľový rozsah spadá do určeného rozsahu.
| 1234567 | Súkromný čiastkový pracovný hárok_Zmeniť (ByVal cieľ ako rozsah)Ak sa nepretína (cieľ, rozsah („a1: a10“)), potom nie je ničMsgBox „Intersect“Koniec AkKoniec pod |
Je - Porovnať objekty
Na porovnávanie objektov je možné použiť aj operátor Is.
Pozrime sa na príklad. Tu priradíme dva pracovné hárky k objektom pracovného hárka rng1 a rng2, pričom testujeme, či dva objekty pracovného hárka uchovávajú rovnaký pracovný hárok:
| 12345678910111213 | Podrovnané objekty ()Dim ws1 ako pracovný list, ws2 ako pracovný listNastaviť ws1 = listy („list1“)Nastaviť ws2 = listy („list2“)Ak ws1 je ws2 potomMsgBox „Rovnaké WS“InakMsgBox „Rôzne WS“Koniec AkKoniec pod |
Objekty pracovného hárka samozrejme nie sú rovnaké, takže sa vráti „rôzne WS“.
