Сумма столбцов в таблице умножения - VBA
Формулировка задачи:
Есть код, который выводит таблицу умножения, дали задание, чтобы под каждым столбцом посчитали его сумму, код у меня может и примитивный, но подскажите куда вписать код суммы, я уже всю голову сломал, или можно сделать ещё 1 циклом?
Решение задачи: «Сумма столбцов в таблице умножения»
textual
Листинг программы
Sub Form_Load() Dim i As Integer, S# Dim j%, k As Integer Dim N As Variant Dim A(1 To 99, 1 To 99) As Integer Do If N <> "" Then MsgBox "error" N = InputBox("Введите положительное число", "ВВОД ДАННЫХ") Loop While IsNumeric(N) = False Or N <= 0 k = N Range(Cells(2, 1), Cells(99, 99)).ClearContents For i = 1 To k For j = 1 To k A(j, i) = i * j S = S + A(j, i) Next j A(j, i) = S: S = 0 Next i Range(Cells(2, 1), Cells(2 + k, k)) = A End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д