A VBA nyelv utasításai (operátorai). Logikai utasítások VB Visual basic excel utasítások

Ezek az operátorok összehasonlítanak két kifejezést, hogy megállapítsák, egyenlőek-e, és ha nem, hogyan különböznek. Az Is, IsNot és a Like részletesen itt találhatók egyes oldalak hivatkozások. Az összehasonlító operátor kapcsolatokat ezen az oldalon tárgyaljuk.

Eredmény = kifejezés1 összehasonlító operátor kifejezés2 eredmény = objektum1 objektum2 eredmény = karakterlánc Like minta

eredmény
Kívánt. Az eredmény egy logikai érték, amely az összehasonlítás eredményét reprezentálja.

kifejezés
Kívánt. Önkényes kifejezés.

összehasonlító operátor
Kívánt. Bármilyen reláció-összehasonlító operátor.

objektum1 , objektum2
Kívánt. Bármely referencia objektum neve.

húr
Kívánt. String típusú tetszőleges kifejezés.

minta
Kívánt. Bármely karakterlánc kifejezés vagy karaktertartomány.

Az alábbi táblázat felsorolja azokat az összehasonlítási operátorokat és feltételeket, amelyek meghatározzák, hogy az eredmény igaz vagy hamis.

Logikai operátorok A VBA-t az egyéni eredmények kombinálására használják logikai kifejezések komplex kritériumok létrehozása az eljárási döntéshozatalhoz (B.3. táblázat).

B.3. táblázat – VBA logikai operátorok

Ebben a táblázatban az E operandusok bármely érvényes logikai eredménykifejezés, például egy összehasonlító operátor.

Műveleti prioritások összetett kifejezések kiértékelésekor

Komplex (összetett) kifejezés (komplex kifejezés) - ez bármely két vagy több kifejezésből képzett kifejezés. A B.4 táblázat a műveleteket csoportonként, csökkenő prioritási sorrendben tartalmazza, vagyis minél alacsonyabban helyezkedik el a csoport, annál később hajtódnak végre a benne jelzett műveletek. A sorrend megváltoztatásához zárójeleket használunk. Az azonos szintű műveletek végrehajtása balról jobbra történik, abban a sorrendben, ahogyan a kifejezésben szerepelnek.

B.4 táblázat – VBA működési prioritások

C. függelék VBA matematikai függvények

A VBA biztosítja standard készlet táblázatban megadott matematikai függvények.

B.1 táblázat – VBA matematikai függvények

Az N operandus bármilyen numerikus kifejezést jelent? beengedhető

A trigonometrikus függvények (szinusz, koszinusz és tangens) argumentuma radiánban van megadva, nem fokban. Az A t n (x) inverz trigonometrikus függvény visszaadja a programnak a szög radiánban kifejezett értékét -π/2-től π/2-ig, amelynek érintője egyenlő az értékkel számtani kifejezés x.

Egy szög radián- és fokmértéke közötti összefüggést a π ≈ 3,14159265358979323846 irracionális szám fejezi ki.

A fokok radiánra konvertálásához használhatja a beépített funkciót is Excel funkció- Alkalmazás. Radiánok(x ), ahol x a szög

radiánban megadva.

A π konstans számértékének a mantissza 15 számjegyű pontosságú meghatározásához a beépített Excel Application.Pi(), ill. VBA funkcióív érintő

Pi=Alkalmazás.Pi() vagy Pi=4*Atn(1)

Példák trigonometrikus függvények írására

A VBA egy operátori nyelv. Ez azt jelenti, hogy programjai (eljárásai vagy függvényei) utasítássorozatokat képviselnek.

A VBA nyelvben a következő operátorcsoportokat lehet megkülönböztetni:

1. deklaratív utasítások, amelyek célja azon objektumok leírása, amelyekkel a program működik (változótípusok, konstansok és tömbök stb.),

2. megjegyzések,

3. operátorok hozzárendelése és az objektumok értékeinek megváltoztatása,

4. operátorok, amelyek a számítások menetét vezérlik (feltételes, ciklikus, átmenetek).

Ebben a kurzusban a fő operátorokat veszik figyelembe, és néhányat, például a ciklikusokat, három típusban mutatják be, de csak egyet kell elsajátítaniuk a hallgatóknak, mint a legérthetőbbet.

Megjegyzés operátor

A megjegyzések nem befolyásolják a program végrehajtását, de szükségesek az algoritmus megértéséhez. Mivel a programokat többször frissítik, rendkívül fontos a megjegyzések használata az algoritmus megjegyezéséhez és helyes módosításához.

A programszöveg bármely sora megjegyzéssel végződhet. A megjegyzés a VBA-ban aposztrófjel (") kezdődik, és a sortól jobbra található szöveget tartalmazza.

Például,

Súly= tömeg+z "Tömegnövelés érték=súly*ár "Új költség

hozzárendelés operátor

A hozzárendelési utasítások a program állapotának (változók értékeinek) megváltoztatásának fő eszközei. Ez egy olyan konstrukció, amely egy változót (bal oldal) és egy kifejezést (jobb oldal) kapcsol össze az = jellel. Egy kifejezés operandusokból (változók nevei, konstansok, szabványos függvények nevei) és műveletek jeleiből (aritmetikai, logikai, karakterlánc, összehasonlítás) áll. Ennek az operátornak az a jelentése, hogy a bal oldalhoz a jobb oldal értéke van hozzárendelve.

Ellenőrző nyilatkozatok

A VBA vezérlő utasítások halmaza egy strukturált programozási nyelvnek felel meg. Ez a készlet tartalmazza feltételes és ciklusutasítások, amely lehetővé teszi a számítási folyamat megbízható és hatékony megszervezését.

Feltételes operátor If Then Else End If

Ez a programozási nyelvekben elterjedt számítási vezérlő operátor, amely lehetővé teszi a műveletek kiválasztását és végrehajtását valamely feltétel igazsága alapján.

VBA operátorok - koncepció és típusok. A "VBA üzemeltetők" kategória besorolása és jellemzői 2017, 2018.

Megjegyzések

A VBA szintaxis lehetővé teszi az összehasonlító operátorok "láncolását", de általában ezeket a konstrukciókat kerülni kell. Az összehasonlítás mindig balról jobbra történik, egyszerre csak 2 operanduson, és minden összehasonlítás egy logikai értéket eredményez. Például a kifejezés...

A = 2: b = 1: c = 0 kif = a > b > c

Bizonyos szövegkörnyezetekben tesztként is olvasható, hogy megtudja, b a és c között van-e. A VBA-ban ezt a következőképpen értékelik:

A = 2: b = 1: c = 0 kif = a > b > c kif = (2 > 1) > 0 kif = igaz > 0 kif = -1 > 0 "CInt(igaz) = -1 kif = hamis

Az objektummal operandusként használt összes összehasonlító operátor kivételével az objektum alapértelmezett tagjának visszatérési értéke alapján kerül kiértékelésre. Ha az objektumnak nincs alapértelmezett tagja, az összehasonlítás 438-as futásidejű hibát eredményez - "Az objektum nem támogatja a tulajdonságát vagy metódusát."

Ha az objektum nincs inicializálva, az összehasonlítás 91-es futásidejű hibát eredményez - "Objektumváltozó vagy C zárolt blokkváltozó".

Ha a szó szerinti Semmit más összehasonlító operátorral is használja, mint az Is , az fordítási hibát fog eredményezni - "Az objektum érvénytelen használata".

Ha az alapértelmezett Objektum egy másik objektum, a VBA folyamatosan hívja minden következő visszatérési érték alapértelmezett elemét, amíg vagy egy primitív típust nem ad vissza, vagy egy hiba nem jelenik meg. Tegyük fel például, hogy a SomeClass-nek van egy alapértelmezett tagértéke , amely a ChildClass egy példánya a ChildValue by ChildValue taggal. Összehasonlítás...

Set x = New SomeClass Debug.Print x > 42

A következőképpen lesz besorolva:

Set x = New SomeClass Debug.Print x.Value.ChildValue > 42

Ha valamelyik operandus numerikus és egy másik operandus egy karakterlánc vagy a String altípusának változata, akkor numerikus összehasonlítás történik. Ebben az esetben, ha a karakterláncot nem lehet számra önteni, az összehasonlítás eredménye a 13-as futásidejű hiba – "Típushiba".

Ha mindkét Az operandus egy karakterlánc vagy a String altípusának változata, a karakterlánc-összehasonlítás a kódmodul paraméter-összehasonlítási paramétere alapján történik. Ezeket az összehasonlításokat karakterenként végezzük. vegye figyelembe, hogy karakterábrázolás számot tartalmazó karakterlánc, Nem megegyezik a számértékek egyeztetésével:

Public Sub Példa() Dim left As Variant Dim right As Variant left = "42" right = "5" Debug.Print left > right "Prints False Debug.Print Val(left) > Val(right) "Prints True End Sub

Emiatt a numerikus egyenlőtlenségek összehasonlítása előtt győződjön meg arról, hogy a String vagy Variant változók számokká lettek öntve.

Ha az egyik operandus egy dátum, akkor a mögöttes kettős érték numerikus összehasonlítása történik, ha a másik operandus numerikus, vagy numerikus típussá konvertálható.

Ha a másik operandus egy Karakterlánc vagy egy String altípusának Változata, amely az aktuális területi beállítás használatával egy dátumra önthető, a karakterlánc a dátumra lesz öntve. Ha nem alkalmazható egy dátumra az aktuális nyelvterületen, az összehasonlítás eredménye a 13-as futásidejű hiba – "Típushiba".

Óvatosan kell eljárni a dupla vagy egyszeri értékek és a logikai értékek összehasonlításakor. Más numerikus típusoktól eltérően a nem nulla értékek nem tekinthetők igaznak a VBA viselkedése miatt az összehasonlító adattípus népszerűsítése során, lebegővel a duplázáshoz:

Nyilvános alpélda() Dim Test Dupla tesztként = 42 Debug.Print CBool(Test) "Igazt nyomtat. "Az igaz kettőssé lép elő - A teszt nem kerül átadásra Boolean Debug.Print Test = True "Hamis nyomtatás" Explicit leadással: Debug.Print CBool(Test) = True "Igazt nyomtat Debug.Print CDbl(-1) = CDbl(True) "True End Sub

A Visual Basicben öt alapvető és fontos logikai operátor található: And, Or, Not, Xor és Eqv. Most megpróbálom elmagyarázni mindegyik szerepét!

Szóval És!
Talán ez a legegyszerűbb és legszükségesebb logikai operátor a többi között.

Segítség:
Két kifejezés konjunkciójának (logikai ÉS) eredményét adja vissza.

Szintaxis:
eredmény = kifejezés1Éskifejezés2

Azok. eredmény csak akkor lesz igaz, ha a kifejezés1ÉSkifejezés2. Az operátor által visszaadott értékeket a következő táblázat tartalmazza:

kifejezés1	kifejezés2	eredmény
Igaz	Igaz	Igaz
Igaz	Hamis	Hamis
Igaz	Nulla	Nulla
Hamis	Igaz	Hamis
Hamis	Hamis	Hamis
Hamis	Nulla	Hamis
Nulla	Igaz	Nulla
Nulla	Hamis	Hamis
Nulla	Nulla	Nulla

És most egy kis példa:

Képzeljük el, hogy a User_Has_Computer és User_Has_Car változók logikai értékként vannak deklarálva, és bizonyos műveletek során igaz vagy hamis értékeket vesznek fel. Beállít egy feltételt, amely ellenőrzi az alábbi értékeket:

Mi magunk emuláljuk :) - írja be valahova a következő sorokat:

Dim User_Has_Car Boolean-ként
User_Has_Computer = Igaz
User_Has_Car=Igaz

Ha User_Has_Computer and User_Has_Car Akkor
MsgBox "Szerencsés ember vagy!"
Vége ha

Ennek a feltételnek az ellenőrzésekor egy üzenet jelenik meg a képernyőn, amely közli, hogy a felhasználó boldog ember, mert. neki van kocsija ÉS számítógép:-)! Most tegyen egy """ aposztrófot a harmadik vagy negyedik sor elé - írja ki a sort. Most az egyik változó alapértelmezés szerint False lesz. Most NEM jelenik meg az üzenet, mert a felhasználó nem nagyon örül, hogy van autója VAGY számítógép...

A következő operátor nem kevésbé egyszerű – Or.

Segítség:
Logikai VAGY (összeadás) műveletet hajt végre két kifejezésen.

Szintaxis:
eredmény = kifejezés1Vagykifejezés2

Az eredmény csak akkor lesz igaz, ha csak az egyik kifejezés igaz. Az operátor által visszaadott értékeket a következő táblázat tartalmazza:

kifejezés1	kifejezés1	eredmény
Igaz	Igaz	Igaz
Igaz	Hamis	Igaz
Igaz	Nulla	Igaz
Hamis	Igaz	Igaz
Hamis	Hamis	Hamis
Hamis	Nulla	Nulla
Nulla	Igaz	Igaz
Nulla	Hamis	Nulla
Nulla	Nulla	Nulla

És ismét egy kis példa a régi logikai változókkal User_Has_Computer és User_Has_Car, amelyek bizonyos műveletek során igaz vagy hamis értéket vettek fel.

Dim User_Has_Computer As Boolean
Dim User_Has_Car Boolean-ként
User_Has_Computer = Hamis
User_Has_Car=Igaz

Ha User_Has_Computer vagy User_Has_Car Akkor
MsgBox "Majdnem boldog ember vagy!"
Vége ha

Ha ez a feltétel be van jelölve, egy üzenet jelenik meg a képernyőn, amely közli, hogy a felhasználó szinte boldog ember, mert. van autója, de nincs számítógépe:-|...

Nem operátor.

Segítség:
Logikai tagadási műveletet hajt végre egy kifejezésen.

Szintaxis:
eredmény = Nem kifejezés

Azok. eredmény ellentétessé válik kifejezés(kivéve Null). Az operátor által visszaadott értékeket a következő táblázat tartalmazza:

Példa:

Dim User_Has_Computer As Boolean

User_Has_Computer = Hamis

Ha nem User_Has_Computer Akkor
MsgBox "Sajnálom... :)"
Vége ha

Elmagyarázom: az If ... akkor feltétel akkor hajtódik végre, ha valamelyik kifejezés (a helyben ...) igaz. Képzeljük el, hogy a változó User_Has_Computer = Hamis. Aztán a vonal
A Not User_Has_Computer kiértékelése igaz, és a feltétel teljesül!

Xor operátor.

Segítség:
XOR műveletet hajt végre két kifejezésen.

Szintaxis:
[eredmény =] kifejezés1 Xor kifejezés2

Ez az operátor elvileg hasonló az Or-hoz, de nem egyszerű VAGY, és az exkluzív VAGY. Ha az egyik és csak az egyik kifejezéseket igaz (igaz értéke van), eredmény igaz. És az Or operátor két igazat is elismer kifejezéseket. Eredmény

Példa:

Dim User_Has_Computer As Boolean
Dim User_Has_Car Boolean-ként
User_Has_Computer = Hamis
User_Has_Car=Igaz

Ha User_Has_Computer X or User_Has_Car Akkor
MsgBox "Szükséged van egy autóra ÉS egy számítógépre!"
Vége ha

Itt is, csakúgy, mint az előző példában, a feltétel csak akkor teljesül, ha a User_Has_Computer karakterlánc Xor User_Has_Car igaz (= True). És akkor és csak akkor igaz, ha csak az egyik feltétel teljesül. Ha mindkettő, akkor a feltétel már nem teljesül.

Equv operátor.

Segítség:
Két kifejezés logikai egyenértékűségének tesztelésére szolgál.

Szintaxis:
eredmény = kifejezés1 Equv kifejezés2

Itt minden nagyon egyszerű: az eredmény akkor lesz igaz, ha mindkét kifejezés igaz vagy hamis. Eredmény a következőképpen van meghatározva:

Példa:

Dim User_Has_Computer As Boolean
Dim User_Has_Car Boolean-ként
User_Has_Computer = Igaz
User_Has_Car=Igaz

Ha User_Has_Computer Eqv User_Has_Car Akkor
MsgBox "Te vagy boldog vagy boldogtalan ember!"
Vége ha

Itt a számítógép „boldognak vagy boldogtalannak” fog nevezni, mert. a feltétel csak akkor teljesül, ha a felhasználónak van gépe és számítógépe is, vagy egyik sem.

Tematikus anyagok:

Hogyan kell dolgozni a feketelistával?

Korlátlan internet az mts-től

Milyen típusú kapcsolatot kell megadni az útválasztó konfigurálásakor?

Hogyan működik a Yandex Taxi alkalmazás az utasok számára

Minden módon kapcsolatba léphet a Tele2 szolgáltatójával

Tiltsa le a Megafon fizetős szolgáltatásait egy szolgáltatón keresztül

A tarifa leírása "MTS Tablet

Mi a leggyorsabb internet

Frissítve: 2022.02.06

103583

Ha hibát észlel, jelöljön ki egy szövegrészt, és nyomja meg a Ctrl + Enter billentyűket