'На первом листе внесите данные 'При добавлении записей формулу вычисления задолженности добавлять не надо 'Запускаете макрос - результат (отчет) на втором листе 'На первом листе формулы пересчитывается - результаты обновляются 'Форма в этом случае -излишне Dim i, j, s, a
Sub Othet () Dim info As Variant
'Clear OTHET(2 list) Sheets(2).Select Range("A1:I1").Select With Selection .HorizontalAlignment = xlGeneral: .VerticalAlignment = xlBottom .AddIndent = False: .IndentLevel = 0: .ShrinkToFit = False: .MergeCells = True End With Selection.Font.Bold = True With Selection End With Sheets(2).Cells(1, 1) = "ОТЧЕТ"
'Shapka 1 list Sheets(1).Select info = Array("", "фамилия", "адрес", "дата", "стоимость заказа", "сумма аванса", "задолженность", "вид заказа") For i = 1 To UBound(info) Cells(1, i) = info(i) Next
1) var a: array[1..100] of integer; i,n: integer; begin writeln('Введите кол-во элементов массива'); readln(n); writeln('Массив:'); for i:=1 to n do begin a[i]:= random(50)+1; write(a[i],' ' ); end; writeln; if a[1]<a[2] then begin writeln('Локальный минимум:',a[1]); exit; end; for i:=2 to n do if (a[i]<a[i-1]) and (a[i]<a[i+1]) then begin writeln('Локальный минимум:',a[i]); exit; end; writeln('Локальный минимум:',a[n]); end. 2) var a: array[1..100] of integer; b:array[1..100] of integer; i,n,k: integer; begin writeln('Введите кол-во элементов массива'); readln(n); writeln('Массив A:'); for i:=1 to n do begin a[i]:= random(50)+1; write(a[i],' ' ); b[i]:=a[i]; end; writeln; writeln('Массив B:'); for k:=1 to 2 do for i:=1 to n do write(b[i],' '); end.
Пишу 20 символов чтобы засчитался ответ