Liitmine

See makro lisab 2 kirjutatud numbrit

Public Sub liitmine()
    Dim arv1 As Double, arv2 As Double, s As Double
    arv1 = Val(InputBox("Sisesta arv 1:", "Liitmine"))
    arv2 = Val(InputBox("Sisesta arv 2:", "Liitmine"))
    s = arv1 + arv2
    MsgBox ("arvude " & arv1 & "+ " & arv2 & "= " & s)
    
End Sub

Koodis loodud 3 väärtust, “arv1” ja “arv2″ väärtused, mis tuleb sisestada ja” s ” on vastus
Arv1 ja Arv2 liidetakse ja saadakse S