Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=476546 Wed, 06 Oct 2004 11:58:07 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=476546
     
    ASheetRef.Range[CellsToRange(5,3,45,PeriodCount + 2)].NumberFormat:='# ###,0;(# ###,0);0,0';
    ASheetRef.Range[CellsToRange(50,3,86,PeriodCount + 2)].NumberFormat:='# ###,0;(# ###,0);0,0';
]]> rapido Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=475077 Tue, 05 Oct 2004 02:12:51 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=475077 Цитата Jureth, 4.10.04, 08:46
Переустановил бы Офис - ради разработки приложения можно и попотеть немного.

офис можно и доустановить, не удаляя его полностью :)]]> Mischka Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=474757 Mon, 04 Oct 2004 14:53:26 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=474757 rapido Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=474143 Mon, 04 Oct 2004 02:46:00 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=474143 2. Это свойство - ReadOnly, установить его можно только при сохранении книги (WBRef.SaveAs)

Цитата
У меня нету этой чертовой справки ВБ
Переустановил бы Офис - ради разработки приложения можно и попотеть немного.]]> Jureth Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=472611 Fri, 01 Oct 2004 13:44:27 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=472611 Цитата Jureth, 29.09.04, 05:09
Попробуй Sheet.Calculate (или Range.Calculate) - он должен форсировать пересчет данных, но я не проверял.


Работает.

И еще два вопроса.
1. Как установить формат ячеек, то есть:
     
    ASheetRef.Range['A1:A86'].NumberFormat:='# ###0.0';


2. И как присвоить имя книге:
     
        ExcelApp:=CreateOleObject('Excel.Application');
        ExcelApp.Visible:=true;
        WBRef:=ExcelApp.Workbooks.Add;
        WBRef.Name:='Some name';



Вылетает ошибка и в первом и во втором случае. Искал в инете - ничего толкового не могу найти. У меня нету этой чертовой справки ВБ.]]> rapido Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=470011 Wed, 29 Sep 2004 02:09:35 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=470011 Jureth Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=469972 Tue, 28 Sep 2004 22:29:47 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=469972 Сделал так:
     
    procedure DrawCellBorders(var ASheetRef: Variant);
    const
        EDGE_LEFT      = 7;
        EDGE_TOP       = 8;
        EDGE_BOTTOM    = 9;
        EDGE_RIGHT     = 10;
        INNER_VERTICAL = 11;
        INNER_HOR      = 12;
     
        LINE_STYLE     = 1;
        LINE_WIDTH     = 2;
     
    begin
        ASheetRef.Range[CellsToRange(1,1,86,PeriodCount + 2)].Borders[INNER_VERTICAL].Weight:=LINE_WIDTH;
        ASheetRef.Range[CellsToRange(1,1,86,PeriodCount + 2)].Borders[INNER_VERTICAL].LineStyle:=LINE_STYLE;
        ASheetRef.Range[CellsToRange(1,1,86,PeriodCount + 2)].Borders[INNER_HOR].Weight:=LINE_WIDTH;
        ASheetRef.Range[CellsToRange(1,1,86,PeriodCount + 2)].Borders[INNER_HOR].LineStyle:=LINE_STYLE;
     
        ASheetRef.Range[CellsToRange(1,1,86,PeriodCount + 2)].Borders[EDGE_TOP].Weight:=LINE_WIDTH;
        ASheetRef.Range[CellsToRange(1,1,86,PeriodCount + 2)].Borders[EDGE_BOTTOM].LineStyle:=LINE_STYLE;
        ASheetRef.Range[CellsToRange(1,1,86,PeriodCount + 2)].Borders[EDGE_LEFT].Weight:=LINE_WIDTH;
        ASheetRef.Range[CellsToRange(1,1,86,PeriodCount + 2)].Borders[EDGE_RIGHT].LineStyle:=LINE_STYLE;
    end;//DrawCellBorders


Прорисовывает почти мгновенно. Спасибо Jureth.

Формула тоже вставляется. Только есть небольшая проблема.
Как обновить значение в ячейке с автосумой? А то в ней прописывает 0. А у меня в сумируемых ячейках уже есть значения и их то и надо просумировать и показать пользователю.]]> rapido Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=469046 Tue, 28 Sep 2004 05:15:16 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=469046
    aSheetRef.Cells[19,3].FormulaLocal:='=СУММ(C6;C11;C14:C18)';

Процедуры, генерирующая строку:
     
    //Вспомогательная - генерирует буквенное представление столбца по его номеру
    function GetCol(Col: integer): String;
    begin
      if Col<27 then
        Result := Chr(Col+64)
      else
        Result := Chr((Col div 26)+64)+ Chr((Col mod 26)+64)
    end;
    //Возвращает строку типа 'A1' для одной ячейки
    function CellsToRange(Row1, Col1: Integer): String; overload;
    var
      S : String;
    begin
      S := GetCol(Col1)+IntToStr(Row1);
      Result := S;
    end;
    //Возвращает строку типа 'A1:C5' для диапазона (Row1, Col1 - TopLeft угол, Row2, Col2 - RightBottom)
    function CellsToRange(Row1, Col1, Row2, Col2: Integer): String; overload;
    var
      S : String;
    begin
      S := GetCol(Col1)+IntToStr(Row1)+':'+ GetCol(Col2)+ IntToStr(Row2);
      Result := S;
    end;

юзается это примерно так:
     
      Sheet.Range[CellsToRange(1,1,15,15)].Borders[11].Weight := 2;
      Sheet.Range[CellsToRange(1,1,15,15)].Borders[11].LineStyle := 4
Пока всё.]]> Jureth Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=468983 Tue, 28 Sep 2004 02:31:36 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=468983 Цитата
С формулами все равно не получается.
Она скорее всего матюгается на 'SUM' - эту функцию она не понимает даже если её ввести руками (#ИМЯ?).
Цитата
Пробовал. Выигрыш незначительный.
Тогда можно попробовать сначала сгенерировать строку из адресов ячеек для Range, а потом проставить Borders для полученного диапазона(алгоритм сейчас не дам - занят, но к вечеру или завтра - попробую). Если и это не поможет, то тогда смирись - Excel вообще штука не быстрая.]]> Jureth Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=468741 Mon, 27 Sep 2004 16:52:29 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=468741
Цитата anika, 26.09.04, 01:51
По поводу второго могу порекомендовать убрать обновление экрана перед выполнением кода (_WordDoc как TWordDocument):

_WordDoc.Application.ScreenUpdating:=false;


а самом конце обратно соответственно в true


Цитата Jureth, 27.09.04, 07:05
У тебя приличную часть времени занимает доступ к ячейке таблицы, если запомнить этот адрес в переменной, то будет немного быстрее:


Пробовал. Выигрыш незначительный.

С формулами все равно не получается.
При всех вариантах вылетает: OLE error 800A03EC

     
        ASheetRef.Cells[19,3]:='=SUM(C6;C11;C14:C18)';
        ASheetRef.Range['C19:C19'].Formula:='СУММ(C6;C11;C14:C18)';
        ASheetRef.Range['C19', 'C20'].Formula :='=SUM(C6;C11;C14:C18)';
        ASheetRef.Cells.Item[19,3].Value:='=SUM(C6;C11;C14:C18)';
        ASheetRef.Cells[19, 3].Formula:='=SUM(C6;C11;C14:C18)';
        ASheetRef.Cells[19, 3].FormulaR1C1:='=SUM(C6;C11;C14:C18)';


Может я чего-то недопонимаю?]]> rapido Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=468012 Mon, 27 Sep 2004 05:48:42 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=468012
    ActiveCell.FormulaR1C1 = "=VALUE(RC[-4])"
]]> Bas Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=467956 Mon, 27 Sep 2004 04:05:14 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=467956 Цитата rapido @ 26.09.04, 00:40
И еще. Я в цикле (вернее в двух) перебираю ячейки и обрисовываю граници:
     
        for i:=1 to PeriodCount + 2 do
        begin
            for j:=1 to INIT_ROW_COUNT do
            begin
                ASheetRef.Cells[j,i].Borders[EDGE_TOP].LineStyle:=LINE_STYLE;
                ASheetRef.Cells[j,i].Borders[EDGE_TOP].Weight:=LINE_WIDTH;
                ASheetRef.Cells[j,i].Borders[EDGE_LEFT].LineStyle:=LINE_STYLE;
                ASheetRef.Cells[j,i].Borders[EDGE_LEFT].Weight:=LINE_WIDTH;
                ASheetRef.Cells[j,i].Borders[EDGE_BOTTOM].LineStyle:=LINE_STYLE;
                ASheetRef.Cells[j,i].Borders[EDGE_BOTTOM].Weight:=LINE_WIDTH;
                ASheetRef.Cells[j,i].Borders[EDGE_RIGHT].LineStyle:=LINE_STYLE;
                ASheetRef.Cells[j,i].Borders[EDGE_RIGHT].Weight:=LINE_WIDTH;
            end;
        end;


У тебя приличную часть времени занимает доступ к ячейке таблицы, если запомнить этот адрес в переменной, то будет немного быстрее:
     
    var a : OleVariant;//или какой он там?
    ..
        for i:=1 to PeriodCount + 2 do
        begin
            for j:=1 to INIT_ROW_COUNT do
            begin
                a := ASheetRef.Cells[j,i];
                a.Borders[EDGE_TOP].LineStyle:=LINE_STYLE;
                a.Borders[EDGE_TOP].Weight:=LINE_WIDTH;
                a.Borders[EDGE_LEFT].LineStyle:=LINE_STYLE;
                a.Borders[EDGE_LEFT].Weight:=LINE_WIDTH;
                a.Borders[EDGE_BOTTOM].LineStyle:=LINE_STYLE;
                a.Borders[EDGE_BOTTOM].Weight:=LINE_WIDTH;
                a.Borders[EDGE_RIGHT].LineStyle:=LINE_STYLE;
                a.Borders[EDGE_RIGHT].Weight:=LINE_WIDTH;
            end;
        end;
]]> Jureth Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=467422 Sat, 25 Sep 2004 22:51:54 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=467422
    _WordDoc.Application.ScreenUpdating:=false;

а самом конце обратно соответственно в true

Добавлено
а формулу я присваивала как:
    Sheet.Cells.Item[i,j].Value:='=SUM(C6;C11;C14:C18)'
]]> anika Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=467318 Sat, 25 Sep 2004 17:40:53 +0000 Вставка формулы в Excel https://forum.sources.ru/index.php?showtopic=67199&view=findpost&p=467318 Пробовал так:
     
    ASheetRef.Range['C19:C19']:='=СУММ(C6;C11;C14:C18)';


и вот так:
     
    ASheetRef.Range['C19:C19'].Formula:='=СУММ(C6;C11;C14:C18)';


И еще по всякому. Искал в интернете - ничего толкового не могу найти.

Вылетает ошибка.

И еще. Я в цикле (вернее в двух) перебираю ячейки и обрисовываю граници:
     
        for i:=1 to PeriodCount + 2 do
        begin
            for j:=1 to INIT_ROW_COUNT do
            begin
                ASheetRef.Cells[j,i].Borders[EDGE_TOP].LineStyle:=LINE_STYLE;
                ASheetRef.Cells[j,i].Borders[EDGE_TOP].Weight:=LINE_WIDTH;
                ASheetRef.Cells[j,i].Borders[EDGE_LEFT].LineStyle:=LINE_STYLE;
                ASheetRef.Cells[j,i].Borders[EDGE_LEFT].Weight:=LINE_WIDTH;
                ASheetRef.Cells[j,i].Borders[EDGE_BOTTOM].LineStyle:=LINE_STYLE;
                ASheetRef.Cells[j,i].Borders[EDGE_BOTTOM].Weight:=LINE_WIDTH;
                ASheetRef.Cells[j,i].Borders[EDGE_RIGHT].LineStyle:=LINE_STYLE;
                ASheetRef.Cells[j,i].Borders[EDGE_RIGHT].Weight:=LINE_WIDTH;
            end;
        end;


но все это происходит так меееееедленно. Нет ли способа ускорить процес?]]> rapido Delphi: Общие вопросы