|
Форматирование области
Нет ничего проще в Microsoft Excel, чем форматирование ячеек, ваш лучший помощник
в этом деле - пункт меню Excel "Сервис\Макрос\Начать запись...".
Здесь мы приведем лишь некоторые примеры...
var
Format: OleVariant;
...
ISheet := IExcel.ActiveSheet as _Worksheet;
Установить формат одной ячейки "General number"
Format := 'General';
ISheet.Range['A1', 'A1'].NumberFormat := Format;
Установить формат области "Text", выравнивание вправо
Достаточно странно: чтобы назначить области текстовый формат, вы должны присвоить ее свойству
NumberFormat значение @:
with Isheet.Range['A1', 'M10'] do
begin
NumberFormat := '@';
HorizontalAlignment := xlHAlignRight;
end;
Отформатировать область стилем даты "Март 4, 1999"
Format := 'mmmm d, yyyy';
ISheet.Range['B1', 'C10'].NumberFormat := Format;
Отформатировать весь столбец определенным вами стилем валюты
Format := '$#,##0.00_);[Red]($#,##0.00)';
ISheet.Range['C1', 'C1'].EntireColumn.NumberFormat := Format;
Установка шрифта текста в ячейке Arial, 20пт, жирный, зеленого цвета
with IExcel.ActiveCell.Font do
begin
Size := 20;
FontStyle := 'Bold';
Color := clGreen;
Name := 'Arial';
end;
Изменить цвет фона ячейки
IExcel.ActiveCell.Interior.Color := clBtnFace;
или
ISheet.Range['B2', 'C6'].Interior.Color := RGB(223, 123, 123);
Выделить первые три символа в ячейке жирным
var
Start, Length: OleVariant;
...
Start := 1;
Length := 3;
IExcel.ActiveCell.Characters[Start, Length].Font.FontStyle := 'Bold';
|
