Как установить свойству ячейки
Для правильной работы 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
