Всем доброго времени суток! Помогите, какими макрасами реализовать поиск по столбцам ячеек с условным форматированием на листе1 и копирование данных из этих ячеек на лист2? Спасибо!!
Всем доброго времени суток! Помогите, какими макрасами реализовать поиск по столбцам ячеек с условным форматированием на листе1 и копирование данных из этих ячеек на лист2? Спасибо!!Tina90
Нет, рекордером мне не нужно, мне нужно определять скриптом. Рекордер разве может определить, есть ли УФ в какой то ячейке (не говоря уже о переносе значений по признаку УФ)?
При переборе ячеек проще проверять тоже условие, что и в УФ, а не цвет ячейки
К сожалению, мне нужно определять именно изменение цвета ячейки, и ни что иное. А переносить значения цветных ячеек нужно на лист2, и помимо этого нужно еще переносить на лист2 значение ячейки, которая расположена слева от уф-ячейки!
Нет, рекордером мне не нужно, мне нужно определять скриптом. Рекордер разве может определить, есть ли УФ в какой то ячейке (не говоря уже о переносе значений по признаку УФ)?
При переборе ячеек проще проверять тоже условие, что и в УФ, а не цвет ячейки
К сожалению, мне нужно определять именно изменение цвета ячейки, и ни что иное. А переносить значения цветных ячеек нужно на лист2, и помимо этого нужно еще переносить на лист2 значение ячейки, которая расположена слева от уф-ячейки!Tina90
Сообщение отредактировал Tina90 - Воскресенье, 31.01.2016, 15:05
значит вас не интересует факт наличия УФ в ячейке, а именно выполнение условия -собственно, MBT дело говорит - перебирать по условию надо, а не по цвету (УФ вообще цвет ячейки не меняет - поэкспериментируйте с a.Interior.Color) [vba]
Код
Sub gett() For Each cell In Range("B11:h14") If cell > 1 Then i = i + 1 Sheets(2).Cells(i, 1) = cell Sheets(2).Cells(i, 2) = cell.Offset(0, -1) End If Next End Sub
[/vba]
[p.s.] и зачем для каждой ячейки отдельное УФ прописывать? - одного правила достаточно
значит вас не интересует факт наличия УФ в ячейке, а именно выполнение условия -собственно, MBT дело говорит - перебирать по условию надо, а не по цвету (УФ вообще цвет ячейки не меняет - поэкспериментируйте с a.Interior.Color) [vba]
Код
Sub gett() For Each cell In Range("B11:h14") If cell > 1 Then i = i + 1 Sheets(2).Cells(i, 1) = cell Sheets(2).Cells(i, 2) = cell.Offset(0, -1) End If Next End Sub
[/vba]
[p.s.] и зачем для каждой ячейки отдельное УФ прописывать? - одного правила достаточноbuchlotnik
Спасибо! Меня интересует именно факт наличия УФ! Потому что у меня есть ячейки с не меняющимися значениями, которые условно форматируются совсем по другим правилам. И поэтому мне надо копировать эти постоянные значения только в момент срабатывания правила уф и только по факту возникновения условного форматирования такой ячейки!
Спасибо! Меня интересует именно факт наличия УФ! Потому что у меня есть ячейки с не меняющимися значениями, которые условно форматируются совсем по другим правилам. И поэтому мне надо копировать эти постоянные значения только в момент срабатывания правила уф и только по факту возникновения условного форматирования такой ячейки!Tina90
терминологически можно спорить до посинения - вне зависимости от того, выполняется условие или нет, УФ в ячейке ЕСТЬ! (ну прописано оно для неё - значит она его содержит). Срабатывание правила - это не "возникновение" УФ - это изменение отображения ячейки (при этом УФ остаётся на месте, как и другие свойства ячейки). Вот вам и предлагают не к цветам привязываться, а к самому выполнению условий (для наглядности дублируйте с помощью УФ если надо)
терминологически можно спорить до посинения - вне зависимости от того, выполняется условие или нет, УФ в ячейке ЕСТЬ! (ну прописано оно для неё - значит она его содержит). Срабатывание правила - это не "возникновение" УФ - это изменение отображения ячейки (при этом УФ остаётся на месте, как и другие свойства ячейки). Вот вам и предлагают не к цветам привязываться, а к самому выполнению условий (для наглядности дублируйте с помощью УФ если надо)buchlotnik
Спасибо! А Вы не можете мне предложить формулу привязки именно к цвету? Скажем, к красному или желтому? Чтобы было не If cell > 1 Then , а If cell(x,y) = RED Then или If cell(x,y) = YELLOW Then ?? Я даже согласна прописать в скрипте условия для каждой исследуемой ячейки.
Спасибо! А Вы не можете мне предложить формулу привязки именно к цвету? Скажем, к красному или желтому? Чтобы было не If cell > 1 Then , а If cell(x,y) = RED Then или If cell(x,y) = YELLOW Then ?? Я даже согласна прописать в скрипте условия для каждой исследуемой ячейки.Tina90
Сообщение отредактировал Tina90 - Воскресенье, 31.01.2016, 19:25
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
