» Excel FAQ (часть 3)

VictorKos
ZORRO2005
Спасибо! Да, действительно, нужно кол-во уник. значений в отфильтрованном диапазоне. Я думал, что это элементарная задача, что есть функция о которой я просто не знаю, а тут такие проблемы. Дополнительный столбец не подходит. Хочется видеть цифру сразу после фильтрации. Как в промежуточных итогах. Расширенный фильтр тоже не подходит, так как убивает стрелочки автофильтра и не имеет отката назад. Приходится закрывать файл без сохранения и открывать снова, чтобы избавиться от результатов его работы.
Всеравно всем спасибо за участие. Если кто, что вспомнит напишите.

DonkeyHottt
Посмотрите пример с дополнительным столбцом:
http://slil.ru/25535978
Столбец ведь можно спрятать.

ghosty
Можно сделать формат оси и получить:
http://slil.ru/25536883
Или сделать дополнительный столбец(Год/Месяц)
в исходных данных:
http://slil.ru/25536904

Цитата:

Или сводная таблица может как-то автоматически расширять диапазон?

Можно присвоить имя для диапазона, чтобы он стал динамическим
Код: =СМЕЩ($A$1;0;0;СЧЁТЗ($A$1:$A$10000);СЧЁТЗ($1:$1))

ZORRO2005
Спасибо! Оригинальный способ. И главное работает. На данный момент лучший. Надо только подумать как красиво спрятить ненужное. Ну это я уже сам. Спасибо!

В условном форматировании формирую значения по совпадению в строках:

=И(СЧЁТЕСЛИ($A$1:$A$100; A1)+СЧЁТЕСЛИ($B$1:$B$100; A1)>1;НЕ(ЕПУСТО(A1)))

Друзья подскажите как подсчитать колличество выделенных значений учитывая итог совпадений?

abasov
Если в одной строке будут одинаковые значения,
то по вашей формуле это будет считаться как совпадение.
Формула ниже приводит к такому же результату:
Код: =СЧЁТЕСЛИ($A$1:$B$100;A1)>1

Добрый день!
Вот, что понадобилось:

Есть столбец с номерами счетов и субсчетов
Нужно удалить все счета.субсчета верхнего уровня, т.е.
если стоит счет 2 и есть субсчет 2.1 ниже - тогда строку со счетом 2 нужно удалить
и если есть субсчет 2.1.1, или 2.1.4 или еще какой нибудь - нужно оставить только эти, самого нижнего уровня (т.е. удалить 2.1) и т.д.

Во вложеном файле все подробно показано и есть мой вариант решения. Хотелось бы увидеть более простой.
Спасибо)

http://slil.ru/25539828

Помогите пожалуйста.
Почему при формуле =СУММ(A2;b2) у меня продолжает суммироваться когда я уже ввожу в другие ячейки

ZORRO2005
Вы мне очень помогли, спасибо огромное!

gvserg1
http://slil.ru/25542821

"Надстройки "Сумма прописью" из шапки не работает

Помогите пожалуйста.
Надо чтобы в ячейке A1 суммировались данные которые я ввожу в B1,то есть вводим в B1 10 в A1 появляется 10,если ещё раз ввести 10, то должно отобразиться в A1=20. Я ввожу в A1 формулу =СУММ(A$1:B1), у меня появляется предупреждение о циклической ссылке. Как быть, чтобы эта хрень суммировалась? Если согласно справке я устанавливаю флажок итерации, то суммируются вообще все ячейки в которые вводятся данные.

lamut
Сумма с накоплением

Спасибо, вот только есть ещё ячеки D1:E1, надо чтобы накопительным итогом набиралось и в них и ещё в пару ячеек, на пример F1:G1 ? Короче как этот макрос доделать
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("A2").Value = Range("A2").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub

lamut

Код: Range("A2").Value = Range("A2").Value + .Value

Не понял. Можно, пожалуйста по подробней.

Добавлено:
Всё, разобрался. Огромное спасибо

lamut


Код:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If (.Address(False, False) = "B1") Or (.Address(False, False) = "D1") Or (.Address(False, False) = "F1") Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
If .Address(False, False) = "B1" Then
Range("A1").Value = Range("A1").Value + .Value
ElseIf .Address(False, False) = "D1" Then
Range("C1").Value = Range("C1").Value + .Value
ElseIf .Address(False, False) = "F1" Then
Range("E1").Value = Range("E1").Value + .Value
End If
Application.EnableEvents = True
End If
End If
End With
End Sub

zboy

Цитата:

Надстройки "Сумма прописью" из шапки не работает

к сожалению, сейчас нет возможность подправить шапку.
Пока, как временное решение, для тех, кому надо перевести число из числового представления в прописное - цитата с дружественного форума:

http://www.planetaexcel.ru/forum_upload/post_1751.xls
http://www.softnew.ru/list.phtml?id=6854
http://rapidshare.com/files/63656566/num2string.rar
http://gb.by/node.phtml?index=4&id=&key=
http://www.allok.ru/?id=3
---
http://www.planetaexcel.ru/forum.php?thread_id=535
http://www.planetaexcel.ru/forum.php?thread_id=2530

---

Bredun

Цитата:

Вообще то надо бы это перекинуть на топик Excel VBA

ну, строго говоря - ДА. Вам надо было бы ответить там и дать тут ссылку на своё сообщение-ответ...
Но чего уже теперь... Два и вообще , два этих топика (excel FAQ и Excel VBA вообще ОЧЕНЬ тесно связаны - на моей памяти есть случаи, когда обсуждение одной проблемы переходило из одного топика в другой и возращалось обратно ;-))
Так что - не расстраивайтесь... ;-)

Помогите...

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

Общее количевство имен и соответсвующие им картинки определены заранее, но вот в форме вывода все будет постоянно меняться //

D2men
Для небольшого количества картинок посмотрите здесь:
http://www.planetaexcel.ru/tip.php?aid=57
Но если
Цитата:

количевство имен может быть и сто и тысяча

думаю это задача не для Excel.

мЭрся
Буду пробовать на работе седня ))

Не могу понять в чем проблема. При копировании таблицы в Word не копируются закрашенные области. Т.е. если ячейка в Excel закрашена в определенный цвет, при копировании в Word эта ячейка белая (безцветная) а значения ячейки копируются нормально. Проблема только в копировании цвета. Это просиходит только на одном компе, на остальных нормально копируется. Покопался в настройках Excel и Word результатов нет. С Worda в Excel копирует нормально. Может кто сталкивался с этим.

Подкажите пожалуйста, каким образом можно сделать так, чтобы при нажатии комбинации клавиш запускался нужный мне макрос?
Знаю, что на макросы стандартными функцимя можно назначить комбинацию Ctrl+буква. Но увы нельзя назначить даже цифру,и уж тем более комбинации с Shift или Alt. А очень НУЖНО.
Заранее спасибо за ответ.

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

Мож есть еще метод динамической замены картинок?..

так что, действительно никак?..

1

Есть ли формула, которая прокрашивает строки от цифрового значения, заданного в столбце (не повреждая данные в других столбцах или строках)?

aleksrom
Условное форматирование

условное форматирование позволяет не более 3 условий задать, всего же цветовых констант в ёкселе 56, на VBA можно простенький код накорябать

Добавлено:
D2men
может быть вместо самих картинок проще вставлять гиперссылки на них, либо после расчёта экспортировать в htm в виде галеры с "тумбой"? Только htm-код чутка подправить блокнотом

htm эт вариант...

А способа функцикй картинку вставить нет?..

Проблема в том картинке нельзя назначить динамическую ссылку на ячейку "изменения" картинки... Все далее копируемые картинки сылаются на первую ибо без $ не канат, а всю формулу в картинку не забьеш... (размышления и пробы варианта приведенного выше - со списками)

Скорее всего для динамичности прийдется разбить свою тысячу картинок на десяток разделов и создавать сотню "списков"...

А заставить макрос брать адрес картинки и вставлять в ячейку рядом нельзя?.. Заранее задать макросу шаг и пусть перевставляет... я с макросами пока не дружу (( не поможет кто?..