Operators VBA “Ir” tiek izmantots, lai salīdzinātu divas objektu atsauces.
Ja objektu atsauces ir vienādas, Ir atgriezīsies TRUE. Ja objektu atsauces ir atšķirīgas, Ir atgriezīsies FALSE.
Ir nekas
Visizplatītākais lietojums Ir operators pārbauda, vai objekts ir piešķirts objekta mainīgajam.
Jūs varat redzēt, kā tas darbojas, veicot tālāk norādīto procedūru.
123456789101112 | Sub IsN Nothing ()Dim ws kā darblapa'Iestatīt ws = ActiveSheetJa ws nav nekas, tadMsgBox "nav piešķirts"CitādiMsgBox "Piešķirts"Beigas JaBeigu apakš |
Tas ir noderīgi, lai novērstu kļūdas, ko rada objekts, kas nav piešķirts objekta mainīgajam.
Krustojas - nav nekas
Parasti to izmanto darblapas maiņas notikumos, lai noteiktu, vai mērķa diapazons ietilpst noteiktā diapazonā.
1234567 | Privāta apakšdarblapas maiņa (ByVal mērķis kā diapazons)Ja nav krustošanās (mērķis, diapazons ("a1: a10")), tad nekas navMsgBox "Šķērsot"Beigas JaBeigu apakš |
Ir - salīdziniet objektus
Operatoru Is var izmantot arī objektu salīdzināšanai.
Apskatīsim piemēru. Šeit mēs darblapas objektiem rng1 un rng2 piešķirsim divas darblapas, pārbaudot, vai abos darblapas objektos ir saglabāta viena darblapa:
12345678910111213 | Sub CompareObjects ()Dim ws1 kā darblapa, ws2 kā darblapaSet ws1 = Sheets ("Sheet1")Iestatīt ws2 = Sheets ("Sheet2")Ja ws1 Vai ws2 TadMsgBox "Tas pats WS"CitādiMsgBox "Dažādi WS"Beigas JaBeigu apakš |
Protams, darblapas objekti nav vienādi, tāpēc tiek atgriezts “Dažādi WS”.