Здравствуйте. Помогите поправить макрос. Макрос раскладывает большую таблицу - последовательно, на отдельные блоки по горизонтали вправо (в тех местах где стоят желтые ячейки с текстом "группа"). Макрос работает нормально, но он перед срабатыванием очищает часть листа - по правую сторону от таблицы (от столбца AE) в диапазонах строк таблицы.
Как заставить макрос очищать не всю эту большую область, а только 5 столбцов вправо от каждой желтой ячейки (вне зависимости пусто в этой желтой ячейке или записано слово "группа") ? (нарисовал на листе - какие столбцы (в диапазоне строк таблицы) нужно очистить. .
Здравствуйте. Помогите поправить макрос. Макрос раскладывает большую таблицу - последовательно, на отдельные блоки по горизонтали вправо (в тех местах где стоят желтые ячейки с текстом "группа"). Макрос работает нормально, но он перед срабатыванием очищает часть листа - по правую сторону от таблицы (от столбца AE) в диапазонах строк таблицы.
Как заставить макрос очищать не всю эту большую область, а только 5 столбцов вправо от каждой желтой ячейки (вне зависимости пусто в этой желтой ячейке или записано слово "группа") ? (нарисовал на листе - какие столбцы (в диапазоне строк таблицы) нужно очистить. .Dalm
Здравствуйте. Можно попробовать изменить эту часть макроса[vba]
Код
For cc = st.Column + nCol To lCol 'Step Offs If Cells(14, cc).Interior.Color = 65535 Then .Range(.Cells(r0, cc), _ .Cells(r0 + UBound(arrData), cc + 4)).Clear End If Next cc
[/vba]
Здравствуйте. Можно попробовать изменить эту часть макроса[vba]
Код
For cc = st.Column + nCol To lCol 'Step Offs If Cells(14, cc).Interior.Color = 65535 Then .Range(.Cells(r0, cc), _ .Cells(r0 + UBound(arrData), cc + 4)).Clear End If Next cc
очищать не всю эту большую область, а только 5 столбцов вправо от каждой желтой ячейки
По видимому нужна привязка к желтым ячейкам, и очищать нужно только данные таблиц. А между таблицами возможно в рабочем файле формулы, которые не желательно трогать. Было бы проще, если бы между таблицами было одинаковое количество столбцов, тогда не надо искать желтые ячейки. Но количество столбцов между таблицами разное, по этому эта тема продлевается уже на третью закладку. Возможно лучше бы искать по шапке таблицы и удалять только данные таблиц, а не искать желтую ячейку как я предложил?
очищать не всю эту большую область, а только 5 столбцов вправо от каждой желтой ячейки
По видимому нужна привязка к желтым ячейкам, и очищать нужно только данные таблиц. А между таблицами возможно в рабочем файле формулы, которые не желательно трогать. Было бы проще, если бы между таблицами было одинаковое количество столбцов, тогда не надо искать желтые ячейки. Но количество столбцов между таблицами разное, по этому эта тема продлевается уже на третью закладку. Возможно лучше бы искать по шапке таблицы и удалять только данные таблиц, а не искать желтую ячейку как я предложил?gling
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
