Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

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

 
Delphist2   (2010-05-19 11:13) [0]

Есть excel файл с суммами. В нем в ячейках сумма записывается в виде "1500р." (без кавычек), при этом в формульной строке у этой же ячейки "р." на конце нет, просто 1500. Как работать с такой ячейкой, если мне надо пересчитать сумму?

s:=floattostr(sum);
XL.WorkBooks[1].WorkSheets[1].Cells[i,j].formula:=s;
s:=s+"р.";
XL.WorkBooks[1].WorkSheets[1].Cells[i,j]:=s;

везде оказывается "р.", и в формуле тоже.

А если менять только ячейку:
s:=floattostr(sum);
XL.WorkBooks[1].WorkSheets[1].Cells[i,j]:=s;

то в формулах "р." нет, зато в ячейках где-то с "р.", а где-то без (при том что обрабатывались все ячейки).


 
Плохиш ©   (2010-05-19 11:28) [1]

Использовать
 XL.WorkBooks[1].WorkSheets[1].Cells[i,j].Value
?


 
Delphist2   (2010-05-19 11:42) [2]

спасибо, работает


 
Delphist2   (2010-05-19 12:56) [3]

А вот еще проблемка. Округление само собой происходит в ячейке:
s:=floattostr(sum);
s:=s+"р."; //s=200,5р.
XL.WorkBooks[1].WorkSheets[1].Cells[i,j].value:=s; //а в excel в этой ячейке 201р.
XL.WorkBooks[1].WorkSheets[1].Cells[i,j].formula:=sum;


 
Delphist2   (2010-05-19 13:36) [4]

Причем если менять формат ячейки
XL.Selection.NumberFormat  := "#,##0.00р.";
то возникает исключение "Нельзя установить свойство NumberFormat класса Range"


 
Плохиш ©   (2010-05-19 14:45) [5]

http://www.swissdelphicenter.ch/de/showcode.php?id=379


 
Delphist2   (2010-05-19 16:46) [6]

Ну там текстовый формат используется. Мне надо сменить на денежный а возникает исключение.


 
Игорь Шевченко ©   (2010-05-19 17:10) [7]


> то возникает исключение "Нельзя установить свойство NumberFormat
> класса Range"


http://www.delphikingdom.com/asp/viewitem.asp?catalogid=924



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.057 c
2-1273484332
Fr
2010-05-10 13:38
2010.08.27
сортировка слова по символам


2-1274344276
zamtmn
2010-05-20 12:31
2010.08.27
unicode->ascii


2-1274513044
timekiller
2010-05-22 11:24
2010.08.27
TWebBrowser, Просмотр кода, Access Violation


15-1269894602
Юрий
2010-03-30 00:30
2010.08.27
С днем рождения ! 30 марта 2010 вторник


3-1243786232
Serjio77
2009-05-31 20:10
2010.08.27
Ошибка отображения данных в результате sql запроса в BDE