Dim liczba_2 As Double

liczba = 5
liczba_2 = 2.5

Worksheets("Arkusz1").Cells(1, 2) = liczba
Worksheets("Arkusz1").Cells(1, 3) = liczba_2
Worksheets("Arkusz1").Cells(2, 1) = liczba + liczba_2

Dim suma As Double
suma = Worksheets("Arkusz1").Cells(2, 1)
If suma > 6 Then
    Worksheets("Arkusz1").Cells(3, 1) = "liczba jest większa od 6"
ElseIf suma < 6 Then
    Worksheets("Arkusz1").Cells(3, 1) = "liczba jest mniejsza od 6"
Else
    Worksheets("Arkusz1").Cells(3, 1) = "liczba równa 6"

End If

For i = 1 To 10 Step 1
Worksheets("Arkusz1").Cells(i, 1) = i
Next i

-----------------------
Dim liczba As Long

liczba = Worksheets("Arkusz1").Cells(1, 1)
silnia = 1

For i = 1 To liczba Step 1
silnia = i * silnia
Next i

Worksheets("Arkusz1").Cells(2, 2) = silnia

_______________________
Dim tekst_A, tekst_B As String
Dim liczba_A As Double
Dim liczba_B As Double

tekst_A = InputBox("Podaj liczbe A")
tekst_B = InputBox("Podaj liczbe B")
If IsNumeric(tekst_A) = True And IsNumeric(tekst_B) = True Then
    liczba_A = CDbl(tekst_A)
    liczba_B = CDbl(tekst_B)
    suma = liczba_A + liczba_B
    Worksheets("Arkusz1").Cells(1, 1) = suma
    Else
    MsgBox ("Tekst nie jest liczba")
End If

_______________________
Sub licz_pole()
    Dim tekst_a As String
    Dim tekst_b As String
    Dim bok_a As Double
    Dim bok_b As Double
    Dim prostokat As Double
    Dim figura

    figura = InputBox("co chcesz policzyć t- trojkat, p-prostokat")
    tekst_a = InputBox("Podaj bok a")
    tekst_b = InputBox("Podaj wysokość b")

    If (IsNumeric(tekst_a) = True And IsNumeric(tekst_b) = True) Then
        bok_a = CDbl(tekst_a)
        bok_b = CDbl(tekst_b)

        If (figura = "p") Then
            prostokat = pole_prostokat(bok_a, bok_b)
            MsgBox ("Pole prostokata= " + CStr(prostokat))
        ElseIf (figura = "t") Then
            Trojkat = pole_trojkat(bok_a, bok_b)
            MsgBox ("Pole trójkąt = " + CStr(Trojkat))
         Else
            MsgBox ("Bład")
        End If

    Else
        MsgBox ("Podane litery zamiast liczb")
    End If



End Sub

Function pole_prostokat(a As Double, b As Double) As Double
    pole_prostokat = a * b
End Function

Function pole_trojkat(a As Double, b As Double) As Double
    pole_trojkat = (a * b) / 2
End Function