tdv84
14.03.2021 07:25

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
26dura
12.07.2021 04:00
// PascalABC.NET 3.0, сборка 1128
procedure Convert(V:array of integer);
begin
  for var i:=0 to V.Length-1 do
    if V[i]>9 then V[i]:=9
    else
      if V[i]<5 then V[i]:=5
end;

procedure Develop(c:char; k:integer);
begin
  WritelnFormat('*** Массив {0} ***',c);
  var a:=ArrRandom(k,-5,15);
  Write('исходный : '); a.PrintLn(',');
  Convert(a);
  Write('результат: '); a.PrintLn(',');
end;

begin
  var m:=ReadInteger('Количество элементов в массиве A:');
  var n:=ReadInteger('Количество элементов в массиве B:');
  Develop('A',m);
  Develop('B',n)
end.

Тестовое решение:
Количество элементов в массиве A: 15
Количество элементов в массиве B: 10
*** Массив A ***
исходный : 6,5,-5,9,1,0,-3,9,13,12,-4,8,11,14,-5
результат: 6,5,5,9,5,5,5,9,9,9,5,8,9,9,5
*** Массив B ***
исходный : 5,12,12,4,7,9,7,-3,-1,-2
результат: 5,9,9,5,7,9,7,5,5,5
0,0(0 оценок)
Ответ:
мурgsng
17.06.2020 04:21
Var имя переменной: char;

  Символьные значения можно вводить и выводить, присваивать, сравнивать. Ниже приведен пример, где выполняются все эти действия.

Var  x,y:char;
Begin
  Write('Введите символ');    
  Readln(x);
  Y:='A';
  If x<y then write ('X') else write ('y'); 
  {на экран буде выдан символ хранящийся в переменной 
  Х или Y в зависимости от проверки условия}
  Readln;
End.

  Сравнивать символы можно благодаря тому, что в машинной памяти они хранятся в виде целых чисел (кодов символов). Из двух символов большим считается тот, код которого больше. Символы упорядочены следующим образом:

'A'<'B'<...<'Z'
'a'<'b'<...<'z'
'0'<'1'<...<'9'
'а'<'б'<...<'я'
'А'<'Б'<...<'Я'

Для символов допустимы все шесть операций сравнения: =, <=,>=,<,>,<>.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота