„Excel VBA“ neveikia
Loginės funkcijos yra naudingos atliekant skaičiavimus, kuriems atlikti reikia kelių sąlygų ar kriterijų. Ankstesniuose straipsniuose matėme „VBA IF“, „VBA OR“ ir „VBA AND“ sąlygas. Šiame straipsnyje aptarsime „VBA NOT“ su IF funkcija „Excel“. Norėdami tai pirmiausia suprasti, turime pažvelgti į funkciją „VBA NOT“.
Pavyzdžiai
1 pavyzdys
NOT funkcija yra prieinama ir su VBA, ir ji veikia lygiai taip pat, kaip ir „Excel“ funkcija. Pavyzdžiui, pažvelkite į žemiau pateiktą VBA kodo rinkinį.
Kodas:
PASTABA__pavyzdys1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
Pirmiau pateiktame kode kintamąjį „k“ paskelbėme eilute.
Dim k kaip stygos
Tada mes priskyrėme vertę per funkciją NOT. Ar funkcija NESAKO, ar skaičius 45 yra lygus 45, ar ne?
k = ne (45 = 45)
Tada pranešimo laukelyje kintamajam „k“ priskyrėme funkcijos NOT grąžą.
„MsgBox“ k
Paleiskite kodą ir sužinokite, koks yra rezultatas.
2 pavyzdys - NE su IF funkcija
Kaip sakiau viename iš ankstesnių straipsnių, „IF su kitomis loginėmis funkcijomis yra geriausios„ Excel “poros“.
Panašiai NE su IF yra naudinga daugeliu atžvilgių. Naudodami IF, mes galime turėti savus rezultatus, o ne numatytuosius TIKRA ar NETIESA.
Paimkite tą patį kodo pavyzdį iš viršaus, ir mes pritaikysime NE su IF funkcija.
Kodas:
PASTABA__pavyzdys2 () Dim k kaip eilutė, jei ne (45 = 45), tada k = "Testo rezultatas TIKRA" Kita k = "Testo rezultatas yra NETIESA" Pabaiga, jei MsgBox k Pabaiga Sub
Ankstesniame kode mes pakeitėme numatytuosius rezultatus iš „Testo rezultatas yra NETIESA“ ir „Testo rezultatas TIKRA“. Jei pateiktas loginis testas yra teisingas, jis grąžins „Testo rezultatas yra NETIESA“, o jei pateiktas loginis testas bus klaidingas, jis grįš. „Testo rezultatas TIKRA.“
Ankstesniame kode mes turime vertę kaip 45 = 45, todėl atsakymą gausime taip.
3 pavyzdys - pažengęs NE
NOT funkciją geriausiai naudoti su IF funkcija. Šią funkciją galime naudoti norėdami paslėpti visus lapus, išskyrus vieną konkretų lapą.
Mes turime įvairių lapų, kaip nurodyta toliau.
Žemiau yra pavyzdinis kodas, skirtas paslėpti visus lapus, išskyrus vieną konkretų lapą.
Kodas:
PASTABA__pavyzdys3 () „W Ws“, kaip kiekvieno „ActiveWorkbook“ darbo lapo darbalapis. Jei ne, darbo lapai (Ws.Name = "Duomenų lapas"), tada Ws.Visible = xlSheetVeryHideen Baigti, jei kiti Ws Pabaiga
Aukščiau pateiktas kodas slepia visus darbalapius, išskyrus darbalapį „Duomenų lapas“.
Galite naudoti šį VBA kodą, kad paslėptumėte visus lapus, išskyrus vieną konkretų lapą, pakeisdami lapo pavadinimą į savo lapo pavadinimą.
Kaip ir tai, kaip mes taip pat galime nebeslėpti „Excel“ lapų. Žemiau pateiktas kodas atvaizduos visus lapus, išskyrus lapo pavadinimą „Duomenų lapas“.
Kodas:
PASTABA__pavyzdys4 () „Dim Ws“ kaip kiekvieno „ActiveWorkbook“ darbo lapo darbalapiai. Jei ne, darbo lapai (Ws.Name = "Duomenų lapas"), tada Ws.Visible = xlSheetVisible End, jei kitas Ws galas Sub
Žemiau pateiktas kodas paslėps tik lapo pavadinimą „Duomenų lapas“.
Kodas:
PASTABA__pavyzdys3 () „W Ws“, kaip kiekvieno „ActiveWorkbook“ darbo lapo darbalapiai. Jei ne, darbo lapai (Ws.Name "duomenų lapas"), tada Ws.Visible = xlSheetVisible End, jei kitas Ws pabaiga Sub
