JEI nėra VBA
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 funkciją „VBA IF NOT“. Prieš pristatydamas funkciją VBA IF NOT, leiskite man pirmiausia parodyti apie funkciją VBA NOT.
Kas VBA nėra funkcija?
„NE“ yra viena iš loginių funkcijų, kurią turime su „Excel“ ir VBA. Visoms loginėms funkcijoms atlikti reikia atlikti loginius bandymus ir grąžinti TIKRĄ, jei loginis testas teisingas. Jei loginis testas nėra teisingas, rezultatas bus FALSE.
Bet „VBA NOT“ yra visiškai priešingas kitai loginei funkcijai. Sakyčiau, kad tai atvirkštinė loginių funkcijų funkcija.
Funkcija „VBA NOT“ grąžina „FALSE“, jei loginis testas yra teisingas, o jei loginis testas neteisingas, jis grąžina „TRUE“. Dabar pažvelkite į funkcijos „VBA NOT“ sintaksę.
NE (loginis testas)Tai labai paprasta, turime pateikti loginį testą. Funkcija NE įvertina testą ir pateikia rezultatą.
NE ir IF funkcijų VBA pavyzdžiai?
Toliau pateikiami IF ir NOT funkcijų naudojimo „Excel VBA“ pavyzdžiai.
1 pavyzdys
Pažvelkite į žemiau pateiktą kodą.
Kodas:
Sub NOT_Pavyzdys () Dim k As String k = Not (100 = 100) MsgBox k End Sub
Ankstesniame kode kintamąjį paskelbiau kaip eilutę.
Dim k kaip stygos
Tada šiam kintamajam priskyriau funkciją NOT su loginiu testu kaip 100 = 100.
k = ne (100 = 100)
Tada aš parašiau kodą, kad rezultatas būtų rodomas VBA pranešimų laukelyje. „MsgBox“ k
Dabar įvykdysiu kodą ir pamatysiu rezultatą.
Rezultatas buvo „FALSE“.
Dabar atsigręžkite į loginį testą. Pateikėme loginį testą kaip 100 = 100, kuris paprastai yra TIKRA, nes suteikėme funkciją NOT, rezultatą gavome kaip NETIESĄ. Kaip sakiau, pradžioje tai suteikia atvirkštinius rezultatus, palyginti su kitomis loginėmis funkcijomis. Kadangi 100 yra lygus 100, rezultatas grąžintas kaip NETIESA.
2 pavyzdys
Dabar. Weok dar vieną pavyzdį su skirtingais skaičiais.
Kodas:
PASTABA__pavyzdys () Dim k As String k = Not (85 = 148) MsgBox k End Sub
Kodas yra tas pats vienintelis dalykas, kurį aš čia pakeitiau, tai aš pakeičiau loginį testą iš 100 = 100 į 85 = 148.
Dabar paleisiu kodą ir pažiūrėsiu, koks rezultatas.
Šį kartą rezultatą gavome TIKRĄ. Dabar išnagrinėkite loginį testą.
k = ne (85 = 148)
Mes visi žinome, kad 85 nėra lygus skaičiui 148. Kadangi jis nėra lygus, funkcija NOT grąžino rezultatą kaip TIESA.
NE su IF sąlyga:
„Excel“ ar VBA nėra jokių loginių sąlygų be kombinuotos IF sąlygos. Naudodami IF „excel“ sąlygomis, galime atlikti daug daugiau dalykų, išskyrus numatytuosius TIKRUS ar NETIESA. Pavyzdžiui, aukščiau pateiktuose pavyzdžiuose gavome numatytuosius FALSE & TRUE; vietoj to rezultatą galime modifikuoti savo žodžiais.
Pažvelkite į žemiau esantį kodą.
Kodas:
PASTABA_pavyzdys2 () Dim skaičius1 kaip eilutė Dim skaičius2 kaip eilutės numeris1 = 100 skaičius2 = 100 Jei ne (skaičius1 = skaičius2), tada „MsgBox“ skaičius 1 nėra lygus skaičiui 2 „Kita„ MsgBox “skaičius 1 yra lygus skaičiui 2„ Pabaiga jei Pabaigos sub
Aš paskelbiau du kintamuosius.
„Dim Number1“ kaip eilutė ir „Dim Number2“ kaip eilutė
Šiems dviem kintamiesiems aš priskyriau skaičius atitinkamai 100 ir 100.
Skaičius1 = 100 ir skaičius2 = 100
Tada funkcijai NE pridedu sąlygą IF, kad pakeisčiau numatytąją TRUE arba FALSE. Jei funkcijos NOT funkcija yra TIESA, tada mano rezultatas bus toks.
MsgBox „Skaičius 1 nėra lygus skaičiui 2“.
Jei NOT funkcijos rezultatas yra NETIESA, tai mano rezultatas yra toks.
MsgBox „Skaičius 1 yra lygus skaičiui 2“.
Dabar paleisiu kodą ir pažiūrėsiu, kas bus.
Rezultatą gavome, nes „Skaičius 1 yra lygus 2 numeriui“, todėl funkcija NĖRA grąžino FALSE rezultatą į IF sąlygą, taigi IF sąlyga grąžino šį rezultatą.
Taip atlikdami atvirkštinį testą galime naudoti IF sąlygą.
