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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 175 След.
Поиск средней цены по условию, Поиск средней цены по условию
 
#
08.01.2026 23:37:05
Цитата
написал:
А, можно ли Вашу формулу скорректировать
Можно взять с запасом A$2:A$10000 и соответственно другие диапазоны так же. Проблема в первой строке, там текст. При перемножении текста формула выдает ошибку.
Изменено: gling - 08.01.2026 23:41:15
 
Перейти    
Поиск в таблице соответствия на наименьшее значение.
 
#
08.01.2026 18:09:55
Здравствуйте.
Посмотрите вариант формулами для старых версий Excel.
Есть вариант с поиском по строкам и столбцам.
Изменено: gling - 08.01.2026 18:57:32
 
Перейти    
Удаление части содержимого ячейки, Подскажите пожалуста
 
#
08.01.2026 10:06:06
Найти/заменить [*] - на пусто.  
 
Перейти    
Замена значений в макросе, Замена значений в макросе
 
#
07.01.2026 21:55:11
Olegas, а почему вы не исправляете что просит модератор и во всех сообщениях делаете те же ошибки?
Цитата
П.С. Про оформление кода в сообщении (тэг <...> на панели сообщений) я Вам уже писал, исправьте Ваши сообщения
Неужели сложно нажать кнопку <...> на панели (в самой верхней строке выше текста, где выбор шрифта) и вставить в появившееся окно код макроса или формулу? Или выделить написанный текст и нажать эту кнопку. Не надо их обрамлять вручную каждую строку.
Ещё вариант замены или очистки ячеек с ошибками.
Код
Sub ОшибкаФормулы()
    Range("J:M").SpecialCells(xlCellTypeFormulas, 16) = ""
'    Range("J:M").SpecialCells(xlCellTypeFormulas, 16).ClearContents'очистка ячеек
End Sub
Sub ОшибкаТекст()
    Range("J:M").SpecialCells(xlCellTypeConstants, 16) = ""
'    Range("J:M").SpecialCells(xlCellTypeConstants, 16).ClearContents'очистка ячеек
End Sub
 
Перейти    
Поиск средней цены по условию, Поиск средней цены по условию
 
#
07.01.2026 20:53:45
Здравствуйте.
Код
=СУММПРОИЗВ(($A$2:$A$42=A2)*$C$2:$C$42*$D$2:$D$42)/СУММЕСЛИ($A$2:$A$42;A2;$C$2:$C$42)
 
Перейти    
Найти в таблице отсутствующие значения (по заданным параметрам), Необходимо определить вакансии в таблице
 
#
07.01.2026 20:19:55
Здравствуйте.
Ещё можно обычной сводной.
 
Перейти    
Применение InputBox в макросе с применением формулы, Применение InputBox в макросе с применением формулы
 
#
07.01.2026 08:04:48
Цитата
написал:
Он эту строчку желтым выделяет,
Возможно вы 0,9 вводите с разделителем запятая а в формуле в макросе 0.9 должно быть с точкой.
Или так
Код
Sub Макрос1()
Dim userInput As Variant
   
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    userInput = InputBox("Введите нужное число:", , 0.9)
    userInput = Application.Substitute(userInput, ",", ".")
    Range("N10:N" & lLastRow) = "=IF(RC[-1]>0,RC[-1]/" & userInput & ",RC[-8])"
    Calculate
End Sub
Изменено: gling - 07.01.2026 22:53:40
 
Перейти    
Применение InputBox в макросе с применением формулы, Применение InputBox в макросе с применением формулы
 
#
07.01.2026 00:49:06
"userInput - здесь кавычки лишние, уберите их в формуле.  
Изменено: gling - 07.01.2026 00:50:15
 
Перейти    
Автозаполнение данных в макросе с применением массивной формулы, Автозаполнение данных в макросе с применением массивной формулы
 
#
06.01.2026 21:02:24
Цитата
написал:
возникает ошибка.
Не понял вопрос.
У вас формула в расчеты включает только до 42 строки.  Может быть из за этого ошибка? lLastRow = Cells(Rows.Count, 1).End(xlUp).Row находит последнею строку в первом столбце. И если последняя строка в первом столбце (столбце А) 5000, то и lLastRow = 5000. Может быть вам надо изменить формулу?
Код
Sub Макрос10()
   Dim lLastRow As Long
   With ActiveSheet
        lLastRow = .Cells(Rows.Count, 1).End(xlUp).Row 'находим последнею заполненую ячейку в стобце 1 на активном листе
        .Range("E2").FormulaArray = "=MIN(IF(R2C1:R" & lLastRow & "C1=RC[-4],R2C3:R" & lLastRow & "C3))"
        .Range("E2").Copy
        .Range("E3:E" & lLastRow).PasteSpecial Paste:=xlPasteFormulas
        .Calculate
   End With
End Sub

Пока писал ответ, вопрос удалили. Зря писал ответ что ли? Может быть хоть формула пригодится?

Изменено: gling - 06.01.2026 21:30:10
 
Перейти    
оптимизация формулы счётеслимн, сделать формулу счетесли более универсальной без перечисления каждого диапазона
 
#
06.01.2026 20:34:10
Здравствуйте.
Попробуйте любую формулу для F70
Код
=СЧЁТЕСЛИ(ИНДЕКС($H$3:$H$64;ПОИСКПОЗ(F$69;$A$3:$A$64;)):ИНДЕКС($S$3:$S$64;ПОИСКПОЗ(F$69;$A$3:$A$64;)+1);$B70)
=СЧЁТЕСЛИ(СМЕЩ($H$2;ПОИСКПОЗ(F$69;$A$3:$A$64;);;2;12);$B70)
=СУММПРОИЗВ(($H$3:$S$64=$B70)*($A$3:$A$64=F$69))
Изменено: gling - 06.01.2026 21:13:36
 
Перейти    
Автозаполнение данных в макросе с применением массивной формулы, Автозаполнение данных в макросе с применением массивной формулы
 
#
06.01.2026 20:20:30
Здравствуйте.
Попробуйте так
Код
Sub Макрос10()
   Dim lLastRow As Long
   With ActiveSheet.UsedRange
   lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
   Range("E2").FormulaArray = "=MIN(IF(R2C1:R42C1=RC[-4],R2C3:R42C3))"
   Range("E2").Copy
   Range("E3:E" & lLastRow).PasteSpecial Paste:=xlPasteFormulas
   .Calculate
   End With
End Sub
 
Перейти    
Сравнение значений времени в формуле ЕСЛИ
 
#
06.01.2026 19:38:24
Если не получится, выкладывайте файл пример
Код
=ЕСЛИ(A31>=--"150:00:00";"Зачёт";"Незачёт")
 
Перейти    
Поиск наименьшей цены по условию, Поиск наименьшей цены по условию
 
#
05.01.2026 19:59:29
А какая связь между поиском цены и заполнение макросом?  
 
Перейти    
Поиск значения в массиве данных
 
#
05.01.2026 15:47:23
Возможно другое название темы будет ближе по смыслу? "Использование функций ИНДЕКС и ПОИСКПОЗ для поиска значения в массиве данных"
Лучше конечно в файле Excel проверить. Не известно что у вас прописано в ячейках A10:A12 и B1:D1. Попробуйте:
Код
=ИНДЕКС($A$2:$A$4;ПОИСКПОЗ($B$7;ИНДЕКС($B$2:$D$4;;ПОИСКПОЗ(A10;$B$1:$D$1;));))
 
Перейти    
Поиск значения в массиве данных
 
#
05.01.2026 14:14:06
Здравствуйте.В вашем сообщении только "вода" и ничего более. А что вам надо то? Из названия темы не понятно, из описания тоже ничего не понятно. Прочтите правила форума, особое внимание на подпункты 2.1.-2.3.
 
Перейти    
Преобразование ФИО
 
#
25.12.2025 15:00:56
Здравствуйте.
Если у вас Excel2016 или старше, то можно без формул "Мгновенным заполнением (Ctrl+E)
 
Перейти    
Нахождение произведения данных из 2 таблиц, путем сравнения по 3 критериям.
 
#
25.12.2025 12:55:08
Здравствуйте.
Попробуйте еще вариант.
Код
=СУММПРОИЗВ(ИНДЕКС($C$3:$O$9;;ПОИСКПОЗ(H$22;$C$2:$O$2;))*ИНДЕКС($C$13:$O$19;;ПОИСКПОЗ($B24;$C$12:$O$12;)))
Изменено: gling - 25.12.2025 13:07:59
 
Перейти    
VBA. Вставка формулы в ячейку кодом в цикле
 
#
24.12.2025 14:07:42
Цитата
написал:
Чего то не нравится ей "&k&"
Может быть добавить пробелы до и после &?
(" &  k & ")  
 
Перейти    
СЧЕТЕСЛИМН с динамическоим диапозоном между ячейками с именами
 
#
22.12.2025 22:39:54
Ещё вариант в файле. Формулы выбора диапазона в диспетчере имен.
 
Перейти    
GoogleSheets. Поиск всех значений по условию со всех листов и перенос на один лист, Найти все совпадения по условию на всех листах и перенести (скопировать) их по порядку на один лист
 
#
21.12.2025 16:43:37
Ещё вариант формулами в файле. При необходимости названия листов в строке 1 можно вводить вручную.
Изменено: gling - 21.12.2025 16:45:03
 
Перейти    
Формула для заполнения значения если ячейка имеет цвет
 
#
16.12.2025 21:10:22
Цитата
написал:
не должен быть Range,
Точно, я и забыл что далее я эту переменную использую для кода цвета. У меня при отказе от выбора ячейки выскакивала ошибка, и я начал экспериментировать, вставил он еррор и успокоился. Файл в сообщении #23 заменил.
 
Перейти    
Формула для заполнения значения если ячейка имеет цвет
 
#
16.12.2025 10:42:51
Цитата
написал:
Смена цветов заливки не предусмотрена?
В файле по выбору цвета или без заливки.
Изменено: gling - 16.12.2025 21:10:51
 
Перейти    
Поиск значения в динамическом диапазоне и вывод его ближайшего номера позиции., Нужна функция для заполнения столбцов нужными значениями
 
#
15.12.2025 23:33:51
Здравствуйте.
Название темы: Поиск значения в динамическом диапазоне и вывод его ближайшего номера позиции.
Вариант от sotnikov, но без массивного ввода.
Код
=ЕСЛИОШИБКА(ИНДЕКС($A2:$A$73;СУММПРОИЗВ(ПОИСКПОЗ(1;($B2:$B$73>C$1)*($B2<=C$1);)));)
 
Перейти    
подскажите как рассчитать места в соревновании
 
#
15.12.2025 19:48:54
Цитата
написал:
первые места получают участники поразившие наибольшее число целей (всего 3)
Порядковый номер 13, поразил 3 цели, почему у него 13 место? В каком случае у него будет первое место? Что важнее, попадания, время или расход б/п?
 
Перейти    
Поиск по условиям
 
#
15.12.2025 19:23:26
Еще вариант
Код
=ПРОСМОТР(1;1/СЧЁТЕСЛИМН(A15;Версии!$A$2:$A$16&"*";Лист1!D15;Версии!$D$2:$D$16&"*");Версии!$C$2:$C$16)
 
Перейти    
Формула для заполнения значения если ячейка имеет цвет
 
#
14.12.2025 22:22:50
Предлагаю доработать макрос от Старичок, выбором нужного цвета ячеек, указав на ячейку с нужным цветом.
Код
Sub Ext()
  Dim Cl As Range, N&, Yac_kaCvet
  Set Yac_kaCvet = Application.InputBox("Выберите ячейку с нужным цветом:", "Выбор цвета ячейки", Selection.Address, Type:=8)
    Yac_kaCvet = Yac_kaCvet.Interior.Color
    Range("D:D").ClearContents
  For Each Cl In Range("A1:A" & Cells(1, 1).End(xlDown).Row)
    If Cl.Interior.Color = Yac_kaCvet Then
      N = N + 1
      Cells(N, "D") = Cl
    End If
  Next
End Sub
 
Перейти    
Подсчитать путь имея широту, долготу, высоту, уклон, скорость
 
#
14.12.2025 18:45:11
Цитата
написал:
Хотелось бы видеть пройденный путь к каждой секунде.
А скорость умножить на время не устроит? А пройденный путь будет если пройденный за секунду плюс пройденное расстояние до этой секунды.
В Н3 и тянуть вниз.
Код
=(D3*1000)/3600*(A3-A2)*86400+H2
 
Перейти    
Выбор МАКС и МИН из меняющегося диапазона значений, Нахождение максимального и минимального значения котировок из дневной и вечерней сессии
 
#
12.12.2025 22:45:28
Цитата
написал:
Просто в формулах поменять диапазон
Да. Можно даже через Найти/Заменить. Но не знаю как будут формулы считать на таких объёмах. Если будет долго считать, тогда лучше этот файл открывать отдельно, при закрытых других файлах Excel.
 
Перейти    
Выбор МАКС и МИН из меняющегося диапазона значений, Нахождение максимального и минимального значения котировок из дневной и вечерней сессии
 
#
12.12.2025 22:10:38
Можно не создавать доп столбец Сессий (Дневная/Вечерняя) на исходном листе. Лишнее прописал, в файле убрал.
Цитата
Два дня разбирался, в помощь ИИ
В Excel есть возможность просмотреть пошаговую работу формул, на вкладке Формулы -- Вычислить формулу. Активируете ячейку с формулой и жмёте Вычислить формулу, и видите поэтапно как формула считает. Только чтобы понять, не нужны такие большие диапазоны как у вас ($B$1:$B$1943), достаточно уменьшить до 10-15 строк, и можно в каждой сессии оставить по 3-4 строки с данными, остальные строки в исходнике  удалить. Тогда просмотр работы будет более удобным.
Изменено: gling - 12.12.2025 22:21:30
 
Перейти    
Логика работы СУММЕСЛИМН() при выборе разных условий из одного диапазона, Не работает формула суммеслимн при одинаковом диапазоне условия и разными условиями
 
#
12.12.2025 17:58:38
Ещё вариант:
Код
=СУММПРОИЗВ(СУММЕСЛИ(Наборка!A45:A49;Список!A18:A20;Наборка!G45:G49))+СУММЕСЛИ(Наборка!A45:A49;Список!A25;Наборка!G45:G49)
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 175 След.
Наверх