Excel VBA-Userform (07/08 Vežba 1 “Kalkulator”)

Ovaj tutorial je ustvari vežba koja se sastoji iz dva dela (video tutoriala). Ovde koristimo sve što smo naučili iz predhodnih tutoriala, plus novo kao sto je textbox, label i button click. Ovde ćemo malo poraditi i na izgledu userforme i naučiti važnu naredbu “if“.

If naredba

Ova se naredba koristi kada je potrebno izvršiti jednu ili više naredbi samo ako je zadovoljen određeni uslov. Najjednostavniji oblik ove naredbe je jednolinijski i izgleda:

If Uslov Then Instrukcije Else Instrukcije2

Uslov može biti bilo koja kombinacija logičkih uslova, operacija poređenja ili numeričkih izraza. Ukoliko je taj uslov tačan, tj. ima numeričku vrednost različitu od nule, izvršiće se Instrukcije1, a u suprotnom će se izvršiti Instrukcije2. Ovde je Else blok opcion, tj. ne mora postojati ukoliko nema potrebe za njim. Daćemo primer korišćenja obe verzije ovog oblika If naredbe.

If (X Mod 2 = 0) Then MsgBox "Broj X je paran"
If (X Mod 2 = 0) Then MsgBox "Broj X je paran" Else MsgBox "Broj X je neparan" 

U prvoj naredbi će biti ispisana poruka “Broj X je paran” ako je X paran broj, što se proverava korišćenjem operatora Mod, i prećiće se na izvršavanje prve sledeće naredbe. U slučaju da X nije paran broj ništa se neće desiti, već će se preći na izvršavanje prve sledeće naredbe. U drugoj naredbi će biti ispisana poruka “Broj X je paran” ako je X paran broj, ili poruka “Broj X je neparan” u suprotnom.

Kod koji je korišćen u ovom tutorialu je:

Dim Broj1 As Double
Dim Broj2 As Double
Dim Rezultat As Double
Dim Cell As Range


Private Sub btn_Run_Click()

Broj1 = Val(tb_Broj1.Text)
Broj2 = Val(tb_Broj2.Text)

Set Cell = Sheet1.Range("C4")


    If ob_Sabiranje.Value Then
        Rezultat = Broj1 + Broj2
    End If
    
    If ob_Oduzimanje.Value Then
        Rezultat = Broj1 - Broj2
    End If
    
    If ob_Mnozenje.Value Then
        Rezultat = Broj1 * Broj2
    End If
    
    If ob_Deljenje.Value Then
        Rezultat = Broj1 / Broj2
    End If



tb_Rezultat.Text = Rezultat
Cell = Rezultat

End Sub

Excel dokument iz ovog videa možete preuzeti na linku ispod.