powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Закрасить ячейку Excel цветом
3 сообщений из 3, страница 1 из 1
Закрасить ячейку Excel цветом
    #40021438
svnvlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure TA7Rep.SetColor(X, Y, AColor: integer);
begin
  TemplateSheet.Cells[y, x].Interior.ColorIndex := AColor; // работает
end;


procedure TA7Rep.SetColor(FromRow, ToRow, FromCol, ToCol: integer; AColor: integer);
var
  Cell1, Cell2, Range: Variant;
begin
  Cell1 := TemplateSheet.Cells[FromRow, FromCol];
  Cell2 := TemplateSheet.Cells[ToRow, ToCol];
  Range := TemplateSheet.Range[Cell1, Cell2];
  TemplateSheet.Range.Interior.ColorIndex := AColor; // выдает ошибку
end;



Первый вариант срабатывает, второй выдает ошибку "Недопустимое число параметров"? Когда диапазону Range пытаюсь присвоить цвет.
Вариант взял отсюда
https://webdelphi-ru.turbopages.org/webdelphi.ru/s/2009/09/excel-v-delphi-kak-izmenit-vneshnij-vid-yacheek/
Неужели нельзя присвоить цвет диапазону, а надо перечислять поячеечно?
...
Рейтинг: 0 / 0
Закрасить ячейку Excel цветом
    #40021442
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
svnvlad

Первый вариант срабатывает, второй выдает ошибку "Недопустимое число параметров"? Когда диапазону Range пытаюсь присвоить цвет.
Убери TemplateSheet.
...
Рейтинг: 0 / 0
Закрасить ячейку Excel цветом
    #40021445
svnvlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Соколинский Борис
svnvlad

Первый вариант срабатывает, второй выдает ошибку "Недопустимое число параметров"? Когда диапазону Range пытаюсь присвоить цвет.
Убери TemplateSheet.

О, точно, спасибо!
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Закрасить ячейку Excel цветом
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]