М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Dood86ft24354657
Dood86ft24354657
19.04.2023 00:02 •  Информатика

Подскажите . Как сделать в excel макрос, позволяющий закрашивать (определенным цветом) в выделенном диапазоне ячейки, содержащие формулы? Желательно написать готовый код, буду очень благодарен!

👇
Ответ:
жасулан16
жасулан16
19.04.2023
ну

Объяснение:

ну не знаю
4,6(26 оценок)
Ответ:
Vasilchenkodan
Vasilchenkodan
19.04.2023

Объяснение:

нема за що можеш не дякувати


Подскажите . Как сделать в excel макрос, позволяющий закрашивать (определенным цветом) в выделенном
4,5(16 оценок)
Открыть все ответы
Ответ:
4okoladka100
4okoladka100
19.04.2023
Type  date = record    day: 1..31;     month: 1..12;         year: integer ;        end;var    a: date := (day: 8; month: 7; year: 2012);  b: date := (day: 6; month: 7; year: 2012);    c:integer;
procedure OutDate(d: date);begin  with d do writeln(day, '.', month, '.', year);end;begin if a.year > b.year then c:=1                     else c:=-1 ;                                         if a.year = b.year then                                         if  a.month > b.month then                                         c:=1                                                                   else c:=-1;                                                                       if a.year = b.year then                                                     if a.month = b.month then                                                        if a.day > b.day then c:=1                                                                          else c:=-1;  if a.year = b.year then                                                                 if a.month = b.month then                                                                     if a.day = b.day     then c:=0;                                                                                                                                                            OutDate(a);                                                                              OutDate(b);                                                                               writeln('otwet:', c);end.
4,6(51 оценок)
Ответ:
pavlova62
pavlova62
19.04.2023
Var s,tmp:string;
     i,n:integer;
     flag,word:boolean;
function letter (const let:char):boolean;
 begin
   if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true
     else letter:=false;
 end;
begin
  readln (s);
  s:=s+' ';
  n:=length(s);
  flag:=false;
  for i:=1 to n do
   begin
     if (letter(s[i])) and (not flag) then
      begin 
        flag:=true;
        tmp:='';
        word:=false;
      end else if (not letter(s[i])) and (flag) then
      begin 
       flag:=false;
       if (word) and (not (tmp='')) then writeln (tmp);
      end;
     if (flag) then
      begin 
        tmp:=tmp+s[i];
        if (s[i]='k') then word:=true;
      end; 
   end;
end.
4,8(70 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ