[~ SaM ~]

//------------ Форматы ячеек -----------------------------------
// "mmmm yy"
// "#,##0.00_ ;[Red]-#,##0.00 "
// "@"
// "#,##0.00$;[Red]#,##0.00$"

Код:

Function  GetFormatRange(sheet:variant;range:string):string;
begin
try
GetFormatRange:=E.ActiveWorkbook.Sheets.Item[sheet].Range[range].NumberFormat;
except
GetFormatRange:='';
end;
End;

Function  SetFormatRange(sheet:variant;range:string;format:string):boolean;
begin
SetFormatRange:=true;
try
E.ActiveWorkbook.Sheets.Item[sheet].Range[range].NumberFormat:=format;
except
SetFormatRange:=false;
end;
End;