Logični operaterji VBA: IN, ALI NE, ČE NE v Excelu VBA

Logični operaterji VBA: IN ALI ALI NE

Logični operaterji Excel VBA

Recimo, da želite obdelati naročilo stranke. Za to najprej preverite, ali naročen izdelek obstaja ali ne. Če se, preverite tudi, ali je količina na voljo. Logični operaterji v takšnih primerih pridejo prav. Logični operaterji se uporabljajo za ovrednotenje več kot enega pogoja.

Glavni logični operaterji programa Excel VBA IN ALI NE so navedeni v spodnji tabeli:

S / N	Operater	Opis	Primer	Izhod
1.	IN	IN: Uporablja se za kombiniranje več kot enega pogoja. Če so vsi pogoji resnični, IN oceni kot resnično. Če je kateri koli pogoj napačen, IN oceni kot napačen	Če je true = true IN false = true, potem	napačno
2.	ALI	ALI: Uporablja se za kombiniranje več kot enega pogoja. Če kateri od pogojev oceni na true, ALI vrne true. Če so vsi napačni, ALI vrne false	Če je true = true ALI true = false, potem	prav
3.	NE	OPOMBA: Ta deluje kot inverzna funkcija. Če je pogoj true, vrne false in če je pogoj false, vrne true.	Če NE (res) Potem	napačno

Primer izvorne kode logičnih operaterjev VBA

Zaradi poenostavitve bomo primerjali trdo kodirane številke.

Gumbe ActiveX dodajte na list iz možnosti »Vstavi«.

Nastavite lastnosti, kot je prikazano na spodnji sliki

Naslednja tabela prikazuje lastnosti, ki jih morate spremeniti, in vrednosti, ki jih morate posodobiti.

S / N	Nadzor	Nepremičnina	Vrednost
1.	CommandButton1	Ime	btnAND
		Napis	IN Operator (0 = 0)
2.	CommandButton2	Ime	btnOR
		Napis	ALI Operator (1 = 1) Ali (5 = 0)
3.	CommandButton3	Ime	btnNE
		Napis	NOT Operator ne (0 =)

V btnAND_Click dodajte naslednjo kodo

Private Sub btnAND_Click()If (1 = 1) And (0 = 0) ThenMsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator"ElseMsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator"End IfEnd Sub

VBA If AND Operator

• "Če (1 = 1) In (0 = 0) Potem" stavek if uporablja logični operator AND za kombiniranje dveh pogojev (1 = 1) And (0 = 0). Če sta oba pogoja resnična, se izvede koda nad ključno besedo 'Else'. Če oba pogoja ne izpolnjujeta, se izvede koda pod ključno besedo 'Else'.

V btnOR_Click dodajte naslednjo kodo

Private Sub btnOR_Click()If (1 = 1) Or (5 = 0) ThenMsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator"ElseMsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator"End IfEnd Sub

VBA If OR Operator

• "Če (1 = 1) Ali (5 = 0) Potem" stavek if uporablja logični operater OR za kombiniranje dveh pogojev (1 = 1) In (5 = 0). Če je kateri koli od pogojev izpolnjen, se izvede koda nad ključno besedo Else. Če sta oba pogoja napačna, se izvede koda pod ključno besedo Else.

V btnNOT_Click dodajte naslednjo kodo

Private Sub btnNOT_Click()If Not (0 = 0) ThenMsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator"ElseMsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator"End IfEnd Sub

VBA, če NE operater

• "Če ne (0 = 0), potem" funkcija VBA, če ne, uporablja logični operator NOT, da izniči rezultat pogoja stavka if. Če so pogoji izpolnjeni, se izvede koda pod ključno besedo 'Else'. Če je pogoj izpolnjen, se izvede koda nad ključno besedo Else.

Prenesite Excel, ki vsebuje zgornjo kodo