Всем привет,
Имеется задача след. характера:
Имеется таблица с данными, в первом столбце значения прямой линии (концов линий), во втором значения точек на этой линии.
Необходимо вычислить расстояние между точками, так же расстояние между первой точки и началом линии (0), и расстояние между последней точки и концом линии. Необходимо создать массив со значениями расстояний.
Думаю просмотрев пример будет более понятно.
Так же что-то пытался сам сделать, но не выходит, мой код (так же есть в примере):
Sub test_L()
Dim a(), i&, ii&, L_max#
a = Worksheets("Sheet1").Range("c5:d30").Value
L_max = Application.Max(a)
For i = 1 To UBound(a, 2)
ReDim L#(1 To UBound(a, 2))
L(i) = a(i + 1, 2) - a(i, 2)
Next
End Sub
Спасибо
Имеется задача след. характера:
Имеется таблица с данными, в первом столбце значения прямой линии (концов линий), во втором значения точек на этой линии.
Необходимо вычислить расстояние между точками, так же расстояние между первой точки и началом линии (0), и расстояние между последней точки и концом линии. Необходимо создать массив со значениями расстояний.
Думаю просмотрев пример будет более понятно.
Так же что-то пытался сам сделать, но не выходит, мой код (так же есть в примере):
Sub test_L()
Dim a(), i&, ii&, L_max#
a = Worksheets("Sheet1").Range("c5:d30").Value
L_max = Application.Max(a)
For i = 1 To UBound(a, 2)
ReDim L#(1 To UBound(a, 2))
L(i) = a(i + 1, 2) - a(i, 2)
Next
End Sub
Спасибо
