Operatory wykonują operacje arytmetyczne, porównania, łańcuchowe, logiczne na danych. Poniższa Tabela przedstawia operatory obsługiwane przez VBA
Operatory arytmetyczne | |
^ | Operator potęgowania |
– | Operator negacji |
* | Operator mnożenia |
/ | Operator dzielenia |
\ | Operator dzielenia całkowitego |
Mod | Operator modulo |
+ | Operator dodawania |
– | Operator odejmowania |
Operatory porównania | |
< | Operator mniejszości |
<= | Operator mniejszości lub równości |
> | Operator większości |
>= | Operator większości lub równości |
= | Operator równości |
<> | Operator różności |
Is | Operator porównania referencji |
Like | Operator porównania łańcuchów |
Operatory łańcuchowe | |
+ | Operator dodawania |
& | Operator konkatenacji |
Operatory logiczne | |
Not | Operator negacji |
And | Operator iloczynu logicznego, koniunkcji |
Or | Operator sumy logicznej, alternatywy |
Xor | Operator wyłączenia |
Eqv | Operator równości |
Imp | Operator implikacji, jeśli..to.. |
Poniższy Listing przedstawia przykładowe zastosowania operatorów.
Sub Operatory()
Dim a As Long, b As Long, c As Long
Dim Imie As String, Nazwisko As String
Dim Dodawanie As Long, Odejmowanie As Long, Mnożenie As Long
Dim Dzielenie As Long, DzielenieCałkowite As Long
Dim ResztaZDzielenia As Long, Potęga As Long
Dim Negacja As Long, SumaLog As Long, ExOr As Long
'Przypisanie przykładowych wartości zmiennym
a = 10
b = 2
c = 3
Imie = "Damian"
Nazwisko = "Daszkiewicz"
'Operatory arytmetyczne
Dodawanie = a + b
Odejmowanie = a - b
Mnożenie = a * b
Dzielenie = a / b
DzielenieCałkowite = a \ c
ResztaZDzielenia = a Mod c
Potęga = a ^ 3
'Operatory porównania
If a = b Then MsgBox "Zmienne a i b są równe"
If a > b Then MsgBox "Zmienna a jest większa od b"
If a < b Then MsgBox "Zmienna a jest mniejsza od b"
If a >= b Then MsgBox "Zmienna a jest większa lub równa b"
If a <> b Then MsgBox "Zmienne a i b przechowują różne wartości"
'Operatory łańcuchowe
MsgBox Imie + " " + Nazwisko
MsgBox "Zawartość zmiennej a wynosi: " & a
'Operatory logiczne
Negacja = Not a
IloczynLog = a And b
SumaLog = a Or b
ExOr = a Xor b
End Sub