Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.044 c