Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.066 c
11-1215521729
tigra
2008-07-08 16:55
2010.08.27
ошибки при компиляции демо kolgraphic


2-1271844119
Учащийся
2010-04-21 14:01
2010.08.27
Почему не работает программа?


15-1267350874
Дмитрий С
2010-02-28 12:54
2010.08.27
Можно ли внедрить dll в свой проект?


15-1270289462
Урсулапов_
2010-04-03 14:11
2010.08.27
Symantec и Mail.ru агент


15-1268204901
DOOM
2010-03-10 10:08
2010.08.27
что можно узнать по ip-адресу?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский