Vba excel создание макросов 1. создать макрос с именем макрос_f, доступный во всей рабочей книге, в процессе активизации которого отображаются все формулы активного рабочего листа. для активизации использовать комбинацию клавиш ctrl+f. 2. создать макрос с именем макрос_nf, доступный во всей рабочей книге, в процессе активизации которого отключается режим отображения формул рабочего листа. для активизации использовать комбинацию клавиш ctrl+n. 3. разработать процедуру для автоматического подсчета количества переходов к рабочему листу таблица. 1.макрос_f 'макрос включения режима просмотра формул sub formulaviewon() activewindow.newwindow activeworkbook.windows.arrange arrangestyle: =xlhorizontal activewindow.displayformulas = true end sub 2.макрос_ 'макрос выключения режима просмотра формул sub formulaviewoff() if activewindow.windownumber = 2 then activewindow.close activewindow.windowstate = xlmaximized activewindow.displayformulas = false end if end sub 3.таблица dim res as long private sub workbook_beforeclose(cancel as boolean) msgbox res end sub private sub workbook_sheetactivate(byval sh as object) res = res - (sh.name = "таблица") end sub
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.