|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Окрасить цвет ячейки Excel по условию
Здравствуйте!
В задаче формируется отчёт в екселевском виде. Данные для отчёта вытаскиваются из базы. Хотелось бы в зависимости от содержимого ячейки производить некоторые действия Код:
XLApp := CreateOleObject('Excel.Application'); XLApp.Visible := false; XLApp.Workbooks.Open('d:\work\Tabel.xls'); Book1 := XLApp.workbooks.Item[1]; Sheet1 := Book1.WorkSheets['Трудозатраты']; if Sheet1.Range[Sheet1.cells(n,2+i),Sheet1.cells(n,2+i)].value = '777' then Sheet1.cells(n,2+i).Interior.Color:= clYellow; Большое спасибо откликнувшимся |
#2
|
|||
|
|||
Вопрос снимается
|