Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Как обойти все ячейки табличного документа
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
Ardi
чтобы поменять в них шрифт, цвет, и т. д.
Или по другому поменять цвет текста сразу всего таб. документа.
alex040269
Процедура СписокФоновыхЗаданийПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
    Если ДанныеСтроки.СостояниеЗадания = СостояниеФоновогоЗадания.Активно Тогда
        ОформлениеСтроки.Шрифт = Новый Шрифт(ШрифтыСтиля.ШрифтТекста,,, Истина);
    ИначеЕсли ДанныеСтроки.СостояниеЗадания = СостояниеФоновогоЗадания.Завершено Тогда
    ИначеЕсли ДанныеСтроки.СостояниеЗадания = СостояниеФоновогоЗадания.ЗавершеноАварийно Тогда    
        ОформлениеСтроки.ЦветТекста = Новый Цвет(255, 0, 0);
    ИначеЕсли ДанныеСтроки.СостояниеЗадания = СостояниеФоновогоЗадания.Отменено Тогда    
        ОформлениеСтроки.ЦветТекста = Новый Цвет(128, 128, 128);
    КонецЕсли;
    
    Если ДанныеСтроки.Регламентное <> "" Тогда
        ОформлениеСтроки.Ячейки[0].Картинка = БиблиотекаКартинок.РегламентноеЗадание;
        ОформлениеСтроки.Ячейки[0].ОтображатьКартинку = Истина;
    КонецЕсли;
КонецПроцедуры
Virgo
Например:
        ИмяОбласти = "R1C1:R"+Формат(ДокументРезультат.ВысотаТаблицы,"ЧН=; ЧГ=")+"C"+Формат(ДокументРезультат.ШиринаТаблицы,"ЧН=; ЧГ=");
        Область = ДокументРезультат.Область(ИмяОбласти);
        Область.ГраницаСправа = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 2);
        Область.ЦветФона = WebЦвета.Белый;
Vofka
alex040269, вы ничего не спутали?

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

Для а = 1 по ТабличныйДокумент.ВысотаТаблицы Цикл
    Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; // посмотрите описание функции в СП, станет понятно как ячейки перебрать
КонецЦикла;
Ardi
Цитата(Vofka @ 25.09.12, 17:42) необходимо зарегистрироваться для просмотра ссылки
Вот навскиду код, который обходит табличный документ

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

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

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

alex040269
Непонятно куда это вставлять.
sava1
Цитата(Ardi @ 25.09.12, 18:06) необходимо зарегистрироваться для просмотра ссылки
alex040269
Непонятно куда это вставлять.

в табл. поле (наверно)
Vofka
Цитата(sava1 @ 26.09.12, 8:59) необходимо зарегистрироваться для просмотра ссылки
в табл. поле (наверно)

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

По теме ещё. Я не проверял, но что если делать обход ячеек по максимально ширине и при этом проверять заполненность ячейки и красить только заполненные.
alex040269
Цитата(Vofka @ 25.09.12, 17:42) необходимо зарегистрироваться для просмотра ссылки
alex040269, вы ничего не спутали?

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

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

да, сори, я совсем не о том написал sad.gif
Vary
Цитата(Vofka @ 25.09.12, 18:42) необходимо зарегистрироваться для просмотра ссылки
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
Цитата(Yuske777 @ 18.12.17, 9:49) необходимо зарегистрироваться для просмотра ссылки
Им же было сказано, что раскрашивание программно не ведет к нужному результату, всегда берется количество ячеек для раскрашивания по максимуму, т. е. хоть в коде и указано ШиринаТаблицы, берется максимальное количество ячеек


Бред. Область правильно указывайте.
Petre
Yuske777 @ Сегодня, 9:49 необходимо зарегистрироваться для просмотра ссылки ,
faceoff.gif
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.