Function SUMA_OD_DO(Lp As Single, Lk As Single) As Single
Dim suma As Integer
For i = Lp To Lk
suma = suma + i
Next i
SUMA_OD_DO = suma
End Function

Sub ILEE()
Dim x As Integer
Dim wartość As Integer
x = InputBox("Wprowadz liczbe ILE")
For i = 1 To x
Sheets("Arkusz2").Cells(1, i) = i
Next i
End Sub

Sub zad3()
Dim x As Integer
Dim wartość As Single
x = InputBox("Wprowadz numer kolumny")
For i = 1 To 10
wartość = Cells(i, 1)
Cells(i, x) = Abs(wartość)
Next i
End Sub

Sub zad4()
Dim i As Integer
Dim wartość As Integer
Dim ujemne
For i = 1 To 10
wartość = Cells(i, 1)
If wartość < 0 Then
wartość = Abs(wartość)
ujemne = ujemne + 1
ElseIf wartość > 0 Then
wartość = wartość
If ujemne > 0 Then
MsgBox ("Liczba dokonanych zamian " & ujemne)
Else
MsgBox ("Brak wartości ujemnych")
End If

End Sub