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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 141 След.
Оптимизация в excel, Подбор формул для оптимизации по нескольким данным
 
#
16.09.2025 14:58:06
ТУТ посмотрите
 
Перейти    
Собрать_ все столбы с данными на одно листе
 
#
15.09.2025 12:04:07
И наваренное нужно в самом конце добавить, перед End Sub
Код
Application.ScreenUpdating = True
Изменено: Msi2102 - 15.09.2025 12:05:18
 
Перейти    
ДР (новая), С ДНËМ РОЖДЕНИЯ
 
#
15.09.2025 10:13:57
doober, с днюхой, всего, всего, всего 🍻
 
Перейти    
Формула "если" с несколькими условиями
 
#
11.09.2025 10:06:44
можно так
Код
=ПРОСМОТР(G2;$B$14:$B$18;$C$14:$C$18)

или так
Код
=ПРОСМОТР(G2;$B$14:$B$18;$C$14:$C$18)

Цитата
rexrainy написал:
Формула "если"
или так
Код
=ЕСЛИ(G2<121;0;ЕСЛИ(G2<181;0,25;ЕСЛИ(G2<301;0,5;ЕСЛИ(G2<451;0,75;1))))

PS мне кажется, что у Вас в ячейках А14:A18 перепутаны знаки больше - меньше
PS PS
Цитата
bigorq написал:
121>x>180 это условие можете словами описать
Не мне одному так кажется  :D
Изменено: Msi2102 - 11.09.2025 10:13:34
 
Перейти    
Преобразование текста на дату, Преобразование текста на дату
 
#
10.09.2025 13:02:39
Dilshod Kadirov, Приложите файл с примером
 
Перейти    
ЧСТРОК($C$1:C55) вместо $C$1 должно быть $C$СТРОКА()?, ЧСТРОК($C$1:C55) вместо $C$1 должно быть $C$СТРОКА()?
 
#
09.09.2025 12:58:10
Не совсем понятно, что хотите, но может так:
Код
=СТРОКА()-СТРОКА($C$1)
 
Перейти    
Трансформировать таблицу в плоский вид с помощью PQ.
 
#
08.09.2025 13:51:12
Можно ещё формулой, примерно такой (массивная)
Код
=ЕСЛИОШИБКА(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(;1;ЕСЛИ(СЖПРОБЕЛЫ(C4:C12)<>"";ПОДСТАВИТЬ(СЖПРОБЕЛЫ(C4:C12)&", ";",";"-"&СЖПРОБЕЛЫ(B4:B12)&",");""));", ";"</s><s>")&"</s></t>";"//s[position()<last()]");"")

Или такими (массивными)
Литера:
Код
=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(;1;ЕСЛИ(C4:C12<>"";ПОВТОР(B4:B12&",";ДЛСТР(C4:C12&",")-ДЛСТР(ПОДСТАВИТЬ(C4:C12;",";"")));""));",";"</s><s>")&"</s></t>";"//s[position()<last()]")

или так
Код
=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(;1;ПОВТОР(B4:B12&",";ДЛСТР(C4:C12)+(ДЛСТР(СЖПРОБЕЛЫ(C4:C12))>0)-ДЛСТР(ПОДСТАВИТЬ(C4:C12;",";""))));",";"</s><s>")&"</s></t>";"//s[position()<last()]")

Список:
Код
=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(", ";1;C4:C12);", ";"</s><s>")&"</s></t>";"//s")
Изменено: Msi2102 - 08.09.2025 14:41:28
 
Перейти    
Объединение значений, Соединение всех записей в одну ячейку с одинаковыми датами
 
#
08.09.2025 12:29:24
Цитата
Ильяс Кильметов написал:
объединены в 1 ячейку
Если правильно понял, то можно так:
Код
=ОБЪЕДИНИТЬ(СИМВОЛ(10);1;ЕСЛИ('1'!$D$2:$D$34=A5;'1'!$F$2:$F$34;""))
Изменено: Msi2102 - 08.09.2025 12:32:49
 
Перейти    
ДР (новая), С ДНËМ РОЖДЕНИЯ
 
#
30.08.2025 09:17:04
Sanja, с днем рождения, всего самого наилучшего 🍻
 
Перейти    
Сборка таблиц с разными шапками из нескольких книг, Ключевым - создание справочника, но как если столбцов 250
 
#
26.08.2025 20:33:24
Цитата
neurologkhv написал:
Через нечеткое соответствие или по-другому?
интересно, каким образом, даже с самыми большими допущениями сопоставить слово "Сумма" и слово "Стоимость", разве, что наченаются на "С" и есть буква "м"🤣
Изменено: Msi2102 - 26.08.2025 20:34:04
 
Перейти    
Транспонирование множества горизонтальных таблиц в одну вертикальную
 
#
26.08.2025 20:21:23
HottWigga, добрый вечер, можете почитать ТУТ, как говорится PQ вам в помощь
 
Перейти    
Копирование диапазона ячеек по условию
 
#
22.08.2025 09:17:24
Цитата
pilot_Danik написал:
Я почитал для общего, хоть не та ссылка.
Добрый день!
Ниже Старичок, дал правильную ссылку
Попробуйте так:
Код
Sub Макрос1()
    lLastRow = Cells(Rows.Count, "T").End(xlUp).Row
    Set rF = Range("B2:T" & lLastRow)
    rF.Select
End Sub
 
Перейти    
Копирование диапазона ячеек по условию
 
#
21.08.2025 11:55:57
Цитата
Старичок написал:
Если для макросов, то посмотрите   Это
Точно не ту ссылку дал  :D
 
Перейти    
Копирование диапазона ячеек по условию
 
#
21.08.2025 11:21:15
Почитайте ТУТ
 
Перейти    
Объединение списков, списки, сцепить
 
#
20.08.2025 16:01:31
Для версий, начиная с 2019, можно так:
Список домов без повторов
Код
=ЕСЛИОШИБКА(ИНДЕКС($B$3:$B$11;НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($E$2:E2;$B$3:$B$11)=0;СТРОКА($B$2:$B$10));1));"")

Список квартир
Код
=ОБЪЕДИНИТЬ(СИМВОЛ(10);1;ЕСЛИОШИБКА(ЕСЛИ(1/($B$3:$B$11=E3);$C$3:$C$11);""))
Изменено: Msi2102 - 20.08.2025 16:27:43
 
Перейти    
ИНДЕКС..ПОИСКПОЗ по сравнению временных интервалов, Поиск значения по нескольким условиям
 
#
20.08.2025 10:10:33
Цитата
Hugo написал:
поискпоз()
Можно только с =Индекс(), только они массивные без =СУММПРОИЗВ()
Код
=ИНДЕКС($D$2:$D$31;МАКС(($C$2:$C$31=G2)*($B$2:$B$31>=F2)*($A$2:$A$31<=F2)*(СТРОКА($D$2:$D$31)-1)))
Изменено: Msi2102 - 20.08.2025 10:10:44
 
Перейти    
Многостраничный массив, создание многостраничного файла с данными которые на ежедневной основе обновляются.
 
#
20.08.2025 08:25:32
Benz3, Добрый день, эта ветка для тех кому нужен совет если что-то не получается сделать самому, в Вашем случае требуется комплексное решение, наверное Вам лучше обратиться в раздел Работа
 
Перейти    
Power BI: привязка меры ....
 
#
19.08.2025 15:55:05
avlag, Добрый день, наверное лучше приложить пример в формате Excel
 
Перейти    
Группировка строк
 
#
19.08.2025 14:00:37
Dmitriy XM, добрый день! Не примите за критику, но если Вы используете в своих кодах раннее связывание, то желательно сообщить об этом ТС, возможно у него не подключены необходимые библиотеки и тогда Ваш код не взлетит.
Ну вот, пока писал уже исправил  :D
Изменено: Msi2102 - 19.08.2025 14:32:40
 
Перейти    
Группировка строк
 
#
19.08.2025 11:30:33
Цитата
ПавелW написал:
Можно ж просто сводной
Можно, но скучно  :D
А ещё не плохо бы если ТС написал какой у него установлен офис, а то если 2021, то и формулы были бы попроще
Изменено: Msi2102 - 19.08.2025 11:32:48
 
Перейти    
Группировка строк
 
#
19.08.2025 10:37:49
Можно таким макросом
Код
Sub Макрос1()
    Dim sd As Object, m As Long, n As Long, arr, arr_1, y
    Set sd = CreateObject("Scripting.Dictionary")
    arr = Range("A2:F" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    m = 0
    For n = 1 To UBound(arr)
        y = arr(n, 1) & "|" & arr(n, 2) & "|" & arr(n, 6)
        If Not sd.Exists(y) Then
            Set sd(y) = CreateObject("Scripting.Dictionary")
            sd(y).Add "nach", arr(n, 3)
            sd(y).Add "kon", arr(n, 4)
            sd(y).Add "prod", arr(n, 5)
            m = m + 1
        Else
            sd(y)("nach") = IIf(sd(y)("nach") > arr(n, 3), arr(n, 3), sd(y)("nach"))
            sd(y)("kon") = IIf(sd(y)("kon") < arr(n, 4), arr(n, 4), sd(y)("kon"))
            sd(y)("prod") = sd(y)("prod") + arr(n, 5)
        End If
    Next
    ReDim arr_1(1 To m, 1 To 6)
    n = 1
    For Each y In sd
        arr_1(n, 1) = Split(y, "|")(0)
        arr_1(n, 2) = Split(y, "|")(1)
        arr_1(n, 3) = sd(y)("nach")
        arr_1(n, 4) = sd(y)("kon")
        arr_1(n, 5) = sd(y)("prod")
        arr_1(n, 6) = Split(y, "|")(2)
        n = n + 1
    Next
    [h2].Resize(UBound(arr_1), UBound(arr_1, 2)) = arr_1
End Sub
Изменено: Msi2102 - 19.08.2025 14:18:36
 
Перейти    
Накладывание группы - по границам вставленного объекта (с учетом фигуры внутри группы).
 
#
15.08.2025 16:54:58
Цитата
Sanja написал:
Т.е. Вы сознательно нарушили пункт Правил, который я процитировал выше?
Можно и на предупреждение нарваться
На всякий случай, сообщение №7 это сообщение от модератора
Изменено: Msi2102 - 15.08.2025 16:56:32
 
Перейти    
Печать книги Excel, Экономия места на бумаге при печати книги Excel
 
#
15.08.2025 14:26:50
Цитата
Lancet99 написал:
К сожалению бизнес хочет по вкладкам видеть данные =(
Так пусть видит, кто бизнесу мешает, просто ещё один дополнительный лист
 
Перейти    
Некорреткно работают формулы, Некорреткно работают формулы - показывает ноль вместо суммы
 
#
15.08.2025 13:47:48
Цитата
Svetalika написал:
Некорреткно работают формулы
Думаю тему можно назвать "некорректное написание формул" :D
 
Перейти    
Ссылка из одного документа в другой, Ссылка из одного документа в другой, с переменной для того, что бы ссылка переключалась на другой лист в зависимости от изменения числа в текущем документе
 
#
14.08.2025 13:45:05
Мало понятно, что именно Вы хотите, может подойдет =ДВССЫЛ()
Изменено: Msi2102 - 14.08.2025 13:45:45
 
Перейти    
Печать книги Excel, Экономия места на бумаге при печати книги Excel
 
#
14.08.2025 13:31:08
Lancet99, здравствуйте. Можно собрать все отчеты на один новый лист и его уже печатать
 
Перейти    
ДР (новая), С ДНËМ РОЖДЕНИЯ
 
#
14.08.2025 08:16:47
tutochkin, с днюхой, всего самого наилучшего🥳🎂🍻
 
Перейти    
VBA функция, должна разъединять все ячейки на активном листе
 
#
13.08.2025 09:37:00
Цитата
setmefree написал:
недавно освоил vba
Оптимистично
Цитата
setmefree написал:
которую буду вызывать при работе с нужным листом
Не совсем понятно, что именно вы хотите, но может это:
Код
Private Sub Worksheet_Activate()

PS: и оформите код <...>
Изменено: Msi2102 - 13.08.2025 09:42:21
 
Перейти    
Компенсация затрат, Расчет компенсации партнерам
 
#
12.08.2025 16:33:43
ПавелW, Там скорее всего, сколько Костя должен Боре
 
Перейти    
PLEX не работает с текстом
 
#
12.08.2025 15:49:38
Вам СЮДА
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 141 След.
Наверх