[Ardi]

чтобы поменять в них шрифт, цвет, и т. д.
Или по другому поменять цвет текста сразу всего таб. документа.

[alex040269]

Процедура СписокФоновыхЗаданийПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
    Если ДанныеСтроки.СостояниеЗадания = СостояниеФоновогоЗадания.Активно Тогда
        ОформлениеСтроки.Шрифт = Новый Шрифт(ШрифтыСтиля.ШрифтТекста,,, Истина);
    ИначеЕсли ДанныеСтроки.СостояниеЗадания = СостояниеФоновогоЗадания.Завершено Тогда
    ИначеЕсли ДанныеСтроки.СостояниеЗадания = СостояниеФоновогоЗадания.ЗавершеноАварийно Тогда    
        ОформлениеСтроки.ЦветТекста = Новый Цвет(255, 0, 0);
    ИначеЕсли ДанныеСтроки.СостояниеЗадания = СостояниеФоновогоЗадания.Отменено Тогда    
        ОформлениеСтроки.ЦветТекста = Новый Цвет(128, 128, 128);
    КонецЕсли;
    
    Если ДанныеСтроки.Регламентное <> "" Тогда
        ОформлениеСтроки.Ячейки[0].Картинка = БиблиотекаКартинок.РегламентноеЗадание;
        ОформлениеСтроки.Ячейки[0].ОтображатьКартинку = Истина;
    КонецЕсли;
КонецПроцедуры

[Virgo]

Например:

        ИмяОбласти = "R1C1:R"+Формат(ДокументРезультат.ВысотаТаблицы,"ЧН=; ЧГ=")+"C"+Формат(ДокументРезультат.ШиринаТаблицы,"ЧН=; ЧГ=");
        Область = ДокументРезультат.Область(ИмяОбласти);
        Область.ГраницаСправа = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 2);
        Область.ЦветФона = WebЦвета.Белый;

[Vofka]

alex040269, вы ничего не спутали?

Вот навскиду код, который обходит табличный документ. С ячейками я не заморачивался, думаю разберетесь:

Для а = 1 по ТабличныйДокумент.ВысотаТаблицы Цикл
    Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; // посмотрите описание функции в СП, станет понятно как ячейки перебрать
КонецЦикла;

[Ardi]

Вот навскиду код, который обходит табличный документ

В документе есть области с разным "форматом строк". Тоесть разное количество столбцов.
И кажестя срабатывал только на часть ячеек.

Virgo
Сделал так

ИмяОбласти = "R1C1:R"+Формат(ТабДокумент.ВысотаТаблицы,"ЧН=; ЧГ=")+"C"+Формат(ТабДокумент.ШиринаТаблицы,"ЧН=; ЧГ=");
Область = ТабДокумент.Область(ИмяОбласти);
//Область.ГраницаСправа = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 2);
//Область.ЦветФона = WebЦвета.Белый;    
Область.ЦветТекста = ВыбранныйЦвет;

тоже красит только часть текста (у которого такая же ширина колонок как в верхней части таб. документа).

alex040269
Непонятно куда это вставлять.

Сообщение отредактировал Ardi - 25.09.12, 17:06

[sava1]

alex040269
Непонятно куда это вставлять.

в табл. поле (наверно)

[Vofka]

в табл. поле (наверно)

Та не. Я так думаю, alex040269 вопрос не правильно понял.

По теме ещё. Я не проверял, но что если делать обход ячеек по максимально ширине и при этом проверять заполненность ячейки и красить только заполненные.

[alex040269]

alex040269, вы ничего не спутали?

Вот навскиду код, который обходит табличный документ. С ячейками я не заморачивался, думаю разберетесь:

Для а = 1 по ТабличныйДокумент.ВысотаТаблицы Цикл
    Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; // посмотрите описание функции в СП, станет понятно как ячейки перебрать
КонецЦикла;

да, сори, я совсем не о том написал

[Vary]

alex040269, вы ничего не спутали?

Вот навскиду код, который обходит табличный документ. С ячейками я не заморачивался, думаю разберетесь:

Для а = 1 по ТабличныйДокумент.ВысотаТаблицы Цикл
    Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; // посмотрите описание функции в СП, станет понятно как ячейки перебрать
КонецЦикла;

вот спасибо, то что мне как раз нужно!!!!

[Yuske777]

Vofka @ 26.09.12, 9:36 ,
буду очень признателен, если укажите как сделать обход ячеек по области и соответствующую проверку на заполнение, а то несколько часов мучаюсь с тем, что закрашиваются строки табличной части намного шире того что надо. Не могу понять в чем дело?

[Yuske777]

ИмяОбласти = "R19C2:R"+Формат(ТабДокумент.ВысотаТаблицы,"ЧН=; ЧГ=")+"C"+Формат(ТабДокумент.ШиринаТаблицы,"ЧН=; ЧГ=");
        Область = ТабДокумент.Область(ИмяОбласти);
        Область.ЦветФона = Цвет;

В ходе выполнения получается вот это



окрашивается еще 24 ячейки. Как это исправить ума не приложу.

[Petre]

Yuske777 @ 16.12.17, 13:21 ,
Удалите в макете эти лишние 24 ячейки.

[Yuske777]

Petre @ Сегодня, 10:22 ,
Так их там и нет как таковых.

Проблема решена дублированием области строки и раскрашиванием в самом макете соответствующих ячеек по совету программиста 1с с многолетним стажем. Им же было сказано, что раскрашивание программно не ведет к нужному результату, всегда берется количество ячеек для раскрашивания по максимуму, т. е. хоть в коде и указано ШиринаТаблицы, берется максимальное количество ячеек со всех областей форматирования, и что только дублирование и соответствующее раскрашивание приводит к нужному результату. Всем спасибо.

[sava1]

Им же было сказано, что раскрашивание программно не ведет к нужному результату, всегда берется количество ячеек для раскрашивания по максимуму, т. е. хоть в коде и указано ШиринаТаблицы, берется максимальное количество ячеек

Бред. Область правильно указывайте.

[Petre]

Yuske777 @ Сегодня, 9:49 ,