Not Equal ir VBA operators, kuru var saukt arī par nolieces operatoru, tā ir loģiska funkcija, tāpēc šīs funkcijas atgrieztā izeja ir patiesa vai nepatiesa, mēs zinām, ka vienāds operators ir “=” šis, bet ne vienāds ir “ ”VBA, tāpēc neatkarīgi no vērtības, ko mēs saņemsim no vienāda operatora, mēs iegūsim tieši pretēju vērtību, izmantojot operatoru Not Equal.
“Ne vienāds” operators VBA
Parasti mēs veicam loģisku pārbaudi “vai kaut kas ir vienāds ar citām lietām”. Dažos gadījumos mums ir jāveic arī “nevienlīdzības” tests. Nevienlīdzības pārbaude nav nekas cits kā vienāds tests. Parasti mēs sakām, ja kaut kas ir vienāds ar citu lietu vai nē, ja tas ir vienāds, veic kaut kādu uzdevumu, ja ne citu. Līdzīgi, izmantojot nevienlīdzības testu, mēs varam veikt arī kādu darbību. VBA “NOT EQUAL” simbolu kombinācija ir lielāka par un mazāk par simbolu. Ja abi šie operatori kopā, tad tas nav vienāds simbols, ti, “.”
Kā nav vienādi ar darbiem programmā Excel VBA?
VBA Nav vienāds darbojas tieši pretēji loģikai vienāds ar operatoru. Vienāds ar operatoru atgriež vērtību TRUE, ja piegādātā testa izpilde nav apmierināta, tas atgriezīs vērtību FALSE. Piemēram, ja jūs sakāt 10 = 10, tas atgriezīs vērtību PATIESA vai FALSE.
No otras puses, “Nav vienāds” darbojas pretējā virzienā. Ja piegādātais loģiskais tests programmā Excel nav vienāds, tad tikai tas atgriezīs vērtību TRUE vai arī FALSE.
Piemēram, ja jūs sakāt 10 10, tas atgriezīs FALSE, jo 10 ir vienāds ar 10. Lai iegūtu PATIESU rezultātu, vienai vērtībai nevajadzētu būt vienādai ar otru vērtību.
Piemēri, kas nav vienādi ar Excel VBA
Tālāk ir sniegti piemēri, kas nav vienādi ar operatoru programmā Excel VBA.
1. piemērs
Tagad mēs redzēsim, kā praktiski lietot VBA Not Equal () zīmi. Apskatiet zemāk redzamo koda daļu.
Kods:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Šeit mēs pārbaudām, vai skaitlis 100 nav vienāds ar skaitli 100. Protams, mēs zinām, ka skaitlis 100 ir vienāds ar 100, tāpēc rezultāts būs FALSE.
Tagad es mainīšu vienādojumu.
Kods:
Sub NotEqual_Example1 () Dim k As virkne k = 100 99 MsgBox k End Sub
Tagad pārbaude ir, vai skaitlis 100 nav vienāds ar 99. Tātad rezultāts būs PATIESA.
2. piemērs
Tagad mēs redzēsim, kā izmantot šo nevienlīdzīgo operatoru reāllaika piemēros. Demonstrācijai esmu izveidojis dažus datus.
Mums ir divas vērtības: “Vērtība 1” un “Vērtība 2”.
Tagad mana prasība ir, ja 1. vērtība nav vienāda ar 2. vērtību, tad rezultāts ir vajadzīgs kā “Dažāds”, vai arī rezultāts ir vajadzīgs kā “Tas pats”.
1. darbība: definējiet mainīgo kā veselu skaitli.
Kods:
Sub NotEqual_Example2 () Dim k As Integer End Sub
2. solis: Atveriet NEXT LOOP no 2 līdz 9.
Kods:
Sub NotEqual_Example2 () Dim k kā vesels skaitlis k = 2 līdz 9 Nākamais k Beigas Sub
3. solis: Cilpas iekšpusē mums jāpārbauda, vai 1. vērtība nav vienāda ar 2. vērtību. Tā kā mums ir vajadzīgi mūsu pašu rezultāti, mums jāizmanto IF nosacījums.
Kods:
Sub NotEqual_Example2 () Dim k kā veselais skaitlis k = 2 līdz 9 Ja šūnas (k, 1) Šūnas (k, 2), tad šūnas (k, 3). Vērtība = "Dažādas" citas šūnas (k, 3). Vērtība = "Pats" Beigt Ja Nākamais k Beigt Apakšdaļu
Pieņemsim, ka stāvoklis pārbauda, vai 1. vērtība nav vienāda ar 2. vērtību vai nē. Ja tas nav vienāds, tas atgriezīs “Atšķirīgs”. Ja vienāds, tas atgriezīs “Tas pats”.
Jūs varat kopēt un ielīmēt zemāk redzamo VBA kodu.
Kopējiet šo kodu savā modulī un palaidiet, izmantojot F5 taustiņu vai manuāli. Tas atgriezīs šādu rezultātu.
Slēpt un paslēpt lapas ar vienādu zīmi
Dažādi veidi, kā izmantot nevienlīdzīgu dziedāšanu, ir milzīgi. Mēs varam izmantot šo zīmi, lai apmierinātu savas vajadzības.
# 1 - paslēpt visas lapas, izņemot vienu lapu
Šādu situāciju mēs esam redzējuši daudzas reizes. Mums vajadzēja paslēpt visas lapas, izņemot konkrēto lapu.
Piemēram, ja vēlaties paslēpt visas lapas, izņemot lapas nosaukumu “Klienta dati”, varat izmantot šo kodu.
Kods:
Sub Hide_All () Dim Ws kā darblapa katram W ActiveWorkbook.Worksheets If Ws.Name "Klienta dati", tad Ws.Visible = xlSheetVeryHidden End Ja nākamie Ws beigsies Sub
# 2 - Nerādīt visas lapas, izņemot vienu lapu
Līdzīgi mēs varam arī paslēpt visas lapas, izņemot vienu lapu. Lai to izdarītu, izmantojiet zemāk esošo kodu.
Kods:
Sub Unhide_All () Dim Ws kā darblapa katram W ActiveWorkbook.Worksheets Ja Ws.Name "Klienta dati", tad Ws.Visible = xlSheetVisible End, ja nākamais Ws End Sub
Šo VBA Not Equal to Excel veidni varat lejupielādēt šeit - VBA Not Equal Operator Template.
