photosdematures.com

Not Equal és un operador de VBA que també es pot anomenar com a operador de negació, és una funció lògica, de manera que la sortida que retorna aquesta funció és veritable o falsa, sabem que l'operador igual és "=" aquest però no igual és " ”A VBA, de manera que sigui quin sigui el valor que obtinguem de l’operador igual obtindrem un valor exactament oposat utilitzant l’operador No igual.

Operador "No Igual" a VBA

Normalment, fem una prova lògica "si alguna cosa és igual a una altra cosa o no". En alguns casos, hem de fer el "Desigualtat" prova també.Desigualtat prova no és res, però no prova igual. En general, diem si alguna cosa és igual a una altra cosa o no, si és igual realitza algun tipus de tasca si no una tasca diferent. De manera similar utilitzant el fitxer Desigualtat prova també podem fer algun tipus d'operació. "NOT IGUAL" a VBA es representa per la combinació de símbols més grans que i inferiors a. Si tots dos operadors combinats es converteixen en un símbol no igual. “”.

Com no és igual a Works in Excel VBA?

VBA No igual funciona exactament oposat a la lògica de igual a operador. Igual a l'operador torna TRUE si es compleix la prova subministrada, retornarà FALS. Per exemple, si dieu 10 = 10, tornarà CERT o bé FALS.

A l'altre costat, "No és igual" funciona en la direcció oposada, si la prova lògica subministrada en excel no és igual, només retornarà TRUE o FALSE.

Per exemple, si dieu 10 10, tornarà FALS perquè 10 és igual a 10. Per obtenir el resultat TRUE, un valor no hauria de ser igual a l'altre valor.

Exemples de No igual a Excel VBA

A continuació es mostren els exemples d’operador no igual a Excel VBA.

Exemple 1

Ara veurem com utilitzar el signe VBA Not Equal () pràcticament. Mireu la peça de codi següent.

Codi:

 Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub 

Aquí estem provant si el número 100 no és igual al número 100. De ben segur que sabem que el número 100 és igual a 100, el resultat serà FALS.

Ara canviaré l’equació.

Codi:

 Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub 

Ara la prova és si el número 100 no és igual a 99. Per tant, el resultat serà CERT.

Exemple 2

Ara veurem com utilitzar aquest operador no igual en exemples en temps real. Per a la demostració, he creat algunes dades.

Tenim dos valors, "Valor 1" i "Valor 2".

Ara el meu requisit és que si el valor 1 no és igual al valor 2, aleshores necessito el resultat com a "Diferent" o bé el resultat és "igual".

Pas 1: Definiu una variable com a enter.

Codi:

 Sub NotEqual_Example2 () Dim k As Integer End Sub 

Pas 2: Obert PER A LA PROPERA LLAÇA del 2 al 9.

Codi:

 Sub NotEqual_Example2 () Dim k Com enter Per a k = 2 a 9 Següent k Final Sub 

Pas 3: Dins del bucle, hem de provar si el valor 1 no és igual al valor 2. Com que necessitem els nostres propis resultats, hem d’utilitzar la condició IF.

Codi:

 Sub NotEqual_Example2 () Dim k Com enter Per a k = 2 a 9 Si cel·les (k, 1) Cel·les (k, 2) A continuació, cel·les (k, 3). Finalitza "El mateix" si Següent k Finalitza Sub 

Si la condició prova si el valor 1 no és igual o no al valor 2. Si no és igual, tornarà "Diferent", si és igual, retornarà "Igual".

Podeu copiar i enganxar el codi VBA següent.

Copieu aquest codi al mòdul i executeu-lo amb la tecla F5 o manualment. Això retornarà un resultat com aquest.

Amaga i mostra els fulls amb un signe no igual

Les diverses maneres d’utilitzar el cant no igual són enormes. Podem utilitzar aquest signe per satisfer les nostres necessitats.

# 1: amaga tots els fulls excepte un full

Hem vist aquest tipus de situacions moltes vegades. Calia amagar tots els fulls excepte el full concret.

Per exemple, si voleu amagar tots els fulls excepte el nom del full "Dades del client", podeu utilitzar aquest codi.

Codi:

 Sub Hide_All () Atenueu Ws com a full de treball per a cada Ws d'ActiveWorkbook.Whesheets if Ws.Name "Customer Data", llavors Ws.Visible = xlSheetVeryHidden End Si el següent Ws End Sub 

# 2 - Mostra tots els fulls excepte un full

De la mateixa manera, també podem mostrar tots els fulls excepte el full únic. Utilitzeu el codi següent per fer-ho.

Codi:

 Sub Unhide_All () Dim Ws com a full de treball per a cada Ws d'ActiveWorkbook.Whesheets si Ws.Name "Dades del client", llavors Ws.Visible = xlSheetVisible End Si el següent Ws End Sub 

Podeu descarregar aquesta plantilla VBA Not Equal a Excel aquí: Plantilla VBA Not Equal Operator