Excel NumberFormat

← →
TTCustomDelphiMaster © (2003-01-13 20:14) [0]

Пытаюсь установить свойство ячейки, чтобы число выводилось с двумя знаками после запятой. Задаю
SetRange(WorkBook, CurentRow, 4, CurentRow, 6).NumberFormat :=
"#,##0.00;[RED]#,##0.00";
Выдает ошибку "Нельзя установить свойство NumberFormat класса Range"
Если делаю так
SetRange(WorkBook, CurentRow, 4, CurentRow, 6).NumberFormat :=
""#,##0.00;[RED]#,##0.00"";
то ошибки нет, но вместо чисел показывается #,##0.00;[RED]#,##0.00

Кто знает как установить это свойство или у кого есть примеры работы с Excel поищите пожалуйста в *.pas слово NumberFormat, и скинте сюда (или по почте) этот кусочек кода.

Заранее спасибо.

PS: Очень срочно нужно

← →
gsu © (2003-01-13 20:37) [1]

так описания NumberFormat нигде ни хрена нет, сочувствую, попробуй опытным путем

← →
TTCustomDelphiMaster © (2003-01-13 20:40) [2]

5 часов пробую уже времени нет. Нужен пример.

← →
Zz_ (2003-01-13 20:42) [3]

Поставь в Win десятичный разделитель точку.

← →
TTCustomDelphiMaster © (2003-01-13 21:22) [4]

Zz_ (13.01.03 20:42)
А это еще зачем. Вы что-то не договариваете...

Самое интересное, что строковый формат могу установить, а все остальные нет. И в интернете все эту проблему обходят стороной, и в help мало написано.

← →
Zz_ (2003-01-13 21:29) [5]

WSheet.Rows[...].NumberFormat := "# ### ### ##0.00";

Вот эта фигня у меня работает, но только при выставленной в
винде десятичной точке. При запятой ругается аналогично
вышеприведенному.

← →
TTCustomDelphiMaster © (2003-01-13 22:08) [6]

Ну что за козлы пишут help"ы в Microsoft. 7 часов убил на такую лажу.
Спасибо Zz_ направил на путь истинный.

Final Relis :)
SetRange(WorkBook, CurentRow, 4, CurentRow, 6).NumberFormat :=
"0"+DecimalSeparator+"00";

← →
Dead Stark © (2003-01-14 03:36) [7]

Это точно.... excel "странно" обрабатывает дробные числа... Без decimalseparator="." у меня тоже ничего не получалось

>Dead Stark © (14.01.03 03:36)
> у меня тоже ничего не получалось

Если получилось установить такой формат "#,##0"+DecimalSeparator+"00" при DecimalSeparator = "," напиши как сделал.

WSheet.Columns[...].NumberFormat :=
"#"+ThousandSeparator+"##0"+DecimalSeparator+"00";

Спасибо

PS: Где же ты вчера был :)

Excel NumberFormat Найти похожие ветки