MS Excel - решение практических задач

В этой теме размещаем вопросы и ответы, а также советы и рекомендации по решению конкретных задач, которые требуют создания формулы, применения макроса, написания кода VBA, т.е. Практикум.

------------------------------

Вопросы и ответы, а также советы и рекомендации по настройке MS Excel, ошибки в работе программы, решение задач по импорту/экспорту документов, ссылки и обсуждение надстроек для Excel, обучающие материалы и т.п. размещаем в теме MS Excel - настройка, импорт/экспорт.
Если решение задачи не требует применения формул и макросов (VBA), то это обсуждение будет перенесено в тему по настройкам.

Все пожелания по принципам размещения сообщений по этим темам рассматриваются - пишите в личку Andrey_k.

[resus]

Здравствуйте.Подскажите,уважаемые,как разрешить проблему:в ячейке
А1 значение "X",к D1 применено условное форматирование( при A1="X" значения в D1 (>50) отображаются зеленым цветом,<50-красным) Вопрос:каким образом при A1="Y", в D1 отображался бы цвет ровно наоборот(>50 -красным,<50 -зеленым? Спасибо.

[MuhaZ]

Цитата: Сообщение от resus Здравствуйте.Подскажите,уважаемые,как разрешить проблему:в ячейке А1 значение "X",к D1 применено условное форматирование( при A1="X" значения в D1 (>50) отображаются зеленым цветом,<50-красным) Вопрос:каким образом при A1="Y", в D1 отображался бы цвет ровно наоборот(>50 -красным,<50 -зеленым? Спасибо.

Есть 3 мысли
1. Создать доп.условие: в A1 отображается значение, в B1 - тип этого значения и уже отсюда плясать
2. Оговорить диапозон колебаний X и диапазон колебаний Y: типа ЕСЛИ(И(A1>50;A<100);1;0) - зеленый и так 4 условия
3. взять фломастер и....

[andrey_k]

Цитата: Сообщение от Maxon08 Всем добрый день. Помогите пожалуйста с такой задачей: есть список данных (около 400000 строк - 2007 Excel) после создания консолидированной таблицы получается 17000 строк (в таблице номера карт) в консолидированной таблице есть столбцы содержащие информацию по средней сумме покупок по карте необходимо получить информацию (в консолидированной таблице или в исходной) о том, как часто в списке встречается эта карта (номер) ??? Помогите решить задачу. Заранее благодарен. Всем спасибо, кто уже готов был дать мне ответ и совет!!! Уже нашел как это в самой сводной сделать... З.Ы. если все-таки кто-то знает или формулу или минимакрос как написать - буду благодарен! DSp фильтр не очень удобен - 400000 строк все-таки..... в сводных есть возможность посмотреть именно количество повторений! но все-равно спасибо что откликнулись!

Если уже есть два списка: исходный и просто перечень номеров карт, то можно использовать функцию СЧЁТЕСЛИ() для поиска количества этих номеров карт в исходном списке.
В сводной таблице есть встроенная функция аналогичная.
Как сформировать список-перечень, объясню дополнительно, если нужно.

[Serhio_61]

Здравствуйте!
Задачка,в общем-то,достаточно простая для тех,кто знает как:
некие умники запихали свои данные вида "12.2345345,0.234,6.4321"(три числа с разделителем точка,разделенные запятой) в одну ячейку.Таких ячеек в столбце многие тысячи.

Не поможете макросом,разбивающим столбец на три в соответствии с межчисловым разделителем-запятой?

Спасибо!
P.S. То,что это просто,знаю из 4-летней практики на VB5(увы,8 лет как с ним покончено).

[lenchickkk]

Халлоу всем!

у меня тут такая маленькая проблема в экселе. Мне даны данные и мне просто надо чтобы между ними было два пустых ряда (+/- 600 entries). Может кто нибудь подсказать, если есть такая возможность, выделить их все и чтоб они шли в таком порядке (т.е. через каждые два пустые ряда). Я уже замучила help, но кроме как элементарно накликать себе два новых ряда ничего найти не могу, ну или можно еще повторить последнее действие, тоже морока. Спасибо огромное!

[ДЫСЫпы]

Цитата: Сообщение от Serhio_61 Не поможете макросом,разбивающим столбец на три в соответствии с межчисловым разделителем-запятой?

Зачем макрос?, есть встроенный инструмент "Данные\Текст по столбцам" как раз для таких задач!

Цитата: Сообщение от lenchickkk Мне даны данные и мне просто надо чтобы между ними было два пустых ряда (+/- 600 entries). Может кто нибудь подсказать,

Ничего не понял... абсолютно((( Может пример в студию?

[Vasuha]

Цитата: Сообщение от DSp у меня тут такая маленькая проблема в экселе. Мне даны данные и мне просто надо чтобы между ними было два пустых ряда (+/- 600 entries). Может кто нибудь подсказать, если есть такая возможность, выделить их все и чтоб они шли в таком порядке (т.е. через каждые два пустые ряда). Я уже замучила help, но кроме как элементарно накликать себе два новых ряда ничего найти не могу, ну или можно еще повторить последнее действие, тоже морока. Спасибо огромное! __________________

Включите запись макроса перед действием, которое нужно тыщу раз повторять. А потом на кнопочку повесьте этот макрос и кликайте. P.s. Ну а чтоб вообще ничего не делать можно и цикл в макрос вставить.

[andrey_k]

Цитата: Сообщение от lenchickkk Халлоу всем! у меня тут такая маленькая проблема в экселе. Мне даны данные и мне просто надо чтобы между ними было два пустых ряда (+/- 600 entries). Может кто нибудь подсказать, если есть такая возможность, выделить их все и чтоб они шли в таком порядке (т.е. через каждые два пустые ряда). Я уже замучила help, но кроме как элементарно накликать себе два новых ряда ничего найти не могу, ну или можно еще повторить последнее действие, тоже морока. Спасибо огромное!

Если данных немного (около 100-300 строк), то можно вручную вставлять строки. Иначе - проще сделать макрос (даже через макро-запись Ваших действий), который бы определял кол-во вставляемых строк (=имеющиеся строки -1) и в каждой строке добавлял нужное Вам кол-во строк новых. Если нужно, дам текст макроса.

[ДЫСЫпы]

Цитата: Сообщение от lenchickkk (т.е. через каждые два пустые ряда)

Ну если речь идет о том чтобы добавить пустые строки между существующих то это просто, вот пример для реализации:

Цитата: Sub Addrows() x = 2 'количество пустых строк для вставки With Worksheets("Лист1").UsedRange r = .Cells(.Rows.Count, .Columns.Count).Row 'Подсчитали строки End With 'Подсчитали строки For i = r To 1 Step -1 'начинаем с последней строки Cells(i, 1).Select For ii = 1 To x Selection.EntireRow.Insert Next ii Next i End Sub

[Vasuha]

Формирую сводную таблицу. Можно ли сделать, чтоб данные столбцов повторялись. Допустим "Обустройство устья" повторилось 5 раз, "Кран" - 2 раза, "55-99" - 2 раза. Т.е не группировались.

[ДЫСЫпы]

Цитата: Сообщение от Vasuha Т.е не группировались.

А можно спросить зачем? Зачем тогда сводную формировать? Ведь если, выполнить Ваше пожелание, возвращаемся к исходной таблице, может есть смысл правильно отсортировать исходную? Непонятно... Ваш вопрос саму суть сводной таблицы убивает вообщем то.

[Vasuha]

Вообще то сводная таблица не нужна , но это единственный способ средствами Afalina построить отчет с плавающими колонками. Поле - День варьируется (день месяца может быть один а может 31) . А левая часть просто берется из источника данных.
В любом случае я потом выдираю результаты из сводной таблицы и форматирую согласно шаблона и могу заполнить пустые строчки, но может средствами самой сводной таблицы можно решить(редко пользуюсь ей).

[Maxon08]

Цитата: Сообщение от DSp Sub Addrows() x = 2 'количество пустых строк для вставки With Worksheets("Лист1").UsedRange r = .Cells(.Rows.Count, .Columns.Count).Row 'Подсчитали строки End With 'Подсчитали строки For i = r To 1 Step -1 'начинаем с последней строки Cells(i, 1).Select For ii = 1 To x Selection.EntireRow.Insert Next ii Next i End Sub

насколько я понимаю - тут переменная "x" не определена!

[ignsv]

Нужен дельный совет по Excel`ю.
Опишу ситуацию: есть функции Год, Месяц, День и Дата соотвецтвенно. Задача вытянуть из Дати значения дня, месяца и года использую вышеперечисленные функции. Все это делается, только меня интересует вот что: как работает функция Месяц, особенно важна блок схема. Может кто подкинет идею. Кстати еще есть функция День недели аналогичная к Месяцу може это както прояснит мою проблему.
p.s. я пробовал через цикл ну все варианты перебирать и выводить соотвецтвенные значения, но помоему ето напряжно (12 то вручную не сложно, а вот например 1000...)
Возможно там и цикл не нужен...
Надеюсь что я прояснил постановку задачи. Буду ждать помощи.

[andrey_k]

Цитата: Сообщение от ignsv Нужен дельный совет по Excel`ю. Опишу ситуацию: есть функции Год, Месяц, День и Дата соотвецтвенно. Задача вытянуть из Дати значения дня, месяца и года использую вышеперечисленные функции. Все это делается, только меня интересует вот что: как работает функция Месяц, особенно важна блок схема. Может кто подкинет идею. Кстати еще есть функция День недели аналогичная к Месяцу може это както прояснит мою проблему. p.s. я пробовал через цикл ну все варианты перебирать и выводить соотвецтвенные значения, но помоему ето напряжно (12 то вручную не сложно, а вот например 1000...) Возможно там и цикл не нужен... Надеюсь что я прояснил постановку задачи. Буду ждать помощи.

Так Вам нужен пример использования функций работы с датами или алгоритм их работы?