Excel VBA nedarbojas
Loģiskās funkcijas ir noderīgas aprēķiniem, kuru pārbaudei nepieciešami vairāki nosacījumi vai kritēriji. Iepriekšējos rakstos mēs esam redzējuši apstākļus “VBA IF”, “VBA OR” un “VBA AND”. Šajā rakstā mēs apspriedīsim “VBA NOT” ar funkciju Excel. Lai to vispirms saprastu, mums jāaplūko funkcija “VBA NOT”.
Piemēri
1. piemērs
NOT funkcija ir pieejama arī ar VBA, un tā darbojas tieši tāpat kā Excel funkcija. Piemēram, apskatiet zemāk redzamo VBA kodu kopu.
Kods:
Sub NOT_Piemērs1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
Iepriekš minētajā kodā mainīgo “k” esam deklarējuši kā virkni.
Dim k kā stīga
Pēc tam mēs esam piešķīruši vērtību, izmantojot funkciju NOT. Vai funkcija NESAKA, vai skaitlis 45 ir vienāds ar 45, vai nē?
k = nav (45 = 45)
Pēc tam ziņojuma lodziņā mainīgajam “k” esam piešķīruši vērtību NOT ar funkciju NOT.
MsgBox k
Palaidiet kodu un uzziniet, kāds ir rezultāts.
2. piemērs - NAV ar IF funkciju
Kā es teicu vienā no iepriekšējiem rakstiem: "IF ar citām loģiskām funkcijām ir labākie pāri Excel."
Tāpat arī NĒ ar IF ir daudzējādā ziņā noderīgs. Izmantojot IF, mums var būt savi rezultāti, nevis noklusējuma TRUE vai FALSE rezultāti.
Paņemiet to pašu koda piemēru no augšas, un mēs piemērosim NAV ar IF funkciju.
Kods:
Sub NOT_Piemērs2 () Dim k kā virkne, ja nav (45 = 45), tad k = "Pārbaudes rezultāts ir PATIESA" Cits k = "Pārbaudes rezultāts ir FALSE" Beigas, ja MsgBox k Beigas Sub
Iepriekš minētajā kodā mēs esam mainījuši noklusējuma rezultātus no “Testa rezultāts ir nepatiesa” un “Testa rezultāts ir PATIESA”. Ja piegādātais loģiskais tests ir patiess, tas atgriež “Pārbaužu rezultāts ir FALSE”, un, ja piegādātais loģiskais tests ir kļūdains, tas atgriezīsies. “Pārbaudes rezultāts ir PATIESA.”
Iepriekš minētajā kodā mums vērtība ir 45 = 45, tāpēc mēs saņemsim atbildi šādi.
3. piemērs - papildu NAV
Funkciju NĒ vislabāk var izmantot ar funkciju IF. Mēs varam izmantot šo funkciju, lai paslēptu visas lapas, izņemot vienu konkrēto lapu.
Mums ir dažādas lapas, kā aprakstīts mūsu Excel.
Zemāk ir koda paraugs, lai paslēptu visas lapas, izņemot vienu konkrētu lapu.
Kods:
Apakšnodaļa NOT_Example3 () Dim Ws kā darblapa katram W ActiveWorkbook.Worksheets If Not (Ws.Name = "Datu lapa"), tad Ws.Visible = xlSheetVeryHideen Beigt, ja nākamās Ws beigas Sub
Iepriekš minētais kods slēpj visas darblapas, izņemot darblapu “Datu lapa”.
Jūs varat izmantot šo VBA kodu, lai paslēptu visas lapas, izņemot vienu konkrēto lapu, mainot lapas nosaukumu uz jūsu lapas nosaukumu.
Tāpat kā tas, kā mēs varam arī atcelt lapas Excel. Zemāk redzamais kods parādīs visas lapas, izņemot lapu nosaukumu “Datu lapa”.
Kods:
Apakšnodaļa NOT_Example4 () Dim Ws kā darblapa katram W ActiveWorkbook.Worksheets If Not (Ws.Name = "Datu lapa"), tad Ws.Visible = xlSheetVisible End, ja nākamās Ws beigsies Sub
Tālāk redzamajā kodā tiks parādīts tikai lapas nosaukums “Datu lapa”.
Kods:
Sub NOT_Example3 () Dim Ws kā darblapa katrai W ActiveWorkbook.Worksheets If Not (Ws.Name "Data Sheet"), tad Ws.Visible = xlSheetVisible End Ja Next Ws End Sub
