» Excel FAQ (часть 3)

Есть таблица в несколько десятков тысяч номеров.
Необходимо найти дубликаты и подсветить (покрасить) их
Office 2003 English.

Посдкажите, плиз, формулу

renreg
Цитата:

Необходимо найти дубликаты и подсветить (покрасить) их

Я бы предложил попытаться реализовать следующую идею:
1) отсортировать номера
2) а затем через условное форматирование (что-то типа следующий равен предыдущему) подсветить. Возможно (тут я не уверен) придется использовать форумулу массива.

Mushroomer

Цитата:

1) отсортировать номера

Этого бы не хотелось - так дочь хочет. Это она пытается найти решение задачи.


Цитата:

2) а затем через условное форматирование (что-то типа следующий равен предыдущему) подсветить. Возможно (тут я не уверен) придется использовать форумулу массива.

Понял. Попробуем. Спасибо.

renreg
если одним цветом любые пары(наборы) дубликаты, то:
решение от Yuk через условное форматирование (формула =СЧЁТЕСЛИ(A:A;A1)>1)
http://forum.ru-board.com/topic.cgi?forum=5&topic=19106&start=580#4
http://forum.ru-board.com/topic.cgi?forum=5&topic=19106&start=1520#4

если нужно раскрасить каждый набор дубликатов в свой цвет - то через макрос...

ну, и ещё можно посмотреть сюда (хотя тут чуть про другое..):
Извлечение уникальных (не повторяющихся) записей из списка

Привет всем! Народ, помогите решить такую проблему:
В ячейке A7 с именем z записано число. Нужно ввести в ячейку B7 формулу, возвращающую значение ИСТИНА, если z принадлежит (-2,4]или[7,12)или[20,бесконечность)и ЛОЖЬ - в противоположном случае.
Заранее спасибо.

SERGE_BLIZNUK
Спасибо. Все получилось. А тут, пройдя по твоей дорожке - Выделение дубликатов цветом

soider
Ну Z тут имхо лишнее.
=ЕСЛИ(ИЛИ(И(A7>-2;A7<=4);И(A7>=7;A7<12);A7>=20);ИСТИНА;ЛОЖЬ)

Спасибо. Прокатило!

или =ЕСЛИ(ИЛИ(И(A7>-2;A7<=4);И(A7>=7;A7<12);A7>=20);ИСТИНА();ЛОЖЬ())

ZORRO2005
Здравствуй ! Выручи с решением этой задачи
http://forum.ru-board.com/topic.cgi?forum=5&topic=23470&start=1740#lt

Может кто-нибудь все-таки знает как заблокировать колонтикулы в excel документе,чтобы нельзя было его изменить?

Yamarat

Цитата:

Здравствуй ! Выручи с решением этой задачи

c Format c: ?

Наконец- то заканчиваю первую часть автоматизации отчета для объектов, имеющих иерархическую структуру, поэтому и так редко бываю на сайте.
Однако чистого времени потрачено ни много ни мало- 120 часов. Можно было уложиться и в 90 ч, но, как это часто бывает, не предусмотрел одну небольшую деталь -старенький ноут Bliss c оперативкой всего 256 МБайт. Неделю назад, когда размер файла вырос до 250МБ стал жутко подтормаживать. Сейчас осталось сделать оцифровку 4 столбцов. На один столбец он тратит по 1 ч времени. Приходится в офисе работать на компе и на ноуте. Пока ноут думает, делаю вторую часть автоматизации на компе. Как только закончу с автоматизацией, поеду ставить дополнительную память, хотелось бы,конечно, 2ГБ, да не знаю возможно или нет.
Поскольку объектов , входящих в предприятие достаточно много, а условий ограничения и фильтрации еще больше, ко всему прочему и количество строк для каждого объекта переменно, або как и количество самих объектов не постоянно, то, в результате, получился такой мегафайл.
Примерно треть всего времени ушло на идентификацию ячеек рабочих таблиц- нахождение их координат на листе.
Очень много времени уходило на дополнения к формулам, для общей визуализации без выводов типа #ЗНАЧ и т.д. и т.п.

ZORRO2005

Цитата:

Yamarat

Цитата: Здравствуй ! Выручи с решением этой задачи

c Format c: ?

SERGE_BLIZNUK
А может и про это:
http://forum.ru-board.com/topic.cgi?forum=5&topic=23470&start=1760#5
но я не очень понимаю, что он хочет и зачем это делать в Excel.
Может в Excel VBA смогут помочь.
А вот кто поможет Bambara даже сложно предположить ))

Как произвести следующее форматирование в Excel2003:
Чередующейся цвет заливки ячеек - чет - серый, нечет - белый.
Ручками при большом списке делать проблематично. Есть подозрения, что это делается условным форматированием, но похожей опции что-то не увидел.

Bredun
http://www.planetaexcel.ru/tip.php?aid=43

Еще вопрос.
Имеется много диаграмм одного типа. Как графики (Series) из этих диаграмм (Charts) собрать на одной диаграмме для сравнения? Существуют ли встроенные в ексель способы? (Очевидно, что это можно сделать при помощи макросов, хотелось бы обойтись без них).

И еще:
Почему при копировании листа их одного документа в другой ссылки на диаграммах привязаны к исходному документу? Как-нибудь это исправляется?

ZORRO2005
c Format c: ?
Я вопрос не пнял.
Смотрите: Я в excel сконструировал русс-китай переводчик, для переписки с китайцами и на оборот. Работает нормально, практично. Но, есть пара неудобств
То есть: Когда в боксе набираю слово, и после автофильтора выводится несколько вариантов перевода, то приходится каждый раз скопировать и где то вставить.
За этот промежуток, уже забиваешь , что означало этот слово по китайски
Удобнее было бы так:
В боксе набрал слово, после автофильтора из нескольких варантов выбираю подходящий И ДВА РАЗА КЛИКАЯ НА СТРОКУ, (где в "А1" русс, а в "В1" кит)
эти две ячейки с значениями копируются, на пример в Лист_2, "А1_лист1" в "А1лист_2", а вот "В1_лист1" в "А2 Лист_2" то есть --((((лист_1___ДОМ-HOUS))))
((((ДОМ))))
((((HOUS в лист_2))))

Получается в верхуЛист_2 А1,В1,С1 .....Русс, а А2, В2, С2.... под нее, китай
Так мне будет видно на русском, что я написал, а китайский, скопировал и в аську

Уважаемые Гуру и простые пользователи Microsoft EXCEL, Приветствую Вас и сразу же хочу обратиться к Вам за помощью.

Описываю свою ситуацию:
Имеется три компа, на двух из них по причинам не лицензированной ОС была произведена полная переустановка ОС и Офиса естественно. После этого на этих двух машинах начались загадочные проблемы с Экселем, а именно долгое копирование, и вставка строк и текста, сохранение и открытие документов, увелечение размеров высоты строки. Но стоит только отключить компьютер от сети, как вдруг происходит чудо и Ексель снова начинает шуршать как родненький и всех этих пробем не становится. Машинки не слабые Корки с двумя гигами мозгов. Причем тормоза начинаются только в том случае если файл был создан на одном компьютере, к примеру смета была создана программой смета.ру на компьютере с адресом к примеру x.x.0.17, копирую ее, открываю на компьютере с адресом x.x.0.20, открываю фаервол и наблюдаю, что как только Эксель задумывается, начинается прием и отправка пакетов на комп с адресом x.x.0.17 "служба <system>", как только лаг проходит, сетевые обращения заканчиваются и в фаерволе в сетевой активности больше не происходит никаких действий.

sunne4ka
Несколько странный вопрос: а включены (работают) ли на этих компьютеров принтеры по умолчанию? Если принтер по умолчанию выключен (недостпупен), то Excel будет подтормаживать.

Цитата:

Уважаемый Mushroomer, принтеры на компьютерах используются сетевые, к компьютерам они никак не относятся.

Yamarat

Цитата:

Смотрите: Я в excel сконструировал русс-китай переводчик

Так лучше посмотреть кусочек.

Цитата:

И ДВА РАЗА КЛИКАЯ НА СТРОКУ, (где в "А1" русс, а в "В1" кит)
эти две ячейки с значениями копируются, на пример в Лист_2

Еще раз советую задать этот вопрос в Excel VBA.
Посмотрите еще файл:
http://w17.easy-share.com/1700853947.html

sunne4ka
Цитата:

принтеры на компьютерах используются сетевые, к компьютерам они никак не относятся.

Ну и что, что сетевые. Они включены? Какая версия Excel? Всего только 3 компьютера? Других компьютеров нет, чтобы проверить эту проблему? Сеть с рабочей группой или с доменом? Что будет, если сделать наоборот: создать файл на
x.x.0.20 и открыть его на x.x.0.17? Тормоза останутся?

Был truecrypt и да создал он раздел на 138 мегабайт. Внутри раздела поместил он папки и файлы. И много было файлов, и doc, и xls, и ppt, и jpg. Но самые важные только три. Чтобы подчеркнуть их важность, засекретили все три ещё и паролем excel-евским. И да погакнулся этот раздел, и да восстанавливали его два дня и две ночи программами easy recovery, finaldata, R-Studio (всё время вылетает, ирод). Файл восстановлен, хвала софту, да вот пароль просит, а затем данные не отображает (православный OpenOffice даже названия страниц умудряется прочитать). Погакнулись многие файлы ещё вместе с ними, всё doc и xls. И как же теперь их восстановить?
Челом бью, благодарен за любую помощь буду.

Вроде простая вещь, а забыл:
Есть нумерация (вразброс) из одно-двухзначных чисел. Как добавить в ячейки серию?
Напр, было
84
25
2
13

а стало -
4_85
4_25
4_02
4_13

? Пробовал групповой заменой, но какой подстановочный для "искомое выражение" - хз. Офис литовский, справку искать замучаюсь. Иначе уже б сам глянул. )

Сегодня попробовал в офисе поставить свою "систему автоматизации", которая на ноуте загружается 2 часа, на другой комп. Загрузилась- за 3 минуты. Оцифровка одного столбца всего 1 минута - против 1 часа на ноуте, в результате резко возросла производительность. В процессе автоматизации отчетной документации возникла дополнительная задачка, которая немного напоминает уже решенную в первой части, но посложнее.
Даны две таблицы одного формата с равным количеством столбцов и переменным ( в зависимости от контента) количеством строк. В первой таблице - несколько групп с переменным количеством элементов. Количество строк для каждой группы равно количеству элементов в ней. В разных группах встречаются одинаковые элементы с разными номерами.
Во второй таблице- также несколько групп, среди которых группы из 1 таблицы, но с другим набором элементов ( среди которых могут быть и элементы этих групп, но с другими номерами).
На выходе требуется получить таблицу, с количеством строк равным сумме строк двух таблиц, в которой встречаются номера всех групп 1 и 2 таблиц. В каждой из групп находятся элементы таблицы 1 или наоборот, и, если есть, элементы для той же группы - из другой таблицы.
Дополнительное условие- элементы в группе должны идти в алфавитном порядке и с возрастающими номерами для одинаковых элементов.
Короче обычная задача сортировки данных 2 массивов. Придется хорошо поработать.

bredonosec
=ЕСЛИ(A1<10;"4_0"&A1;"4_"&A1)
Ну а потом заменить на значения

bredonosec
не знаю, как без макроса... [more=вот макрос]

Код:
Sub Repl()
Dim c As Range

For Each c In Selection
If Len(c.Value) = 1 Then
c.Value = "4_0" & c.Value
Else
If Len(c.Value) = 2 Then c.Value = "4_" & c.Value
End If
Next
End Sub

Mushroomer
благодарю! )