РабочиеКолонки = КвоСтолбиков + МаксКвоГоризонтальныхСерий;
РабочиеСтроки = КвоСтрок + МаксКвоВертикальныхСерий;
Для Каждого ОформлениеСтроки из ОформленияСтрок Цикл
//Высоту строки выставить. ?
//рамки кратные 5 выделить т.к ОформленияСтрок (нумерация с 0) Кк+1
СчетСтрок = ОформлениеСтроки.ДанныеСтроки.НомерСтроки+1;
Если Цел(СчетСтрок/5) = Кк/5 Тогда
//Рамка снизу в длину от 1 по РабочиеКолонки. ?
КонецЕсли;
Для Кк = 1 По РабочиеКолонки Цикл
//ОформлениеСтроки.Ячейки["К"+Кк].ВысотаЯчейки = 25;
Если (Кк > КвоСтолбиков) И (ОформлениеСтроки.ДанныеСтроки.НомерСтроки<=КвоСтрок) Тогда
//Красим согласно горизонт. серий
ОформлениеСтроки.Ячейки["К"+Кк].ЦветФона = WebЦвета.Желтый;
КонецЕсли;
Если (ОформлениеСтроки.ДанныеСтроки.НомерСтроки > КвоСтрок) И (Кк<=КвоСтолбиков) Тогда
//Красим согласно вертикальных серий
ОформлениеСтроки.Ячейки["К"+Кк].ЦветФона = WebЦвета.Желтый;
КонецЕсли;
//Сообщить(""+ОформлениеСтроки.ДанныеСтроки.НомерСтроки+":"+Кк) ;
КонецЦикла;
КонецЦикла;
КонецПроцедуры