Выборка повторяющихся значений! - Мир MS Excel

Регистрация

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

= Мир MS Excel/Выборка повторяющихся значений! - Мир MS Excel

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_, DrMini

Выборка повторяющихся значений! (Формулы/Formulas)

Выборка повторяющихся значений!

Дата: Четверг, 22.03.2018, 13:51 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Ребята очень нужна ваша помощь. Есть таблица, с определенными значениями, надо в отдельном столбике в конце таблицы по каждой строчке сгенерировать надпись "системное явление", условия при которой такая надпись должна высвечиваться напротив каждой строчки следующие, если количество ячеек (выделены красным) с одинаковыми значениями больше 5ти по каждой строчке, то напротив строчки в конце должна высвечиваться надпись СИСТЕМНОЕ ЯВЛЕНИЕ. Помогите пожалуйста очень срочно нужна помощь, спасибо!

К сообщению приложен файл: 1399256.xlsx (20.4 Kb)

Ответить

Дата: Четверг, 22.03.2018, 14:11 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

То есть фактически надо как то прописать, что если в 5 ти ячейках строчки значения допустим равны какой то величине, или меньше какой то величины то должна появится надпись в конце строчки СИСТЕМНОЕ ЯВЛЕНИЕ

Ответить

Дата: Четверг, 22.03.2018, 14:30 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Не уверен, что правильно понял
Проверяйте

Код

=ЕСЛИ(ИЛИ(ЧАСТОТА(D5:U5;D5:U5)>5);"Системное явление";"")

К сообщению приложен файл: 1470555.xlsx (20.2 Kb)

Яндекс: 410016850021169

Ответить

Дата: Четверг, 22.03.2018, 14:42 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

спасибо, не совсем так, значения должны браться только из красных ячеек а не из всех, в этом основная идея

Ответить

Дата: Четверг, 22.03.2018, 14:43 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата sboy, 22.03.2018 в 14:30, в сообщении № 3 ()

спасибо, не совсем так, значения должны браться только из красных ячеек а не из всех, в этом основная идея

спасибо, не совсем так, значения должны браться только из красных ячеек а не из всех, в этом основная идея

Ответить

Дата: Четверг, 22.03.2018, 15:49 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

Замечаний: 0% ±

Excel 2010

UDF определяет максимальное количество повторяющихся значений в _строке_ R, только в ячейках с заливкой Clr)

[vba]

Код

Public Function MaxDupCount(R As Range, Clr As Long) As Integer
    For j = 1 To R.Columns.Count
        If R.Cells(1, j).Interior.Color = Clr Then
            Counter = 1
            For k = j + 1 To R.Columns.Count
                If R.Cells(1, k).Value = R.Cells(1, j).Value And R.Cells(1, k).Interior.Color = Clr Then Counter = Counter + 1
            Next k
            If Counter > MaxDupCount Then MaxDupCount = Counter
        End If
    Next j
End Function

[/vba]

К сообщению приложен файл: 1399256.xlsm (26.8 Kb)

Ответить

Дата: Четверг, 22.03.2018, 15:58 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата abtextime, 22.03.2018 в 15:49, в сообщении № 6 ()

UDF определяет максимальное количество повторяющихся значений в _строке_ R, только в ячейках с заливкой Clr)

а как сделать можно в том формате что я описал выше не подскажите

Ответить

Дата: Четверг, 22.03.2018, 16:06 | Сообщение № 8

Группа: Проверенные

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

Замечаний: 0% ±

Excel 2010

Мне казалось, это очевидно, но ок,

в ячейку X5 поставьте формулу

Код

=ЕСЛИ(MaxDupCount(K5:U5;255)>5;"Системное явление";"")

и протяните вниз

К сообщению приложен файл: 8467624.xlsm (27.0 Kb)

Ответить

Дата: Четверг, 22.03.2018, 16:33 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата abtextime, 22.03.2018 в 16:06, в сообщении № 8 ()

Мне казалось, это очевидно, но ок,

в ячейку X5 поставьте формулу

простите я не очень силен в excel, благодарю, а как можно эту формулу перенести в другой excel документ подскажите пожалуйста

Ответить

Дата: Четверг, 22.03.2018, 16:41 | Сообщение № 10

Группа: Проверенные

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

Замечаний: 0% ±

Excel 2010

MAXIMUS_GREEK,

почитайте здесь

я такие базовые вещи с трудом всегда объясняю )

Ответить

Дата: Четверг, 22.03.2018, 16:56 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата abtextime, 22.03.2018 в 16:41, в сообщении № 10 ()

MAXIMUS_GREEK,

почитайте здесь

я такие базовые вещи с трудом всегда объясняю )

эх печалька там для меня вообще дремучий лес, изучать надо месяца 3, а отчет сейчас нужен

Ответить

Дата: Четверг, 22.03.2018, 17:00 | Сообщение № 12

Группа: Проверенные

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

Замечаний: 0% ±

Excel 2010

Вставьте свой отчет в мой файл, если не хотите разбираться.

Ответить

Дата: Четверг, 22.03.2018, 17:02 | Сообщение № 13

Группа: Проверенные

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

Замечаний: 0% ±

Excel 2010

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

Ответить

Дата: Четверг, 22.03.2018, 17:13 | Сообщение № 14

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата abtextime, 22.03.2018 в 17:00, в сообщении № 12 ()

Вставьте свой отчет в мой файл, если не хотите разбираться.

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

Ответить

Дата: Четверг, 22.03.2018, 17:21 | Сообщение № 15

Группа: Проверенные

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

Замечаний: 0% ±

Excel 2010

Это Вы так "хорошо" задачу поставили

ок, смотрите так:

[vba]

Код

Public Function MaxDupCount(R As Range) As Integer
    For j = 1 To R.Columns.Count
            Counter = 1
            For k = j + 1 To R.Columns.Count
                If R.Cells(1, k).Value = R.Cells(1, j).Value And R.Cells(1, k).NumberFormat = R.Cells(1, j).NumberFormat Then Counter = Counter + 1
            Next k
            If Counter > MaxDupCount Then MaxDupCount = Counter
        Next j
End Function

[/vba]

К сообщению приложен файл: 0835107.xlsm (26.9 Kb)

Ответить

Дата: Четверг, 22.03.2018, 17:39 | Сообщение № 16

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата abtextime, 22.03.2018 в 17:21, в сообщении № 15 ()

Это Вы так "хорошо" задачу поставили

большое спасибо, и теперь последняя ремарка, как моно сделать чтобы все столбики задействовались с числами а не только начиная со столбика К, и тогда будет то что надо, шедевр!

pray

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

Сообщение отредактировал MAXIMUS_GREEK - Четверг, 22.03.2018, 17:40

Ответить

Дата: Четверг, 22.03.2018, 17:41 | Сообщение № 17

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

MAXIMUS_GREEK, здравствуйте. А, может, так подойдет? Формула массива (ввод Ctrl+Shift+Enter)

Код

=--(МАКС(ЧАСТОТА(ЕСЛИ(ЕНЕЧЁТ(СТОЛБЕЦ(E5:U5));E5:U5);E5:U5))>5)

ФЯ "Системное явление";; В желтой ячейке значение изменил вручную для проверки

К сообщению приложен файл: 1470555-1.xlsx (19.9 Kb)

Делай нормально и будет нормально!

Ответить

Дата: Четверг, 22.03.2018, 17:55 | Сообщение № 18

Группа: Проверенные

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

Замечаний: 0% ±

Excel 2010

MAXIMUS_GREEK,

в формуле

Код

=ЕСЛИ(MaxDupCount(K5:U5)>5;"Системное явление";"")

поменяйте K5 на другую ячейку, С5 например

Код

=ЕСЛИ(MaxDupCount(C5:U5)>5;"Системное явление";"")

Ответить

Дата: Четверг, 22.03.2018, 17:58 | Сообщение № 19

Группа: Проверенные

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

Замечаний: 0% ±

Excel 2010

Che79, если я правильно понял топикстартера, то в его парадигме 0% не равно 0, что отражено у меня во фрагменте кода [vba]

Код

And R.Cells(1, k).NumberFormat = R.Cells(1, j).NumberFormat

[/vba]

Ответить

Дата: Четверг, 22.03.2018, 18:07 | Сообщение № 20

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

[offtop]Вчитался в задание и понял, что нифига-то я и не понял

Цитата MAXIMUS_GREEK, 22.03.2018 в 13:51, в сообщении № 1 ()

если количество ячеек (выделены красным) с одинаковыми значениями больше 5ти

Цитата MAXIMUS_GREEK, 22.03.2018 в 14:11, в сообщении № 2 ()

если в 5 ти ячейках строчки значения допустим равны какой то величине, или меньше какой то величины

Ухожу за попкорном и временно становлюсь наблюдателем

Делай нормально и будет нормально!

Ответить

Выборка повторяющихся значений! (Формулы/Formulas)

Страница 1 из 2
1
2
»

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