Funkcja, Makro, MsgBox, InputBox i równanie funkcji.

Napisać funkcję użytkownika, która opisuje podaną zależność
          | x + a     dla  -a <= x <= 0
f(x) = | -x + a    dla   0 <= x <= a           a > 0
          | 0           dla pozostałych x

Zastosować funkcję w arkuszu. Następnie napisać procedurę przypisaną do obiektu w arkuszu, która dla zadanych wartości a oraz x wprowadzanych przez użytkownika wywołuje funkcję i wyświetla wynik w oknie MsgBox. Umieścić w arkuszu okno InputBox lub kontrolki do wprowadzania wartości wejściowych.

Funkcja:

Function Funkcja(a As Integer, x As Integer)
    If -a <= x And x <= 0 Then
        Funkcja = x + a
    ElseIf x >= 0 And x <= a Then
        Funkcja = (-x) + a
    Else
        Funkcja = 0
    End If
End Function

Makro:
 

Sub Makro1()
    Dim x As Integer, a As Integer
    x = InputBox("Podaj x", "Podaj x")
    a = InputBox("Podaj a", "Podaj a")
    MsgBox Funkcja(a, x), , "Wynik"
End Sub

Później należy tylko dodać w arkuszu przycisk albo kształt. Najechać na niego, wcisnąć prawy przycisk myszki i przypisać Makro1