1. Уважаемые участники и гости, 19 октября codeby будет работать в режиме "Только чтение". Регистрация новых участников будет закрыта. 20 октября портал продолжит работу в прежнем режиме.

Как Закрасить Слово Из Передаваемой Строки В Excel?

Тема в разделе "Delphi - СОМ", создана пользователем novachok, 23 окт 2012.

  1. novachok

    novachok New Member

    Репутация:
    0
    Регистрация:
    16 авг 2012
    Сообщения:
    1
    Симпатии:
    0
    Добрый день! Помогите кто знает как при передачи строки в ячейку закрасить, например, ФИО.
    Вот я передаю строку
    Код:
    ExcelApp.WorkBooks[1].WorkSheets[1].Cells[8, 9] := '__________________ ' + ФИО;
    как мне закрасить "ФИО" красным цветом?
     
  2. sinkopa

    sinkopa Well-Known Member

    Репутация:
    0
    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    Я вот так это делал в свое время:
    На форме:
    Код:
    type
    TForm1 = class(TForm)
    
    //........ //
    Excel: TExcelApplication;
    Workbook: TExcelWorkbook;
    Worksheet: TExcelWorksheet;
    
    //........ //
    
    end;
    В коде:
    Код:
    procedure TForm1.PrintToExcel;
    begin
    //........ //
    Excel.Connect;
    Workbook.ConnectTo(Excel.ActiveWorkbook);
    Workbook.Sheets.Add(Workbook.Sheets[Workbook.Sheets.Count],EmptyParam,1,EmptyParam,0);
    //........ //
    Worksheet.ConnectTo(Workbook.Sheets[1] as _Worksheet);
    Worksheet.Activate;
    Worksheet.Cells.Item[8,9].FormulaR1C1 := '__________________ ФИО';
    Worksheet.Cells.Item[8,9].Characters[21,23].Font.Color := clRed;
    //........ //
    end;
    Вот. Это работает (через TExcelApplication).
    Если Вы работаете с Экселем через OLE, я не уверен что там (у Cells) интерфейс Characters доступен... но попробуйте, чем черт не шутит... :)
     
  3. -master-

    -master- Well-Known Member

    Репутация:
    0
    Регистрация:
    14 янв 2012
    Сообщения:
    617
    Симпатии:
    20
    TExcelApplication это обертка над ОЛЕ.
     
Загрузка...

Поделиться этой страницей