Подскажите . Как сделать в excel макрос, позволяющий закрашивать (определенным цветом) в выделенном диапазоне ячейки, содержащие формулы? Желательно написать готовый код, буду очень благодарен!
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.
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.
Объяснение:
ну не знаю