seychellesartprojects.org

Not Equal ir VBA operators, kuru var dēvēt arī par nolieguma operatoru, tā ir loģiska funkcija, tāpēc šīs funkcijas atgrieztā izeja ir vai nu 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 citu lietu vai nē”. 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ā, tas kļūst par vienādu simbolu, 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 PATIESA, ja piegādātais tests ir apmierināts, vai tas atgriezīs FALSE. Piemēram, ja jūs sakāt 10 = 10, tas atgriezīs vērtību PATIESA vai FALSE.

No otras puses “Not Equal” darbojas pretējā virzienā, ja piegādātais loģiskais tests programmā Excel nav vienāds, tikai tas atgriezīs PATIESU vai FALSE.

Piemēram, ja jūs sakāt 10 10, tas atgriezīs FALSE, jo 10 ir vienāds ar 10. Lai iegūtu TRUE 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 tests 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ā reāllaika piemēros izmantot šo nevienlīdzīgo operatoru. 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 nepieciešams “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 = "Tāda pati" beigas, ja nākamā k Beigu apakšnodaļa 

Ja nosacījums pārbauda, ​​vai vērtība 1 nav vienāda ar vērtību 2, vai nē. Ja tas nav vienāds, tas atgriezīs “Dažādi”, ja vienāds - “Tas pats”.

Jūs varat nokopē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 

Piezīme. Mainiet darblapas nosaukumu uz darblapas nosaukumu.

# 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