Страницы: 1
RSS
Макрос.Заполнение ячеек по диагонали
 
Всем привет.
Который день мучаюсь с Макросом. Нужно заполнить ячейки по диагонали, например ячейка (6:6) будет зависеть от значения в ячейки (5:5) умноженной на значние из ячейки  (4:5), следующая ячейка (7:7) будет зависеть от значения в ячейки (6:6) умноженной на значние из ячейки  (4:6). Тоесть идет перебор из строки и по диагонали.
Написал код ниже, но чую что то не то с "c".
Код
Dim a, b, c, d

     For a = 6 To 10
          c = 5

          For b = 6 To 10
               Cells(a, b) = Cells(a - 1, b - 1) * Cells(4, c)
          Next b

          c = c + 1
     Next a
End Sub
Изменено: vikttur - 13.07.2021 17:23:37
 
Код
Sub Macro1()
    Dim i&
    For i = 6 To 10
        Cells(i, i) = Cells(i - 1, i - 1) * Cells(4, i - 1)
    Next
End Sub
Страницы: 1
Наверх