Excel ЧаВо



              

Как установить свойству ячейки


Для правильной работы NumberFormat с английскими форматами не забудьте подключить модуль TrDispCall

Delphi:

// Установка текстового формата.

// Записанное число как текст будет воспринят как текст,

// если указать текстовый формат

with ASheet.Range['A1', EmptyParam] do begin

NumberFormat := '@'; Value[xlRangeValueDefault] := '1234567890123456'; end; // Записанное число как текст будет воспринят как число,

// если указать общий формат

with ASheet.Range['A1', EmptyParam] do begin

NumberFormat := ''; Value2 := '1234567890123456'; end; // Записанное в ячейку число будет воспринято как число, но

// с выравниванием влево как текст

with ASheet.Range['A1', EmptyParam] do begin

NumberFormat := '@'; Value2 := Now(); end; // Для установки "общего" формата достаточно записать

// в свойство NumberFormat пустую строку

with ASheet.Range['A1', EmptyParam] do begin

NumberFormat := ''; end; // Для установки формата даты запишем в NumberFormat

// формат "короткой" даты.

with ASheet.Range['A1', EmptyParam] do begin

NumberFormat := ShortDateFormat; // SysUtils

end; // Установим формат целых чисел с разделителем тысяч

with ASheet.Range['A1', EmptyParam] do begin

NumberFormat := '#,##0'; end; // Установим формат float чисел с разделителем тысяч и

// двумя знаками после запятой

with ASheet.Range['A1', EmptyParam] do begin

NumberFormat := '#,##0.00'; end;

NumberFormat




Содержание  Назад  Вперед