Not Equal er en operatør i VBA, som også kan betegnes som en negationsoperator, det er en logisk funktion, så det output, der returneres af denne funktion, er enten sandt eller falsk, vi ved, at lige operator er “=” dette, men ikke ens er “ ”I VBA, så uanset hvilken værdi vi får fra den samme operatør, får vi nøjagtig modsat værdi ved hjælp af Ikke lige operator.
"Ikke lige" operatør i VBA
Normalt foretager vi en logisk test "om noget er lig med andre ting eller ej." I nogle tilfælde er vi også nødt til at lave "ulighed" -testen. Ulighedstesten er intet andet end ikke en lige test. Generelt siger vi, om noget er lig med en anden ting eller ej, hvis det er lige, udfører en slags opgave, hvis ikke en anden opgave. På samme måde kan vi også bruge en form for operation ved hjælp af ulighedstesten . "IKKE LIGE" i VBA er repræsenteret ved kombinationen af større end og mindre end symboler. Hvis begge disse operatører kombineres, bliver det ikke ens symbol, dvs. “.”
Hvordan er ikke lig med at arbejde i Excel VBA?
VBA Ikke lige fungerer nøjagtigt modsat logikken med lig med operatøren. Ligesom operatørens returnering SAND, hvis den leverede test ikke er opfyldt, returnerer den FALSK. Hvis du f.eks. Siger 10 = 10, returnerer den SAND eller ellers FALSK.
På den anden side fungerer "Ikke lige" i den modsatte retning. Hvis den medfølgende logiske test i Excel ikke er lig, returnerer kun den SAND ellers FALSK.
For eksempel, hvis du siger 10 10, returnerer den FALSK, fordi 10 er lig med 10. For at få et SANDT resultat skal en værdi ikke være lig med den anden værdi.
Eksempler på ikke lig med i Excel VBA
Nedenfor er eksemplerne på ikke lig med operatøren i Excel VBA.
Eksempel nr. 1
Nu vil vi se, hvordan man bruger VBA Not Equal () -tegn praktisk. Se på nedenstående stykke kode.
Kode:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Her tester vi, om tallet 100 ikke er lig med tallet 100. Vi ved helt sikkert, at tallet 100 er lig med 100, så resultatet bliver FALSK.
Nu vil jeg ændre ligningen.
Kode:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Nu er testen, om tallet 100 ikke er lig med 99. Så resultatet bliver SAND.
Eksempel 2
Nu vil vi se, hvordan man bruger denne ikke lige operatør i realtidseksempler. Til demonstrationen har jeg oprettet nogle data.
Vi har to værdier, "Værdi 1" og "Værdi 2".
Nu er mit krav, hvis værdi 1 ikke er lig med værdi 2, så har jeg brug for resultatet som "anderledes", ellers har jeg brug for resultatet som "samme".
Trin 1: Definer en variabel som et heltal.
Kode:
Sub NotEqual_Example2 () Dim k Som heltal End Sub
Trin 2: Åbn FOR NÆSTE LOOP fra 2 til 9.
Kode:
Sub NotEqual_Example2 () Dim k som heltal For k = 2 til 9 Næste k End Sub
Trin 3: Inde i sløjfen skal vi teste, om værdi 1 ikke er lig med værdi 2. Da vi har brug for vores egne resultater, skal vi bruge IF-betingelse.
Kode:
Sub NotEqual_Example2 () Dim k som heltal For k = 2 til 9 Hvis celler (k, 1) Celler (k, 2) Derefter celler (k, 3). Værdi = "Forskellige" andre celler (k, 3). Værdi = "Samme" Slut Hvis næste k Slut Sub
Antag, at tilstandstest, om værdien 1 ikke er lig med værdi 2 eller ej. Hvis det ikke er lige, returnerer det "anderledes". Hvis det er lige, returnerer det "Samme".
Du kan kopiere og indsætte nedenstående VBA-kode.
Kopier denne kode til dit modul, og kør ved hjælp af F5-tasten eller manuelt. Dette vil returnere et resultat som dette.
Skjul og skjul ark med ikke lige tegn
De forskellige måder at bruge ikke lige synge er enorme. Vi kan bruge dette tegn til at opfylde vores behov.
# 1 - Skjul alle ark undtagen et ark
Vi har set denne slags situation mange gange. Vi havde brug for at skjule alle arkene undtagen det bestemte ark.
Hvis du f.eks. Vil skjule alle ark undtagen arknavnet "Kundedata", kan du bruge denne kode.
Kode:
Under Hide_All () Dim Ws som regneark for hver Ws i ActiveWorkbook.Worksheets Hvis Ws.Name "Kundedata" Derefter Ws.Visible = xlSheetVeryHidden End Hvis næste Ws slut sub
# 2 - Skjul alle ark undtagen et ark
På samme måde kan vi også fjerne alle ark undtagen det ene ark. Brug nedenstående kode til at gøre dette.
Kode:
Sub Unhide_All () Dim Ws som regneark for hver Ws i ActiveWorkbook.Worksheets Hvis Ws.Name "Kundedata" Derefter Ws.Visible = xlSheetVisible End Hvis næste Ws slutter Sub
Du kan downloade denne VBA ikke lig med Excel-skabelon her - VBA ikke lig operatørskabelon.
