Not Equal este un operator în VBA care poate fi denumit și ca operator de negație, este o funcție logică, astfel încât ieșirea returnată de această funcție este fie adevărată, fie falsă, știm că operatorul egal este „=” acesta, dar nu egal este „ ”În VBA deci oricare ar fi valoarea pe care o vom obține de la operatorul egal vom obține exact valoarea opusă folosind operatorul Nu este egal
Operator „Nu este egal” în VBA
De obicei, facem un test logic „dacă ceva este egal cu alte lucruri sau nu”. În unele cazuri, trebuie să facem și testul „inegalității” . Testul inegalității nu este altceva decât un test egal. În general, spunem dacă ceva este egal cu alt lucru sau nu, dacă este egal, îndeplinește un fel de sarcină, dacă nu sarcină diferită. În mod similar, folosind testul Inegalității , putem face și un fel de operație. „NOT EGAL” în VBA este reprezentat de combinația de simboluri mai mari decât și mai mici decât. Dacă ambii acești operatori s-au combinat, atunci nu devine simbol egal, adică „.”
Cum nu este egal cu funcționează în Excel VBA?
VBA Nu egal funcționează exact opus logicii egal cu operator. Egal cu operatorul returnează TRUE dacă testul furnizat este îndeplinit nu este, va reveni FALSE. De exemplu, dacă spuneți 10 = 10, acesta va reveni ADEVĂRAT sau altfel FALS.
Pe de altă parte, „Nu este egal” funcționează în direcția opusă. Dacă testul logic furnizat în excel nu este egal, atunci va reveni doar ADEVĂRAT sau altfel FALS.
De exemplu, dacă spuneți 10 10, va reveni FALS deoarece 10 este egal cu 10. Pentru a obține un rezultat ADEVĂRAT, o valoare nu ar trebui să fie egală cu cealaltă valoare.
Exemple de Nu este egal cu în Excel VBA
Mai jos sunt exemplele care nu sunt egale cu operatorul din Excel VBA.
Exemplul nr. 1
Acum vom vedea cum să folosim practic semnul VBA Not Equal (). Uită-te la codul de mai jos.
Cod:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Aici testăm dacă numărul 100 nu este egal cu numărul 100. Cu siguranță, știm că numărul 100 este egal cu 100, deci rezultatul va fi FALS.
Acum voi schimba ecuația.
Cod:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Acum testul este dacă numărul 100 nu este egal cu 99. Deci, rezultatul va fi ADEVĂRAT.
Exemplul nr. 2
Acum vom vedea cum să folosim acest operator nu egal în exemple în timp real. Pentru demonstrație, am creat câteva date.
Avem două valori, „Valoarea 1” și „Valoarea 2”.
Acum cerința mea este dacă valoarea 1 nu este egală cu valoarea 2, atunci am nevoie de rezultat ca „Diferit” sau altfel am nevoie de rezultat ca „Același”.
Pasul 1: definiți o variabilă ca un întreg.
Cod:
Sub NotEqual_Example2 () Dim k As Integer End Sub
Pasul 2: Deschideți pentru următorul buclă de la 2 la 9.
Cod:
Sub NotEqual_Example2 () Dim k Întreg pentru k = 2 până la 9 Următorul k Sfârșit Sub
Pasul 3: În interiorul buclei, trebuie să testăm dacă valoarea 1 nu este egală cu valoarea 2. Deoarece avem nevoie de rezultatele noastre, trebuie să folosim condiția IF.
Cod:
Sub NotEqual_Example2 () Dim k Întreg pentru k = 2 până la 9 Dacă celule (k, 1) Celule (k, 2) Apoi celule (k, 3). „Același” sfârșit dacă Următorul k Finalizare sub
Să presupunem că testează condiția dacă valoarea 1 nu este egală cu valoarea 2 sau nu. Dacă nu este egal, va reveni la „Diferit”. Dacă este egal, va reveni la „Același lucru”.
Puteți copia și lipi codul VBA de mai jos.
Copiați acest cod în modulul dvs. și rulați folosind tasta F5 sau manual. Acest lucru va întoarce un rezultat ca acesta.
Ascundeți și afișați foile cu semnul nu este egal
Diferitele moduri de utilizare a cântării nu egale sunt enorme. Putem folosi acest semn pentru a ne satisface nevoile.
# 1 - Ascundeți toate foile, cu excepția unei foi
Am văzut acest tip de situație de multe ori. Trebuia să ascundem toate foile, cu excepția foii.
De exemplu, dacă doriți să ascundeți toate foile, cu excepția numelui foii „Date clienți”, puteți utiliza acest cod.
Cod:
Sub Hide_All () Dim Ws Ca foaie de lucru pentru fiecare Ws din ActiveWorkbook.Foarte de lucru Dacă Ws.Name "Date client" Atunci Ws.Visible = xlSheetVeryHidden End Dacă următorul Ws End Sub
# 2 - Afișați toate foile, cu excepția unei foi
În mod similar, putem, de asemenea, să dezvăluim toate foile, cu excepția uneia. Utilizați codul de mai jos pentru a face acest lucru.
Cod:
Sub Unhide_All () Dim Ws Ca foaie de lucru pentru fiecare Ws din ActiveWorkbook.Foaie de lucru Dacă Ws.Name "Date client" Atunci Ws.Visible = xlSheetVisible End Dacă următorul Ws End Sub
Puteți descărca acest șablon VBA Not Equal to Excel aici - Șablon VBA Not Equal Operator.
