Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск ячеек с условным форматирование - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск ячеек с условным форматирование (Макросы/Sub)
Поиск ячеек с условным форматирование
Tina90 Дата: Воскресенье, 31.01.2016, 13:34 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: -16 ±
Замечаний: 60% ±

Excel 2013
Всем доброго времени суток! Помогите, какими макрасами реализовать поиск по столбцам ячеек с условным форматированием на листе1 и копирование данных из этих ячеек на лист2? Спасибо!!
К сообщению приложен файл: 2--.xlsx(11Kb)


Сообщение отредактировал Tina90 - Воскресенье, 31.01.2016, 13:35
 
Ответить
СообщениеВсем доброго времени суток! Помогите, какими макрасами реализовать поиск по столбцам ячеек с условным форматированием на листе1 и копирование данных из этих ячеек на лист2? Спасибо!!

Автор - Tina90
Дата добавления - 31.01.2016 в 13:34
TimSha Дата: Воскресенье, 31.01.2016, 13:38 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 507
Репутация: 80 ±
Замечаний: 0% ±

Excel 2013 Pro +
какими макрасами реализовать

Запишите свои действия рекордером и будет вам... макрОс... ;)


"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Ответить
Сообщение
какими макрасами реализовать

Запишите свои действия рекордером и будет вам... макрОс... ;)

Автор - TimSha
Дата добавления - 31.01.2016 в 13:38
МВТ Дата: Воскресенье, 31.01.2016, 13:59 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 136 ±
Замечаний: 0% ±

Excel 2007
При переборе ячеек проще проверять тоже условие, что и в УФ, а не цвет ячейки[vba]
Код
Sub tt()
    For Each cell In Range("B11:I14")
        If cell > 1 Then 'пишете куда именно переносить, я не понял из Вашего примера
    Next
End Sub
[/vba]
 
Ответить
СообщениеПри переборе ячеек проще проверять тоже условие, что и в УФ, а не цвет ячейки[vba]
Код
Sub tt()
    For Each cell In Range("B11:I14")
        If cell > 1 Then 'пишете куда именно переносить, я не понял из Вашего примера
    Next
End Sub
[/vba]

Автор - МВТ
Дата добавления - 31.01.2016 в 13:59
Tina90 Дата: Воскресенье, 31.01.2016, 14:21 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: -16 ±
Замечаний: 60% ±

Excel 2013
Запишите свои действия рекордером

Нет, рекордером мне не нужно, мне нужно определять скриптом. Рекордер разве может определить, есть ли УФ в какой то ячейке (не говоря уже о переносе значений по признаку УФ)?
При переборе ячеек проще проверять тоже условие, что и в УФ, а не цвет ячейки

К сожалению, мне нужно определять именно изменение цвета ячейки, и ни что иное. А переносить значения цветных ячеек нужно на лист2, и помимо этого нужно еще переносить на лист2 значение ячейки, которая расположена слева от уф-ячейки!


Сообщение отредактировал Tina90 - Воскресенье, 31.01.2016, 15:05
 
Ответить
Сообщение
Запишите свои действия рекордером

Нет, рекордером мне не нужно, мне нужно определять скриптом. Рекордер разве может определить, есть ли УФ в какой то ячейке (не говоря уже о переносе значений по признаку УФ)?
При переборе ячеек проще проверять тоже условие, что и в УФ, а не цвет ячейки

К сожалению, мне нужно определять именно изменение цвета ячейки, и ни что иное. А переносить значения цветных ячеек нужно на лист2, и помимо этого нужно еще переносить на лист2 значение ячейки, которая расположена слева от уф-ячейки!

Автор - Tina90
Дата добавления - 31.01.2016 в 14:21
buchlotnik Дата: Воскресенье, 31.01.2016, 17:08 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2602
Репутация: 744 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
Цитата
Рекордер разве может
а вы пробовали? Может: [vba]
Код
ActiveCell.SpecialCells(xlCellTypeAllFormatConditions).Select
[/vba]
Цитата
нужно определять именно изменение цвета ячейки
значит вас не интересует факт наличия УФ в ячейке, а именно выполнение условия -собственно, 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.] и зачем для каждой ячейки отдельное УФ прописывать? - одного правила достаточно
К сообщению приложен файл: 2-3-.xlsm(15Kb)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru


Сообщение отредактировал buchlotnik - Воскресенье, 31.01.2016, 17:39
 
Ответить
Сообщение
Цитата
Рекордер разве может
а вы пробовали? Может: [vba]
Код
ActiveCell.SpecialCells(xlCellTypeAllFormatConditions).Select
[/vba]
Цитата
нужно определять именно изменение цвета ячейки
значит вас не интересует факт наличия УФ в ячейке, а именно выполнение условия -собственно, 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
Дата добавления - 31.01.2016 в 17:08
Tina90 Дата: Воскресенье, 31.01.2016, 18:48 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: -16 ±
Замечаний: 60% ±

Excel 2013
значит вас не интересует факт наличия УФ в ячейке

Спасибо! Меня интересует именно факт наличия УФ! Потому что у меня есть ячейки с не меняющимися значениями, которые условно форматируются совсем по другим правилам. И поэтому мне надо копировать эти постоянные значения только в момент срабатывания правила уф и только по факту возникновения условного форматирования такой ячейки!
 
Ответить
Сообщение
значит вас не интересует факт наличия УФ в ячейке

Спасибо! Меня интересует именно факт наличия УФ! Потому что у меня есть ячейки с не меняющимися значениями, которые условно форматируются совсем по другим правилам. И поэтому мне надо копировать эти постоянные значения только в момент срабатывания правила уф и только по факту возникновения условного форматирования такой ячейки!

Автор - Tina90
Дата добавления - 31.01.2016 в 18:48
buchlotnik Дата: Воскресенье, 31.01.2016, 19:16 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2602
Репутация: 744 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
терминологически можно спорить до посинения - вне зависимости от того, выполняется условие или нет, УФ в ячейке ЕСТЬ! (ну прописано оно для неё - значит она его содержит).
Срабатывание правила - это не "возникновение" УФ - это изменение отображения ячейки (при этом УФ остаётся на месте, как и другие свойства ячейки).
Вот вам и предлагают не к цветам привязываться, а к самому выполнению условий (для наглядности дублируйте с помощью УФ если надо)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru
 
Ответить
Сообщениетерминологически можно спорить до посинения - вне зависимости от того, выполняется условие или нет, УФ в ячейке ЕСТЬ! (ну прописано оно для неё - значит она его содержит).
Срабатывание правила - это не "возникновение" УФ - это изменение отображения ячейки (при этом УФ остаётся на месте, как и другие свойства ячейки).
Вот вам и предлагают не к цветам привязываться, а к самому выполнению условий (для наглядности дублируйте с помощью УФ если надо)

Автор - buchlotnik
Дата добавления - 31.01.2016 в 19:16
Tina90 Дата: Воскресенье, 31.01.2016, 19:23 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: -16 ±
Замечаний: 60% ±

Excel 2013
Вот вам и предлагают не к цветам привязываться

Спасибо! А Вы не можете мне предложить формулу привязки именно к цвету? Скажем, к красному или желтому? Чтобы было не If cell > 1 Then , а If cell(x,y) = RED Then или If cell(x,y) = YELLOW Then ?? Я даже согласна прописать в скрипте условия для каждой исследуемой ячейки.


Сообщение отредактировал Tina90 - Воскресенье, 31.01.2016, 19:25
 
Ответить
Сообщение
Вот вам и предлагают не к цветам привязываться

Спасибо! А Вы не можете мне предложить формулу привязки именно к цвету? Скажем, к красному или желтому? Чтобы было не If cell > 1 Then , а If cell(x,y) = RED Then или If cell(x,y) = YELLOW Then ?? Я даже согласна прописать в скрипте условия для каждой исследуемой ячейки.

Автор - Tina90
Дата добавления - 31.01.2016 в 19:23
buchlotnik Дата: Воскресенье, 31.01.2016, 19:42 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2602
Репутация: 744 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
тогда так[vba]
Код
If cell.interior.color = 65535 then
[/vba] но ячейка должна быть именно залита цветом, а не подсвечена УФ. Сами цвета - см. файл
К сообщению приложен файл: color.xlsm(12Kb)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru


Сообщение отредактировал buchlotnik - Воскресенье, 31.01.2016, 19:42
 
Ответить
Сообщениетогда так[vba]
Код
If cell.interior.color = 65535 then
[/vba] но ячейка должна быть именно залита цветом, а не подсвечена УФ. Сами цвета - см. файл

Автор - buchlotnik
Дата добавления - 31.01.2016 в 19:42
Tina90 Дата: Воскресенье, 31.01.2016, 20:03 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: -16 ±
Замечаний: 60% ±

Excel 2013
тогда так


Спасибо!!
 
Ответить
Сообщение
тогда так


Спасибо!!

Автор - Tina90
Дата добавления - 31.01.2016 в 20:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск ячеек с условным форматирование (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!