Not Equal je operator u VBA koji se također može nazvati negacijskim operatorom, to je logična funkcija, tako da je izlaz koji vraća ova funkcija istinit ili lažan, znamo da je jednaki operator "=" ovo, ali ne jednako je " ”U VBA-i, bez obzira na vrijednost koju dobijemo od jednakog operatora, dobit ćemo točno suprotnu vrijednost pomoću operatora Not Equal.
Operator "Nije jednak" u VBA-u
Obično radimo logički test "je li nešto jednako ostalim stvarima ili ne." U nekim slučajevima moramo napraviti i test "nejednakosti" . Test nejednakosti nije ništa drugo nego ne jednak test. Općenito kažemo ako je nešto jednako drugoj stvari ili nije, ako je jednako, izvršava neku vrstu zadatka, ako ne i drugačiji zadatak. Slično tome, pomoću testa nejednakosti također možemo napraviti neku vrstu operacije. "NIJE JEDNAKO" u VBA predstavlja kombinacija većih i manjih od simbola. Ako se oba ova operatora kombiniraju, tada to neće biti jednak simbol tj. „.“
Kako nije jednako radu u programu Excel VBA?
VBA Nije jednako radi točno suprotno logici jednaka operatoru. Jednako operateru vraća TRUE ako je isporučeni test zadovoljan nije, vratit će FALSE. Na primjer, ako kažete 10 = 10, vratit će se TRUE ili FALSE.
S druge strane, "Nije jednako" djeluje u suprotnom smjeru. Ako isporučeni logički test u excelu nije jednak, tada će samo vratiti TRUE ili inače FALSE.
Na primjer, ako kažete 10 10, vratit će se FALSE jer je 10 jednako 10. Da biste dobili ISTINITI rezultat, jedna vrijednost ne bi trebala biti jednaka drugoj vrijednosti.
Primjeri koji nisu jednaki onima u Excelu VBA
Ispod su primjeri koji nisu jednaki operatoru u programu Excel VBA.
Primjer # 1
Sada ćemo vidjeti kako praktično koristiti VBA Not Equal () znak. Pogledajte donji dio koda.
Kodirati:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Ovdje testiramo nije li broj 100 jednak broju 100. Sigurno znamo da je broj 100 jednak 100, pa će rezultat biti LAŽ.
Sad ću promijeniti jednadžbu.
Kodirati:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Sada je test nije li broj 100 jednak 99. Dakle, rezultat će biti ISTINA.
Primjer # 2
Sada ćemo vidjeti kako koristiti ovaj nejednaki operator u primjerima u stvarnom vremenu. Za demonstraciju sam stvorio neke podatke.
Imamo dvije vrijednosti, "Vrijednost 1" i "Vrijednost 2".
Sada je moj zahtjev ako vrijednost 1 nije jednaka vrijednosti 2, tada mi je potreban rezultat "Drugačiji", ili pak trebam rezultat kao "isti".
Korak 1: Definirajte varijablu kao cijeli broj.
Kodirati:
Sub NotEqual_Example2 () Dim k As Integer End Sub
Korak 2: Otvorite FOR NEXT LOOP od 2 do 9.
Kodirati:
Sub NotEqual_Example2 () Dim k kao cijelo za k = 2 do 9 Sljedeće k Kraj Sub
Korak 3: Unutar petlje moramo testirati nije li vrijednost 1 jednaka vrijednosti 2. Budući da trebamo vlastite rezultate, trebamo koristiti IF Condition.
Kodirati:
Sub NotEqual_Example2 () Dim k kao cjelobrojno za k = 2 do 9 Ako su stanice (k, 1) stanice (k, 2), a zatim ćelije (k, 3) .Value = "Različite" Ostale stanice (k, 3) .Value = "Isti" Kraj ako je sljedeći k Kraj Sub
Pretpostavimo da uvjet provjerava je li vrijednost 1 jednaka vrijednosti 2 ili nije. Ako nije jednako, vratit će se "Različito". Ako je jednako, vratit će se "Isto".
Možete kopirati i zalijepiti dolje navedeni VBA kôd.
Kopirajte ovaj kod na svoj modul i pokrenite pomoću tipke F5 ili ručno. Ovo će vratiti ovakav rezultat.
Sakrij i otkrij listove s predznakom koji nije jednak
Različiti načini korištenja nejednakog singa su ogromni. Ovaj znak možemo koristiti za ispunjavanje svojih potreba.
# 1 - Sakrij sve listove osim jednog lista
Mnogo smo puta vidjeli ovakvu situaciju. Morali smo sakriti sve listove, osim određenog.
Na primjer, ako želite sakriti sve listove, osim naziva lista "Podaci kupca", tada možete koristiti ovaj kod.
Kodirati:
Sub Hide_All () Zatamni W kao radni list za svaki Ws u ActiveWorkbook.Worksheets Ako Ws.Name "Podaci kupca" Tada Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub
# 2 - Otkrij sve listove osim jednog lista
Slično tome, možemo otkriti i sve listove osim jednog lista. Upotrijebite donji kod da biste to učinili.
Kodirati:
Sub Unhide_All () Zatamni Ws kao radni list za svaki Ws u ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Onda Ws.Visible = xlSheetVisible End If Next Ws End Sub
Ovdje možete preuzeti ovaj predložak VBA nije jednako Excel-u - Predložak operatora VBA nije jednako.
