Версия для печати темы (https://pro1c.org.ua/index.php?s=b74a8d91eb6d1add0e8f71e3aed38724&showtopic=9081)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование обычных форм 1С 8.2 и не интерфейсной логики _ Как обойти все ячейки табличного документа

Автор: Ardi 25.09.12, 16:00

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

Автор: alex040269 25.09.12, 16:31

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

Автор: Virgo 25.09.12, 16:38

Например:

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

Автор: Vofka 25.09.12, 16:42

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

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

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

Автор: Ardi 25.09.12, 17:06

Цитата(Vofka @ 25.09.12, 17:42) *
Вот навскиду код, который обходит табличный документ

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

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

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

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

Автор: sava1 26.09.12, 7:59

Цитата(Ardi @ 25.09.12, 18:06) *
alex040269
Непонятно куда это вставлять.

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

Автор: Vofka 26.09.12, 8:36

Цитата(sava1 @ 26.09.12, 8:59) *
в табл. поле (наверно)

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

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

Автор: alex040269 26.09.12, 10:35

Цитата(Vofka @ 25.09.12, 17:42) *
alex040269, вы ничего не спутали?

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

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

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

Автор: Vary 16.06.16, 13:15

Цитата(Vofka @ 25.09.12, 18:42) *
alex040269, вы ничего не спутали?

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

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

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

Автор: Yuske777 16.12.17, 12:09

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

Автор: Yuske777 16.12.17, 13:21

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


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



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

Автор: Petre 18.12.17, 9:22

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

Автор: Yuske777 18.12.17, 9:49

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

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

Автор: sava1 18.12.17, 10:21

Цитата(Yuske777 @ 18.12.17, 9:49) *
Им же было сказано, что раскрашивание программно не ведет к нужному результату, всегда берется количество ячеек для раскрашивания по максимуму, т. е. хоть в коде и указано ШиринаТаблицы, берется максимальное количество ячеек


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

Автор: Petre 18.12.17, 10:41

Yuske777 @ Сегодня, 9:49 * ,
faceoff.gif

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua