копирование цветных ячеек
mk12345q
Дата: Суббота, 19.04.2014, 18:09 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Доброго времени суток. Столкнулся с такой задачей, необходимо произвести копирование (из B в A) только цветных ячеек для будущей сводной таблицы.
Доброго времени суток. Столкнулся с такой задачей, необходимо произвести копирование (из B в A) только цветных ячеек для будущей сводной таблицы. mk12345q
Ответить
Сообщение Доброго времени суток. Столкнулся с такой задачей, необходимо произвести копирование (из B в A) только цветных ячеек для будущей сводной таблицы. Автор - mk12345q Дата добавления - 19.04.2014 в 18:09
Pelena
Дата: Суббота, 19.04.2014, 19:58 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19437
Репутация:
4572
±
Замечаний:
±
Excel 365 & Mac Excel
Формулы не работают с цветом. Перенести тему в раздел ВОПРОСЫ ПО VBA? В любом случае нужен файл с примером в соответствии с Правилами форума
Формулы не работают с цветом. Перенести тему в раздел ВОПРОСЫ ПО VBA? В любом случае нужен файл с примером в соответствии с Правилами форума Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Формулы не работают с цветом. Перенести тему в раздел ВОПРОСЫ ПО VBA? В любом случае нужен файл с примером в соответствии с Правилами форума Автор - Pelena Дата добавления - 19.04.2014 в 19:58
mk12345q
Дата: Суббота, 19.04.2014, 20:12 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Формулы не работают с цветом. Перенести тему в раздел ВОПРОСЫ ПО VBA? В любом случае нужен файл с примером в соответствии с Правилами форума
Да, перенесите.
Формулы не работают с цветом. Перенести тему в раздел ВОПРОСЫ ПО VBA? В любом случае нужен файл с примером в соответствии с Правилами форума
Да, перенесите.mk12345q
Ответить
Сообщение Формулы не работают с цветом. Перенести тему в раздел ВОПРОСЫ ПО VBA? В любом случае нужен файл с примером в соответствии с Правилами форума
Да, перенесите.Автор - mk12345q Дата добавления - 19.04.2014 в 20:12
Pelena
Дата: Суббота, 19.04.2014, 20:25 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19437
Репутация:
4572
±
Замечаний:
±
Excel 365 & Mac Excel
А если не привязываться к цвету?
А если не привязываться к цвету? Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение А если не привязываться к цвету? Автор - Pelena Дата добавления - 19.04.2014 в 20:25
mk12345q
Дата: Суббота, 19.04.2014, 22:18 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
А если не привязываться к цвету?
А если будет не один параметр, а несколько? Как в таком случае быть?
А если не привязываться к цвету?
А если будет не один параметр, а несколько? Как в таком случае быть?mk12345q
Ответить
Сообщение А если не привязываться к цвету?
А если будет не один параметр, а несколько? Как в таком случае быть?Автор - mk12345q Дата добавления - 19.04.2014 в 22:18
Pelena
Дата: Суббота, 19.04.2014, 22:31 |
Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19437
Репутация:
4572
±
Замечаний:
±
Excel 365 & Mac Excel
Как вариант
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Как вариант Автор - Pelena Дата добавления - 19.04.2014 в 22:31
Nic70y
Дата: Суббота, 19.04.2014, 22:44 |
Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 9056
Репутация:
2383
±
Замечаний:
0% ±
Excel 2010
не массивная:Код
=ЕСЛИ(ЕНД(ПОИСКПОЗ(ЕСЛИОШИБКА(ЛЕВБ(B2;ПОИСК(" ";B2)-1);B2);G$2:G$5;0));B2;A1)
второй файл с ВПР (как понял)
не массивная:Код
=ЕСЛИ(ЕНД(ПОИСКПОЗ(ЕСЛИОШИБКА(ЛЕВБ(B2;ПОИСК(" ";B2)-1);B2);G$2:G$5;0));B2;A1)
второй файл с ВПР (как понял) Nic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Суббота, 19.04.2014, 22:47
Ответить
Сообщение не массивная:Код
=ЕСЛИ(ЕНД(ПОИСКПОЗ(ЕСЛИОШИБКА(ЛЕВБ(B2;ПОИСК(" ";B2)-1);B2);G$2:G$5;0));B2;A1)
второй файл с ВПР (как понял) Автор - Nic70y Дата добавления - 19.04.2014 в 22:44
_Boroda_
Дата: Воскресенье, 20.04.2014, 00:50 |
Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16800
Репутация:
6558
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Вариант с пользовательской функцией, показывающей, сколько пунктов отступа слева задано в ячейке. На мой взгляд, преимущество в том, что можно работать с таблицами нескольких уровней (а не 2-х, как в примере) и на каждый уровень писать свое условие. Ну и не делать таблицу сравнения - ведь могут появиться новые данные, которых раньше не было в нашей таблице. [vba]Код
Function otst(r_ As Range) 'Application.Volatile' стереть первый апостроф, если нужно, чтобы формула пересчитывалась по F9 и при любом пересчете на листе otst = r_.IndentLevel End Function
[/vba] Код
=ЕСЛИ(otst(B2)=1;B2;A1)
Вариант с пользовательской функцией, показывающей, сколько пунктов отступа слева задано в ячейке. На мой взгляд, преимущество в том, что можно работать с таблицами нескольких уровней (а не 2-х, как в примере) и на каждый уровень писать свое условие. Ну и не делать таблицу сравнения - ведь могут появиться новые данные, которых раньше не было в нашей таблице. [vba]Код
Function otst(r_ As Range) 'Application.Volatile' стереть первый апостроф, если нужно, чтобы формула пересчитывалась по F9 и при любом пересчете на листе otst = r_.IndentLevel End Function
[/vba] Код
=ЕСЛИ(otst(B2)=1;B2;A1)
_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Вариант с пользовательской функцией, показывающей, сколько пунктов отступа слева задано в ячейке. На мой взгляд, преимущество в том, что можно работать с таблицами нескольких уровней (а не 2-х, как в примере) и на каждый уровень писать свое условие. Ну и не делать таблицу сравнения - ведь могут появиться новые данные, которых раньше не было в нашей таблице. [vba]Код
Function otst(r_ As Range) 'Application.Volatile' стереть первый апостроф, если нужно, чтобы формула пересчитывалась по F9 и при любом пересчете на листе otst = r_.IndentLevel End Function
[/vba] Код
=ЕСЛИ(otst(B2)=1;B2;A1)
Автор - _Boroda_ Дата добавления - 20.04.2014 в 00:50