m

Sub x()
'
' x Makro
' generowanie x
'
' Klawisz skrótu: Ctrl+x
'


    i = 0
Do
    c = Asc("C")
    col = UCase(Chr(c + i)) + "3"
    Range(col) = Round(Rnd * 100, 0)

   i = i + 1

Loop Until i > 9





    Range("C3").Select
End Sub
Sub y()
'
' y Makro
' generowanie y
'
' Klawisz skrótu: Ctrl+y
'



     i = 0
Do
    c = Asc("C")
    col = UCase(Chr(c + i)) + "4"
    Range(col) = Round(Rnd * 100, 0)

   i = i + 1

Loop Until i > 9

End Sub
Sub odleglosc()
'
' odleglosc Makro
' obliczenie odleglosci
'
' Klawisz skrótu: Ctrl+o
     i = 0

Do
    Dim x As Integer
    Dim y As Integer


    c = Asc("C")
    col = UCase(Chr(c + i)) + "8"

    col_x = UCase(Chr(c + i)) + "3"
    col_y = UCase(Chr(c + i)) + "4"

    x = Range(col_x).Value
    y = Range(col_y).Value

    Range(col) = Sqr((x * x) + (y * y))

   i = i + 1

Loop Until i > 9
'
End Sub
Sub min()
'
' min Makro
' znajduje najmniejsza odleglosc
'
' Klawisz skrótu: Ctrl+m


     i = 0
     Dim min As Double
     min = Range("C8").Value
Do

    c = Asc("C")
    col_1 = UCase(Chr(c + i)) + "8"
    col_2 = UCase(Chr(c + i + 1)) + "8"



    If (min > Range(col_2).Value) Then
        min = Range(col_2).Value

    End If


   i = i + 1

Loop Until i > 8
    Range("B12") = min

'
End Sub