Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Msi2102
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 147 След.
СУММЕСЛИМН не суммирует значения, полученные с помощью ПСТР, формула СУММЕСЛИМН не
 
#
13.04.2026 13:42:58
а так
=СУММПРОИЗВ(($GI$2:$GI$12="q")*($A$2:$A$12=GF16)*($GG$2:$GG$12))
Изменено: Msi2102 - 13.04.2026 13:43:16
 
Перейти    
СУММЕСЛИМН не суммирует значения, полученные с помощью ПСТР, формула СУММЕСЛИМН не
 
#
13.04.2026 13:32:18
Может так ихняя сумма получится
Код
=СУММПРОИЗВ((GI2:GI12="q")*(GG2:GG12))
Изменено: Msi2102 - 13.04.2026 13:33:01
 
Перейти    
СУММЕСЛИМН не суммирует значения, полученные с помощью ПСТР, формула СУММЕСЛИМН не
 
#
13.04.2026 13:12:43
Цитата
Viggi написал:
Почему то эта формула не сработало:
наверное потому, что неправильно написана, Вы опишите, что именно хотите посчитать
 
Перейти    
Удаление строки, при условии, Excel должен удалять строку с "Замечаний нет", после выполнения некоторого условия.
 
#
06.04.2026 10:56:29
Думаю Вам не хватает ещё одного столбца с датой самого замечания, тогда будет видно, что к примеру 29.04.2026 замечаний не было, а 30.04.2026 замечания появились, и может удалять ничего не нужно будет
 
Перейти    
Сложение чисел с разделителем, по условию, Сложение чисел с разделителем, по условию
 
#
06.04.2026 10:30:48
Монстрик с ФИЛЬТР.XML и ОБЪЕДИНИТЬ (если не ошибаюсь появились в 2016), массивная, если нужно чтобы ни кто ничего не понял  :D
Код
=ЕСЛИОШИБКА(СУММ(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(";";1;ЕСЛИОШИБКА(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ("\";0;ПОДСТАВИТЬ($A4:$Y4;"/";";"));"\";"</s><s>")&"</s></t>";"//s[position() mod 5 = " & (Z$3<5)*Z$3 & "]");""));";";"</s><s>")&"</s></t>";"//s[position() mod 2 = 1]")) &"/"&СУММ(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(";";1;ЕСЛИОШИБКА(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ("\";0;ПОДСТАВИТЬ($A4:$Y4;"/";";"));"\";"</s><s>")&"</s></t>";"//s[position() mod 5 = " & (Z$3<5)*Z$3 & "]");""));";";"</s><s>")&"</s></t>";"//s[position() mod 2 = 0]"));"0/0")
 
Перейти    
Удаление строки, при условии, Excel должен удалять строку с "Замечаний нет", после выполнения некоторого условия.
 
#
06.04.2026 08:28:49
Цитата
Levanton написал:
У меня на рабочем компе в Excel нет такого инструмента
а какой у вас офис? Так у Вас в файле уже есть запрос, может Вы просто не знаете, что такое Power Query?
Изменено: Msi2102 - 06.04.2026 09:15:47
 
Перейти    
Сложение чисел с разделителем, по условию, Сложение чисел с разделителем, по условию
 
#
03.04.2026 17:07:16
Попробуйте так, массивная
Код
=СУММ(($A$3:$Y$3=Z$3)*(ЕСЛИОШИБКА(--ЛЕВСИМВ($A4:$Y4;ПОИСК("/";$A4:$Y4)-1);0)))&"/"&СУММ(($A$3:$Y$3=Z$3)*(ЕСЛИОШИБКА(--ПСТР($A4:$Y4;ПОИСК("/";$A4:$Y4)+1;99);0)))
 
Перейти    
Необходимо отсортировать столбец, имеется 4 символа
 
#
30.03.2026 15:48:33
Цитата
МатросНаЗебре написал:
Видимо, действительно не самое простое.  nilske  предложил это в первом же сообщении
Проглядел  :D
 
Перейти    
Необходимо отсортировать столбец, имеется 4 символа
 
#
30.03.2026 14:55:04
Цитата
ПавелW написал:
самое простое доп столбец
Не самое простое: Данные --> Текст по столбцам (с разделителем "-") и потом сортировать в любом порядке
 
Перейти    
ДР (новая), С ДНËМ РОЖДЕНИЯ
 
#
30.03.2026 12:14:08
PooHkrd, С днюхой!!! Всего самого наилучшего от картеля медведей!!! :D
 
Перейти    
Сравнение данных в одной ячейке с несколькими
 
#
30.03.2026 10:28:26
Добавил немного анализа
Код
Sub Макрос1()
    arr1 = ActiveSheet.ListObjects("standard_table").DataBodyRange
    arr2 = ActiveSheet.ListObjects("verify_table").DataBodyRange
    ReDim arr_rez(1 To UBound(arr2), 1 To 1)
    Set sd = CreateObject("Scripting.Dictionary")
    For n = 1 To UBound(arr1)
        If Not sd.Exists(arr1(n, 1)) Then Set sd(arr1(n, 1)) = CreateObject("Scripting.Dictionary")
        sd(arr1(n, 1)).Add arr1(n, 2), arr1(n, 2)
    Next
    For n = 1 To UBound(arr2)
        arr_tmp = Split(arr2(n, 2), ",")
        If sd.Exists(arr2(n, 1)) Then
            o_id = ""
            If InStr(1, arr2(n, 2), "O", vbTextCompare) Or InStr(1, arr2(n, 2), "О", vbTextCompare) Then o_id = " (вместо нуля - буква О)"
            m = 0
            For Each y In arr_tmp
                If sd(arr2(n, 1)).Exists(y) Then m = m + 1
            Next
            If m = sd(arr2(n, 1)).Count And UBound(arr_tmp) + 1 = sd(arr2(n, 1)).Count Then
                arr_rez(n, 1) = "совпадает" & o_id
            ElseIf m > 0 Then
                If m < sd(arr2(n, 1)).Count And UBound(arr_tmp) + 1 < sd(arr2(n, 1)).Count Then
                    arr_rez(n, 1) = "не совпадает (больше id)" & o_id
                ElseIf m <= sd(arr2(n, 1)).Count And UBound(arr_tmp) + 1 >= sd(arr2(n, 1)).Count Then
                    arr_rez(n, 1) = "не совпадает (меньше id)" & o_id
                End If
            Else
                arr_rez(n, 1) = "не совпадает" & o_id
            End If
        Else
            arr_rez(n, 1) = "не найден"
        End If
    Next
    [d4].Resize(UBound(arr_rez), 1) = arr_rez
End Sub
Изменено: Msi2102 - 30.03.2026 11:07:35 (Исправил макрос)
 
Перейти    
Сравнение данных в одной ячейке с несколькими
 
#
30.03.2026 09:31:19
Без анализа почему не совпадает, можно так
Код
Sub Макрос1()
    arr1 = ActiveSheet.ListObjects("standard_table").DataBodyRange
    arr2 = ActiveSheet.ListObjects("verify_table").DataBodyRange
    ReDim arr_rez(1 To UBound(arr2), 1 To 1)
    Set sd = CreateObject("Scripting.Dictionary")
    For n = 1 To UBound(arr1)
        If Not sd.Exists(arr1(n, 1)) Then Set sd(arr1(n, 1)) = CreateObject("Scripting.Dictionary")
        sd(arr1(n, 1)).Add arr1(n, 2), arr1(n, 2)
    Next
    For n = 1 To UBound(arr2)
        arr_tmp = Split(arr2(n, 2), ",")
        If sd.Exists(arr2(n, 1)) Then
            m = 0
            For Each y In arr_tmp
                If sd(arr2(n, 1)).Exists(y) Then m = m + 1
            Next
            If m = sd(arr2(n, 1)).Count Then arr_rez(n, 1) = "совпадает" Else arr_rez(n, 1) = "не совпадает"
        Else
            arr_rez(n, 1) = "не найден"
        End If
    Next
    [d4].Resize(UBound(arr_rez), 1) = arr_rez
End Sub
Изменено: Msi2102 - 30.03.2026 09:50:08 (отредактировал макрос)
 
Перейти    
Формула для расчета количества прививок по двум условиям, Создать формулу
 
#
27.03.2026 15:11:20
Power Query и сводная
Изменено: Msi2102 - 27.03.2026 15:19:25
 
Перейти    
VBA. При удалении элементов из копии словаря, удаляются соответствующие элементы из словаря-источника
 
#
27.03.2026 09:05:13
Цитата
Sanja написал:
остался не раскрыт вопрос - ПОЧЕМУ?
Давай на другом примере
Код
Set wb = ActiveWorkbook
Set ws = wb.ActiveSheet

Если мы wb изменим у нас ws изменится?
А теперь давай представим, такую запись:
Код
Set wb = ActiveWorkbook
Set ws = wb '.ActiveSheet
 
Перейти    
Суммирование по множеству условий таблицы с горизонтально расположенными данными, Нужна единая суммирующая формула
 
#
26.03.2026 17:47:16
Или так, чтобы не было массивно
Код
=СУММПРОИЗВ(($B$1:$AM$1<=КОНМЕСЯЦА(P$17;0))*($B$1:$AM$1>=P$17)*($A$2:$A$9=$O18)*$B$2:$AM$9)
 
Перейти    
Копирование данных с листо, Нужен макрос для копирования данных
 
#
26.03.2026 08:26:08
Цитата
Sanja написал:
Ваша тема очень похожа на ТЗ на разработку макросов с нуля,
это квест
Цитата
ABD написал:
из папки с любым названием
Цитата
ABD написал:
по определенному алгоритму
Цитата
ABD написал:
Листов может быть 3 и больше.
и никакой конкретики 😂
 
Перейти    
Создание заголовков таблицы из повторяющегося столбца, Создание заголовков таблицы из повторяющегося столбца
 
#
24.03.2026 13:24:20
sotnikov, там в обратную сторону надо  :D
 
Перейти    
Создание заголовков таблицы из повторяющегося столбца, Создание заголовков таблицы из повторяющегося столбца
 
#
24.03.2026 11:31:44
Цитата
alex2214 написал:
в примере показал как бы хотелось
Пример не прикрепился, почитайте тут п.2.3-2.4 как он должен выглядеть
Изменено: Msi2102 - 24.03.2026 11:32:48
 
Перейти    
Объединение двух файлов в один
 
#
23.03.2026 14:16:21
Вы фильтром умеете пользоваться?
Шаг_1: в столбец F вставить данные из "заливка 2",
Шаг_2: в Фильтре выделить по цвету,
Шаг_3: Закрасить ячейки в желтый цвет,
Шаг_4: Снять Фильтр
Но это при условии, что строки в заливка 1 и заливка 2 совпадают
Изменено: Msi2102 - 23.03.2026 14:19:33
 
Перейти    
Объединение двух файлов в один
 
#
23.03.2026 14:00:46
А данные тоже нужно копировать или только форматирование?
 
Перейти    
Объединение двух файлов в один
 
#
23.03.2026 13:48:19
Attx, Мы с Вами можем долго выяснять почему и как, но думаю если Вы обратите внимание на сообщение №2
Цитата
Sanja написал:
Приложите файл-пример (Excel). Как есть - Как надо.
, а ещё лучше прочитаете правила форума, то помощь будет более конструктивной
Изменено: Msi2102 - 23.03.2026 13:49:37
 
Перейти    
Объединение двух файлов в один
 
#
23.03.2026 13:39:12
Цитата
Attx написал:
Да, все строки с данными, поэтому такой способ не подходит, к сожалению
Почему он не подходит? Вы в сообщении №3 ссылку смотрели?
Изменено: Msi2102 - 23.03.2026 13:40:15
 
Перейти    
Объединение двух файлов в один
 
#
23.03.2026 13:33:40
Не понятно, есть у Вас ещё какие либо данные в файле или только закрашивание. Если только закрашивание, то копируйте столбец, вставляете в его в нужный файл, фильтр по цвету и закрашивайте всё, нужным цветом, при условии, что при выделении не используется УФ
Изменено: Msi2102 - 23.03.2026 13:34:59
 
Перейти    
Объединение двух файлов в один
 
#
23.03.2026 13:23:32
Может ТУТ
 
Перейти    
Подсчет времени с даты начала работы
 
#
23.03.2026 12:32:21
Код
=СУММПРОИЗВ((КОНМЕСЯЦА(ДАТА(2026;МЕСЯЦ(1&$C$10:$N$10);1);0)>=$B$25)*(ДАТА(2026;МЕСЯЦ(1&$C$10:$N$10);1)<=$C$25)*($B$11:$B$17=B28)*$C$11:$N$17)
 
Перейти    
Подсчет времени с даты начала работы
 
#
20.03.2026 13:33:25
Цитата
inganderbo написал:
Картинка с экселя
Ещё бы файл с экселя
 
Перейти    
Excel 2016 режим умной таблицы не переводится в обычный режим, поле "преобразовать в диапазон" не активное, Windows 7x32.Excel 2016 режим умной таблицы не переводится в обычный режим, поле "преобразовать в диапазон" не активное.
 
#
18.03.2026 10:20:11
Цитата
Дмитрий(The_Prist) Щербаков написал:
книгу с умными таблицами нельзя сделать общей - это давнее ограничение.
точно, совсем забыл, давно с этим доступом не работал
 
Перейти    
Excel 2016 режим умной таблицы не переводится в обычный режим, поле "преобразовать в диапазон" не активное, Windows 7x32.Excel 2016 режим умной таблицы не переводится в обычный режим, поле "преобразовать в диапазон" не активное.
 
#
18.03.2026 10:17:40
Может у Вас файл имеет общий доступ?
 
Перейти    
Поиск даты в диапазоне дат и сумма значений в соседних ячейках
 
#
17.03.2026 12:31:16
Если немного переделать таблицу то можно так, и ещё вариант сводной и временной шкалой
 
Перейти    
Условное форматирование ячейки в зависимости от наличия в диапазоне отрицательного значения, Условное форматирование ячейки в зависимости от наличия в диапазоне отрицательного значения
 
#
17.03.2026 11:49:12
Выделить диапазон
Главная -> Условное форматирование -> Правила выделения ячеек -> Меньше -> в появившемся поле поставить 0
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 147 След.
Наверх