Программа для формирования матрицы A(n,n) (Макросы/Sub)

[p51x]

Ну вы же к Cells как-то обращаетесь и что-то присваиваете...

[Serge_Bliznykov]

Сообщение от Aleksandr2138

Извините, но сейчас будет очень глупый вопрос Как записать присвоить элементу матрицы n в коде

извините, но сколько можно из пустого в порожнее переливать то?

в Excel в A1 занесите число - размер квадратной матрицы (это и будет n)

в редакторе VBA вставьте код

Sub Matrica()
Dim A(), i, j, n As Integer
n = Range("A1")
ReDim A(n, n)
For i = 1 To n
  For j = 1 To n
    If i = j Then
      A(i, j) = 25
    Else
      If i > j Then
        A(i, j) = 0
      Else
        A(i, j) = i - j
      End If
    End If
    Cells(i + 1, j) = A(i, j)
  Next j
Next i
End Sub

всё - можно запускать.

p.s. неплохо бы сделать очистку.

[Аватар]

А в динамических массивах не с 0 индексация в VBA?

[Serge_Bliznykov]

Сообщение от Аватар

А в динамических массивах не с 0 индексация в VBA?

от нуля.
но фишка в том, что A(n) это массив на n+1 элементов (от 0 до n включительно)

пруф- https://docs.microsoft.com/en-us/off...array-function

ReDim Preserve A(4)    ' Extend A's length to five elements

проверочный код

Sub test()
  Dim A()
  ReDim A(4)    ' Extend A's length to five elements
  MsgBox "нижняя граница = " & LBound(A) & "верхняя = " & UBound(A)

End Sub

p.s. даже боюсь предположить, зачем они так сделали.
наверное, чтобы код работал нормально и у тех, кто считает что нумерация от нуля до n-1
и у тех, что считает, что нумерация от 1 до n