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

Страницы: 1
Создание пользовательской функции с аргументами
 
#
20.12.2022 07:33:52
Добрый день.
Файл во вложении

Прошу у вас помощи. Моих знаний, к сожалению не хватает для самостоятельной реализации идеи.
Задача - поиск граничных значений в заданном диапазоне.
Дано:
1. Какое-то число x
2. Именованный диапазон любого размера n1,n2.....n

Я нахожу положение z1 этого числа в данном диапазоне по следующим условиям:
Если x <= min, то z1 = min
Если x >= max, то z1 = max
Если n2 > x > n1, то z1 = n2
Если n3 > x > n2, то z1 =  n3
и т.д.

Вот такая у меня вышла формула

=ЕСЛИМН(
B3<=МИН(Диапазон1);ЕСЛИ(B3<=ИНДЕКС(Диапазон1;1);ИНДЕКС(Диапазон1;2));
B3>=МАКС(Диапазон1);ЕСЛИ(B3>=ИНДЕКС(Диапазон1;ПОИСКПОЗ(МАКС(Диапазон1);Диапазон1;0));ИНДЕКС(Диапазон1;ПОИСКПОЗ(МАКС(Диапазон1);Диапазон1;0)-1));
И(B3>МИН(Диапазон1);B3<МАКС(Диапазон1));ИНДЕКС(Диапазон1;ПОИСКПОЗ(МИН(ЕСЛИ(Диапазон1>=B3;Диапазон1));Диапазон1;0)))

Как можно заметить, в данной формуле всего 2 аргумента. 1 - число, 2 - рассматриваемый диапазон

Я использую её часто, для разных чисел и диапазонов. Поэтому редактировать её каждый раз довольно сложно и можно легко ошибиться.
Возможно ли средствами экселя или VBA создать на основе этой формулы - новую функцию с 2 аргументами?  
 
Перейти    
Поиск граничных значений в диапазоне VBA
 
#
21.03.2022 06:38:13
Добрый день. Помогите пожалуйста написать для VBA 2 функции на поиск граничных значений в диапазоне.
В примере я сделал подробное описание как работают функции с готовыми формулами.
Спасибо!
 
Перейти    
Найти в диапазоне строку со средними значениями по диапазону
 
#
24.11.2021 08:40:56
Всем доброго дня!

Каждый раз обращаясь за помощью к данному форуму, мне кажется, что я задаю какие-то банальные вопросы, ответы на которые лежат совсем на поверхности, но я всё равно не могу их найти))
Вопрос состоит в том, чтобы сравнить диапазоны и найти среди них средний.

Есть некоторая таблица с большим количеством столбцов.

Для каждого отдельного столбца найти среднее значение - просто, понятно. Но, что если я хочу выделить одну строку, которая будет являться условно "средней" среди всех остальных.

Есть ли вообще такая возможность?
Заранее спасибо.
 
Перейти    
Как подставить значения времени как переменные в формулу
 
#
15.11.2021 09:10:30
Добрый день.
Прошу помощи со следующей задачей.
Есть массив данных. Который был измерен в течении 24 часов с шагом 3 замера в секунду.

Вопрос первый. Есть ли быстрый способ преобразить все точки в запятые? Файл зависает и закрывается спустя некоторое время. Приходилось выделать по одному столбцу и его преобразовывать. Очень много времени занимает. Для понимания масштаба, количество строк в файле около 250000

Вопрос второй. Мне необходимо получить средние показатели в некоторый период времени.
Я использую следующую формулу
=ОКРУГЛ(СРЗНАЧЕСЛИМН(D:D;$B:$B;">=07:00:00";$B:$B;"<=07:30:00");1)
Есть ли возможность не вводить время вручную как в примере моей формулы, а сослаться на нее? Допустим я хочу получить данные для каждых 10 минут, а не 30 как в примере моей формулы.
В ручную задолбаюсь вводить.  
 
Перейти    
Суммирование значений функций при известном наборе аргументов
 
#
19.10.2016 10:55:05
Здравствуйте.
Есть формула (H+1)*(L/0.6). Нужно из нее сделать сумму (H(i)+1)*(L(i)/0.6), где i изменяется от 1 до 10.
Я вижу решение в использовании функции "СУММПРОИЗВ", но не понимаю как реализовать.
Как к каждому элементу массива этой функции прибавить 1 (разделить на 0,6)?
 
Перейти    
Скрыть диапазон строк по значению ячейки перед скрываемым диапазоном, Упростить макрос
 
#
25.05.2016 10:52:59
Доброго времени.
Уважаемые знатоки, прошу у вас помощи в упрощении макроса, если такое возможно.
Код
Sub HideWorks()
    For i = 21 To 34 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 50 To 63 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 79 To 92 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 108 To 121 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 137 To 150 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 166 To 179 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 195 To 208 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 224 To 237 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 253 To 266 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 282 To 295 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 311 To 324 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 340 To 353 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 369 To 382 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 398 To 411 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
    For i = 427 To 440 Step 1
        If Cells(i, "c") = 0 Then Rows(i & ":" & (i + 1)).Hidden = True
    Next
End Sub
Заранее спасибо.
 
Перейти    
Изменить максрос "Вертикальный выпадающий список с мультивыбором"
 
#
18.05.2016 09:17:14
Здравствуйте.
Прочитал статью по выпадающим спискам с мультивыбором.
Теперь хочу реализовать этот метод, но с небольшим изменением.

Выпадающий список с мультивыбором должен ссылаться на другой выпадающий список (для обычных списков я использую функцию "ДВССЫЛ()").
Подскажите пожалуйста, что нужно изменить в макросе, чтобы получилось задуманное.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("C2:F2")) Is Nothing And Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        If Len(Target.Offset(1, 0)) = 0 Then
            Target.Offset(1, 0) = Target
        Else
            Target.End(xlDown).Offset(1, 0) = Target
        End If
        Target.ClearContents
        Application.EnableEvents = True
    End If
End Sub
Заранее спасибо.
 
Перейти    
Описание к личному шаблону
 
#
18.05.2016 04:21:06
Здравствуйте.

Существует ли возможность добавить описание к личному шаблону?
Описание примерно как в "рекомендованных" шаблонах, как например на рисунке ниже
Изменено: sgretski - 18.05.2016 09:02:58
 
Перейти    
Сумма Индексов
 
#
13.05.2016 10:14:35
Здравствуйте. Прошу помощи в упрощении формулы:
Код
= ИНДЕКС(Список;ПОИСКПОЗ(B8;Артикул!B:B;0);8)*C8 + 
ИНДЕКС(Список;ПОИСКПОЗ(B9;Артикул!B:B;0);8)*C9 + 
ИНДЕКС(Список;ПОИСКПОЗ(B10;Артикул!B:B;0);8)*C10 +
...
и т.д. до B99 и C 99  

Получается десятиэтажная формула, что не очень удобно для работы.
Заранее спасибо.
Изменено: sgretski - 13.05.2016 10:15:46
 
Перейти    
Четыре таблицы в одну
 
#
12.05.2016 05:51:06
Здравствуйте.
Наверно эта тема была уже не один раз.
Прошу помощи в создании сборной таблицы.
Есть несколько таблиц с данными, (|наименование| |Кол-во| .
Необходимо сформировать таблицу, которая будет содержать в себе все наименования исходных таблиц, а также считать кол-во.  
 
Перейти    
Подстановка промежуточных значений (координат) отрезка графика между заданными границами, формулировка условия
 
#
07.05.2016 15:06:53
Здравствуйте.
И вновь странные вопросы по работе в excel.
Пытаюсь выполнить автоматическое построение графика. Или автоматический расчет координат.
Суть. Выбираю материал и плотность.
Находятся значения координат точек В и С, как показано на рисунке.
Находятся координаты (Rв, fв) и (Rc, fc).
Эти координаты заносятся в таблицу, по формуле.
Далее необходимо повторить ход кривых, как показано на рисунке. Для отрезков AB и CD это вроде не сложно (пока еще не делал), а вот для отрезка ВС не знаю как задать условие.
Я знаю с каким шагом должен идти отрезок, я это вынес в отдельную табличку (строка A11).

Также беда в том, что координаты точек В и С зависят от материала, толщины и плотности. Это вы сможете понять, когда посмотрите файл.
Прошу вас о помощи. Самому не получается додуматься...

Заранее спасибо.
Изменено: sgretski - 07.05.2016 16:15:55
 
Перейти    
Содержание выпадающего списка, определяющееся по формуле
 
#
26.04.2016 09:15:04
Здравствуйте.
Попытаюсь объяснить задумку, которую хочу реализовать.

Есть таблица "РАСЧЕТ".
Выбираем из выпадающего списка тип корзины (Корзина1, Корзина2 или Корзина3).
На рисунке справа показана таблица , на которую ссылается выпадающий список. Диапазону ячеек присвоено имя Корзины
Идем дальше.
рис.1

При выборе типа корзины изменяется содержимое в таблице ниже (не рисунок ниже).  
Получается, что каждая корзина содержит разный набор продуктов.

На рисунке ниже, показана таблица с артикулами, продукты которых входят в состав этой корзины (все диапазоны артикулов проименованы).
Идем дальше.
рис.2

На рисунке ниже представлены 2 таблицы.
Первая - это список продуктов, которым присвоен свой артикул.
Вторая - расход продуктов для каждой корзины.
рис.3

Происходит следующее.
При выборе типа корзины первый столбец таблицы ниже определяет, что входит в состав этой корзины по артикулам и подставляет соответствующее имя.
Как это выглядит я попытался изобразить на рисунке ниже. (Надеюсь все понятно)
рис.4

Второй столбец определяет сколько продуктов находится в корзине по данным представлены в таблице с расходами.
рис.5

Внимание вопрос!))
Допустим я хочу, чтобы каждая позиция имела выпадающий список с сортом, как показано на рисунке ниже.
Но при этом, чтобы все также считалось, как я попытался описать выше.

рис.6

Может есть другие варианты решения?
Надеюсь на вашу помощь.
Делитесь своими мыслями по этому поводу, найдем решение вместе.
P.S. Формулы не писал, все они есть во вложенном файле
Изменено: sgretski - 26.04.2016 09:45:33
 
Перейти    
Вопрос по связанным выпадающим спискам
 
#
07.10.2015 04:00:02
Здравствуйте.
После просмотра урока по связанным выпадающим спискам сразу возник вопрос.

Возьмем все тот же пример, но добавим дополнительный столбец с количеством (см. рисунок).


Как подобное реализовать?  
 
Перейти    
Округление в заданном диапазоне и запись данных в этот диапазон
 
#
16.01.2015 03:59:31
Добрый день.
Постараюсь описать свою проблему.
1. Определяется по формулам некое значение1
2. Необходимо округлить значение1 для сопоставления с неизменяемым диапазоном данных в таблице
3. Определяется по формулам некое значение2
4. Значение2 необходимо записать в таблицу в соответствии со значением1
Как то так. На картинке понятнее.  


Изменено: sgretski - 16.01.2015 04:09:07
 
Перейти    
Страницы: 1
Наверх