Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 След.
Подсчёт значений в зависимости выбора фильтра, Подсчёт значений в зависимости выбора фильтра
 
Цитата
написал:
Olia_student , Код=SUBTOTAL(2;C2:C90) в с91

Добрый день, благодарю.
А если 2 выбора по фильтру?
Подсчёт значений в зависимости выбора фильтра, Подсчёт значений в зависимости выбора фильтра
 
Добрый день ;)

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

Например фильтр по Маршруту,  выбираем Город1, считается кол-во по дням.

Прикладываю пример во вложении. Буду благодарна в любой помощи по данной задаче! Или где есть уже такое решение буду благодарна ссылке.
Условное форматирование табеля работы, Условное форматирование, поиск и заливка цветом по значениям, суммирование по значению или по цвету
 
Nartiny
Благодарю ;)
В принципе все сделала так же через УФ. Думала может еще идей новых узнаю :)
Или макросом решить эту задачку (не сильна так сильно в написание кода)
Спасибо Вам большое :)  
Условное форматирование табеля работы, Условное форматирование, поиск и заливка цветом по значениям, суммирование по значению или по цвету
 
Добрый день!
Подскажите как можно сделать табель чтобы если допустим проставлять буквы в ячейках суммировалось итого, буквы заливались цветом и тоже суммировались отдельно в столбцах.
Если Вс (Воскресенье), то всегда заливка красным цветом, по всей строке.
Например нужно: равно если ноль или можно буквой допустим Выходной - В, то закрашивать в цвет и подсчитывать итого количество.
В колонке итого кол-во ТТ - суммирование, если ноль то он считает, если буква то счет суммирование кроме букв


P.S. Или подскажите куда тыкнуть посмотреть.
Изменено: Olia_student - 22.01.2025 11:48:57
Подсветка ячейки условным форматированием, Подсветка ячейки при условии данных условным форматированием
 
Павел \Ʌ/,  Благодарю
Подсветка ячейки условным форматированием, Подсветка ячейки при условии данных условным форматированием
 
Приветствую ;)

Вопросик такой не большой, :D .
Искала по форому, но похожую на мою задачу не нашла (точнее есть, но не мое).
Заранее простите если что.

Задачка: Подсветка контрагента в цвет, при условии что в графике если, есть хоть один "ноль", или "пусто", или "Убрать", или "Пост", то контрагента подсветить  красным.

Через УФ - да. Но и макрос тоже огонь.

Благодарю за помощь!
Изменено: Olia_student - 09.10.2024 15:33:21
Выбор только последнего слова (без учитывания пробелов, запятых; цифр; знаков), Последние слово
 
Ігор Гончаренко, Jack Famous, Alien Sphinx, webley, RAN,БМВ
Благодарю Вас! Все работает.
Огромное Вам спасибо!
Изменено: Olia_student - 24.05.2023 13:54:15
Выбор только последнего слова (без учитывания пробелов, запятых; цифр; знаков), Последние слово
 
Цитата
написал:
Ну в данном случае достаточно заменить запятую на пробел и тогда последнее слова станет последним после пробела :-)

В следующий раз всеж в Excel файл положите хоть что-нибудь, а то пример сильно скуден ;-)
БМВ Добрый день.
Я понимаю, что можно все делать руками.
Это пример из малой части выгрузки.
Ищу решение более автоматизированее - чем руками.
Вот прилагаю маленький пример (хотя по принципу однотипно), что может быть выгрузках.
Пока нужно только вычленять последние слово в конце строки

Я только познаю макросы и все что может облегчить труд работы в Excel. Поэтому пока.....
Такие вот ..... вопросы!

Благодарна за понимание и помощь, или направление где поискать!
 
Изменено: Olia_student - 24.05.2023 12:24:46
Выбор только последнего слова (без учитывания пробелов, запятых; цифр; знаков), Последние слово
 
Цитата
написал:
Код
    [URL=#]?[/URL]       1  2  3  4  5      Function   LastWord(s)        Dim   a        a = Split(s): a = Split(a(UBound(a)),   ","  )        LastWord = a(UBound(a))    End   Function   
 
Ещё вопросик :sceptic:
А если слитно цифры и слово идут, нужно только слово.
Пример:Магазин Красно р. Центральная,№26Соломкино - Соломкино
Изменено: Olia_student - 24.05.2023 11:32:22
Выбор только последнего слова (без учитывания пробелов, запятых; цифр; знаков), Последние слово
 
Цитата
написал:
Код
    [URL=#]?[/URL]       1  2  3  4  5      Function   LastWord(s)        Dim   a        a = Split(s): a = Split(a(UBound(a)),   ","  )        LastWord = a(UBound(a))    End   Function   
 
БЛАГОДАРЮ 10000 раз!!!!!! Огромное спасибо!
Изменено: Olia_student - 24.05.2023 11:19:27
Выбор только последнего слова (без учитывания пробелов, запятых; цифр; знаков), Последние слово
 
Добрый день!
Знаю много раз поднималась тема нахождение и выбор только последнего слова. (Не могу найти, именно что мне поможет, если направите благодарю!)
Задача: Найти только последние слово (не только после пробела. а именно последние слово)
Пример прилагаю.
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
Цитата
написал:
Olia_student, эхе-хе... ну вот чего бы сразу не написать, что конкретно нужно?
Проверяйте.
БЛАГОДАРЮ! БЛАГОДАРЮ! БЛАГОДАРЮ!
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
Цитата
написал:
PQ в подмогу
Тут просто другой человек будет собирать, (не знающий excel), поэтому нужна автоматизация.  
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
Цитата
написал:
Проверяйте. Обновление происходит автоматически, при активации листа свод. Макрос написан для данных из примера (меня слегка смутило, что итоги нужны только для двух первых позиций, но хозяин - барин).
Огонь  :) , а можно на все ячейки в сводной от ТТ руб до ТТ сторонних уникальных! Не совсем в макросах  :cry:  
Изменено: Olia_student - 26.04.2023 16:20:22
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
Цитата
написал:
Добрый день. Решение через макросы устроит?
Да, устроит. Понимаю, что только макросом можно решить эту задачу.  
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
Цитата
написал:
Можно попробовать через консолидацию. Новый лист, конечно, автоматом не подтянется, это только макрос. Но, достаточно исправить дату и добавить новый диапазон - быстрее чем формулы писать. поставил 500 строк в диапазон, надеюсь выгрузки не больше.
О, интересно! Благодарю за наводку! Буду использовать!
Только человек который будет выгружать эти данные в excel не очень. Поэтому нужна именно автоматизация данных в свод!
А так решение для сбора для меня кайфное, спасибо большое.
Изменено: Olia_student - 26.04.2023 11:54:00
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
Цитата
написал:
пишите данные на 1 лист (формуле СУММ все равно сколько строк данных вы заполните на листе)
фильтруйте по первой колонке, смотрите итоги над таблицей
Добрый день, благодарю за ответ.
Но нужно суммирование и свод только по итого, и если добавляется новый лист автоматом суммировалось.
т.е привязка итого к заголовкам, и отдельно в свод.
Руками можно собрать данные, а возможно сделать автоматически?
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
Добрый день!

Подскажите пожалуйста можно решить данную задачу?
Есть выгрузки по листам, нужно автоматически собирать в свод, только итого.
Плюс если добавляется новая страница так же автоматически суммируется в свод.


P.S. Заранее благодарю за подсказки и помощь.
Изменено: Olia_student - 26.04.2023 09:36:04
Поиск и вывод данных результатов по неточному соответствию с подстановкой значения из другой ячейки
 
Цитата
написал:
Olia_student , здравствуйте!
Можно, например так:

Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33      Sub   Compare()    Dim   arr_, arr_compare, item, temp, lstRow   As   Long    Dim   i, j, find_Val   As   Integer  , what, dcount    With   ActiveSheet          lstRow = .Cells(Rows.Count, 1).  End  (xlUp).Row          arr_ = .Range(.Cells(2, 1), .Cells(lstRow, 1))          lstRow = .Cells(Rows.Count, 5).  End  (xlUp).Row          arr_compare = .Range(.Cells(2, 4), .Cells(lstRow, 5))          For   Each   i   In   arr_              temp = Split(i,   ","  )              For   j = LBound(arr_compare, 1)   To   UBound(arr_compare, 1)                  item = Split(arr_compare(j, 1),   " "  )                  For   Each   what   In   item                      find_Val = search_item_in_1d_array(temp, what)                      dcount = dcount + find_Val                  Next   what                  If   dcount > 4   Then                      .Cells(j + 1, 1).Interior.Color = vbYellow                      .Cells(j + 1, 2) = arr_compare(j, 2)                      .Cells(j + 1, 4).Interior.Color = vbYellow                  End   If                  dcount = 0              Next   j          Next   i    End   With    End   Sub    Function   search_item_in_1d_array(arr, what)   As   Integer    Dim   i, item          For   Each   i   In   arr              If   InStr(LCase(i), LCase(what))   Then   search_item_in_1d_array = 1:   Exit   Function          Next   i    search_item_in_1d_array = 0    End   Function   
  Но нужно еще проверить точноть  . Тестируйте!
Благодарю.
Поиск и вывод данных результатов по неточному соответствию с подстановкой значения из другой ячейки
 
Добрый день!

Подскажите какими функциями можно воспользоваться?
Требуется найти  значения в ячейках A в просматриваемом массиве D2:D5 и в случае совпадения подставить значение ячейки из столбца E.
и
в просматриваемом массиве A2:A5 поиск и просмотр массива D2:D5 на совпадения и вывод значения равно.

P.S Если есть решение скиньте плиз ссылочку.
P.S2 Спасибо заранее.
Поиск в таблице и вывод, Поиск и вывод только номера из данных
 
Цитата
написал:
_Boroda_, А если номер с нолями впереди "Агроторг ООО Безенчук пгт, Советская ул, 26 №09654 п"
Ещё вариант
Код
    [URL=#]?[/URL]       1      =ПСТР(ПРАВСИМВ(A1;ДЛСТР(A1)-ПОИСК(  "№"  ;A1));ПОИСКПОЗ(1;--ЕЧИСЛО(--ПСТР( ПРАВСИМВ(A1;ДЛСТР(A1)-ПОИСК(  "№"  ;A1));СТРОКА($1:$100);1));0);СУММ(--ЕЧИСЛО(--ПСТР( ПРАВСИМВ(A1;ДЛСТР(A1)-ПОИСК(  "№"  ;A1));СТРОКА($1:$100);1))))   
 
Хм интересно. Беру на заметку. Благодарю.
Поиск в таблице и вывод, Поиск и вывод только номера из данных
 
Цитата
написал:
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12      =ПСТР(A1;НАЙТИ(  "№"  ;A1);МАКС(    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;0;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;0;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;1;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;1;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;2;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;2;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;3;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;3;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;4;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;4;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;5;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;5;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;6;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;6;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;7;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;7;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;8;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;8;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;9;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;9;"  "))));0);    )-НАЙТИ(  "№"  ;A1)+1)   
 
ОГРОМНОЕ СПАСИБО!
Поиск в таблице и вывод, Поиск и вывод только номера из данных
 
Цитата
написал:
Чего бы сразу об этом не писать?  И в моем файле - формула.
Огромное спасибо. Формула Огонь)))
Вы супер.
Изменено: Olia_student - 27.04.2022 12:28:34
Поиск в таблице и вывод, Поиск и вывод только номера из данных
 
Цитата
написал:
Добрый.
Можно пользовательской функцией
    Скрытый текст        
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7      Function   ExtrNum(T   As   Range)          Dim   objRE   As   Object          If   T.Cells.Count > 1   Then   Exit   Function          Set   objRE = CreateObject(  "VBScript.RegExp"  )          objRE.Pattern =   "¹\d+"          ExtrNum = objRE.Execute(T).Item(0)    End   Function   
 
Пример использования - в файле.
Благодарю. Мне бы формулу.
Поиск в таблице и вывод, Поиск и вывод только номера из данных
 
Добрый день.
Подскажите пожалуйста есть таблица с данными, как можно вытащить только номер из данных?
Или отправьте где уже это решение было.
Заранее спасибо.
Изменено: Olia_student - 27.04.2022 11:51:30
Сделать выборку по последнем значениям в строках
 
;) это просто пример, а так да-согласна :D  
Сделать выборку по последнем значениям в строках
 
Благодарю!
Сделать выборку по последнем значениям в строках
 
Добрый день, подскажите пожалуйста,
есть таблица данные/массив, нужно вынести отдельно определенные значения. Сделать выборку по последнем значениям в строках
(Если есть уже где это было, направьте пожалуйста)
Напрмер:
445047,Самарская обл.,г.Оренбург Бульвар Рябиновый,8 МД"Рябиновый" - найти нужно Рябиновый, итд. Таких значение много и они все разные.
Сопоставить две таблицы с разными значениями и данными (контрагенты и товары)
 
Добрый день, подскажите пожалуйста, как можно свести в сводную, две таблицы с разными значениями и данными.
Есть 1 таблица куда, из 2 таблицы нужно найти контрагентов (данные разные), и товар (данные разные). В 1 таблице контрагент и товар разбит по столбцам. Во 2 таблице, контрагент и товар идут в одном столбце.
Таблицы с более 100 000 строк.
Поиск и сопоставление из двух таблиц, с разными данными и значениями., Сопоставление из двух таблиц, разные данные и значения.
 
Цитата
msi2102 написал:
Olia_student,  Вам     СЮДА    , особенно п.2.3
А п.2.4 точно не нарушили:   2.4.     Не прикладывайте файлы-примеры с персональными данными, конфиденциальной информацией, коммерческой или государственной тайной! Яндекс и Google не спят - проиндексируют ваши данные и привет - они попадут в открытый доступ. И даже удаление темы потом не поможет.   В Вашем файле точно нет персональных данных?
Могу посоветовать Fuzzy Lookup, почитайте про неё  ЗДЕСЬ
Точно. Это просто пример. Таких данных на миллион строк.
Страницы: 1 2 3 След.
Наверх