![]() |
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум | ![]() |
![]() |
Лисоводы всех стран, объединяйтесь !!! |
test new | |||
---|---|---|---|
Joys Автор Сообщений: 3365 Откуда: Старая Русса |
жирный
курсив подчеркнутый верх индекс нижн индекс ссылка код зеленыйкрасный синийсерый[/list] ![]() |
||
RE: test new f | |||
---|---|---|---|
Joys Автор Сообщений: 3365 Откуда: Старая Русса |
/* as above, but backwards. ![]() |
||
RE: test new f | |||
---|---|---|---|
Aijik Сообщений: 2145 Откуда: Ростов-на-Дону |
Ну, тест так тест
![]() *!* oTargetSheet - лист, куда копируем форматы *!* oSource - диапазон, откуда копируем форматы *!* llChild - являются ли данные дочерними (дли исключения из обработки колонки критерия фильтра) IF llChild oTargetRange = oTargetSheet.UsedRange.OffSet(0,1) ELSE oTargetRange = oTargetSheet.UsedRange ENDIF lnNewColumns = 0 WITH oExcel .CutCopyMode= .F. && Кол-во колонок в шаблоне lnTemplateColumnsCount = oSource.Columns.Count liTemplateColumns = 1 DO WHILE liTemplateColumns <= lnTemplateColumnsCount oColumn = oSource.Columns(liTemplateColumns) && Является ли колонка объединенной IF oColumn.Cells.MergeCells lnMergedColumns = oColumn.Cells(1,1).MergeArea.Columns.Count - 1 oTargetRange.Columns(liTemplateColumns).Offset(0,1).Resize(1,lnMergedColumns).EntireColumn.Insert() liTemplateColumns = liTemplateColumns + lnMergedColumns IF liTemplateColumns = lnTemplateColumnsCount && Доп. колонки добавлялись к последней колонке данных oTargetRange = oTargetRange.Resize(oTargetRange.Rows.Count, oTargetRange.Columns.Count+lnMergedColumns) EXIT ENDIF ENDIF liTemplateColumns = liTemplateColumns + 1 ENDDO ENDWITH RETURN oTargetRange ![]() |
||
RE: test new f | |||
---|---|---|---|
Aijik Сообщений: 2145 Откуда: Ростов-на-Дону |
2 Joys
1. Подсветки нет... не то нажал? 2. Выявляется проблема с табуляциями из фокса. В оригинале фокс отображает вот так: IF liTemplateColumns = lnTemplateColumnsCount && Доп. колонки добавлялись к последней колонке данных ____oTargetRange = oTargetRange.Resize(oTargetRange.Rows.Count, oTargetRange.Columns.Count+lnMergedColumns) ____EXIT ENDIF ... т.е. ровно с равномерными отступами Загрузилось в разброс... Это лечится? ![]() |
||
RE: test new | |||
---|---|---|---|
Равиль Сообщений: 6428 Откуда: Уфа |
|
||
© 2000-2022 Fox Club  |