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

Страницы: 1 2 След.
Макрос с переносом данных и предварительными вычислениями (цикл), Из одного файла нужно будет переносить данные, делать вычисления
 
А зачем вы новую тему создали по сути с тем же описанием ?

https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=152785&...
Сложный макрос с несколькими переносами данных и вычислениями, Из одного исходного файла нужно будет переносить данные, делать вычисления в ещё 3 файла
 
Вот это Вы, конечно, нагородили.
См. вложение - лист в макросе используется как шаблон и из него создается новый файл.
Макрос и файл Первый нужно разместить в одной папке.
Настройка верхнего блока меню
 
Вкладка Файл - пункт Параметры, в открывшемся окне пункт - Панель быстрого доступа и там стрелками справа можно перемещать команды.
Перенос среза, Перенос среза из сводной таблицы на другой лист
 
Можно же просто скопировать срез и вставить его на другой лист и он будет нормально работать.
Вычисление среднего значения по дням месяца
 
Сравниваем нужный нам месяц со всеми данными в таблице
На выходе получаем список значений - ИСТИНА, ЛОЖЬ, ИСТИНА и т.д.
Код
(МЕСЯЦ(L4)=МЕСЯЦ($R$3:$R$14)
Для получения списка суммы умножаем этот список на суммы
Код
МЕСЯЦ(L4)=МЕСЯЦ($R$3:$R$14))*$S$3:$S$14
На выходе получим список с суммой за нужный нам месяц, там где при проверке было ИСТИНА
После чего суммируем все значения и получаем суммы всего за месяц.
Код
СУММ((МЕСЯЦ(L4)=МЕСЯЦ($R$3:$R$14))*$S$3:$S$14)

Делаем аналогично для количества, но умножаем не на сумму, а на количество уникальных дат
Код
*1/СЧЁТЕСЛИ($R$3:$R$14;$R$3:$R$14))

Вы можете увидеть сам расчет, если зайдете в Формулы - Вычислить формулу
Изменено: Roman M - 05.10.2022 22:49:14
Вычисление среднего значения по дням месяца
 
Можно сделать как-то так.
Формула не считает значения ниже или равные 5, для значений до 5 включительно формула не работает, с 6 и до 24 формула работает
 
Более подробно про работу ВПР можно посмотреть здесь

https://www.planetaexcel.ru/techniques/25/106/
Формула не считает значения ниже или равные 5, для значений до 5 включительно формула не работает, с 6 и до 24 формула работает
 
У вас блок в формуле, который определяет скидки засунут в основой расчет и не будет учитываться если меньше 5.
Я переделал в таком виде - отдельно таблицу со стоимостью занятий и тогда формула будет проще и проще ее будет модифицировать, если стоимость будет меняться.
Создание фильтра на смежные умные таблицы, Добавление фильтра на умные таблицы друг под другом
 
Можно сделать с помощью макроса.
Как вариант см. во вложении.

Если без макроса, то можно в промежуточных.итогах брать на одну строку снизу больше чем есть в таблице, тогда добавление/удаление строк не должно влиять.
VBA - Поиск уникальных значений ячеек в одном столбце
 
Если там сильно больше 100 тыс. идущих после ***, то может быть быстрее на несколько секунд если переделать на коллекцию. Если там всего 120 тыс., то это вообще не проблема.
VBA - Поиск уникальных значений ячеек в одном столбце
 
См. вложение.
[VBA] Поиск и перенос уникальных данных
 
Ну в первом сообщении было наоборот )
Цитата
написал:
ВПР-ом подтянуть данные по "Статусу" и "Кол-ву поставщиков" из "Книги 1" в "Книгу 2" для всех существующих строк. Вставить как значения.

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

На открытие фала будет проверятся когда файл открывали с неправильным значением и сколько прошло времени, если больше чем нужно, то рабочие листы будут скрыты, если меньше или там стоит правильный код, то все будет работать как нужно.
Перед закрытием файла - будут скрываться все листы, кроме заглушки "Включите макросы или обратитесь к разработчику".

Но если пользователи знают макросы, то это не будет работать.
[VBA] Поиск и перенос уникальных данных
 
Если я правильно понял, то можно сделать вот так.

Поменяйте путь к файлу из которого планируете брать данные.
И сейчас для подсветки новых строк ИД красится в красный, но это только для тестирования.
Выскакивает окно сохранить, при обработке файла эксель, другим файлом!
 
Так разкомментируйте строку с .EnableEvents = False, чтобы не срабатывали события в проверяемых файлах перед закрытием.
Автоматическое создание таблицы из другой таблицы на основании условия, Требуется создать файл КС2 из ведомости договорной цены
 
Макросом как-то так. Лист шаблон не удалять.
Автоматическое заполнение двух таблиц из одной общей на основании условия
 
Просто через ВПР к ФИО в первом столбце. И можно не использовать формулы массива для подтягивании ФИО.
Автоматическое заполнение двух таблиц из одной общей на основании условия
 
Если правильно понял, то можно как-то так.
Подсчет количества дипломов 1, 2 и 3 степени
 
На пальцах формула работает по простой логике находит для каждого матча наименьший коэффициент и сравнивает со значение коэффициента команды. Если наименьшее значение совпадает со значением команды, то добавится место. Для вторых и третьих мест работает аналогично.
В целом формула работает также как и ваша, но немного короче.

Если будет увеличиваться и количество команд и количество игр, то можно сделать с помощью макросов. См. приложенный файл.
Макрос сработает по нажатию на кнопку "расчет".
Подсчет количества дипломов 1, 2 и 3 степени
 
БМВ, точно. Лишнее оставил, когда проверял без суммирования.
Подсчет количества дипломов 1, 2 и 3 степени
 
Ну формулу можно переделать в такой вид.
А вот если таблица будет сильно расширяться по количеству столбцов, то имеет смысл смотреть или в сторону макросов или в сторону power query.
При записывании макроса макрорекордером не отображается открытие файла Skript1.vbs
 
Для запуска vbs вам нужно в макросе Excel прописать
Код
    Dim ScriptObject As Object
     Set ScriptObject = CreateObject("Wscript.Shell")    

    Dim ScriptProgram As String
    ScriptProgram = "C:\windows\system32\wscript.exe"  


   Dim ScriptFile As String
    ScriptFile = Chr$(34) & "\\путь_к_файлу\файл.vbs" & Chr$(34) 'поменять на путь и файл
   
    ScriptObject.Run ScriptProgram & " " & ScriptFile , 1, True

Но можно и сразу из vba работать с САПом для этого код из записанного vbs, почти без изменения, переносится в vba.
Изменено: Roman M - 26.06.2022 21:25:37
КОРРЕЛяция с условием
 
У вас разный формат для месяца в исходных данных и в расчетной таблице.
Электронная таблица - чек лист., таблица эксель с проверкой вносимых данных и выводом окна подтверждения перед их вводом
 
Если я правильно понял, то можно сделать так.
Макрос выпадающего списка со скрытыми листами, Как сделать раскрывающий список с использованием скрытых листов
 
Если сильно ничего не переделывать, то можно вот так.
Поиск дублей (8 и B, O и 0, O и D)
 
Basement, написал в личку
Поиск дублей (8 и B, O и 0, O и D)
 
Можно сделать макросом см.вложение. Сделано для 3-х условий.
- человек путает O и D
- человек путает 8 и "B"
- человек путает цифру ноль и букву О
Power Pivot. На сколько месяцев хватит запасов, Расчет на сколько месяцев хватит запасов
 
Большое спасибо! Тема закрыта, все считает как нужно. Оказывается все достаточно просто, но я не туда пытался SUMMARIZE применить )
Power Pivot. На сколько месяцев хватит запасов, Расчет на сколько месяцев хватит запасов
 
А можно как-то в условие по поиску наименьшего месяца
Код
VAR monthWhenProdEnd =    MAX (
        MIN ( 'SIM'[Период расхода] );
        CALCULATE ( EOMONTH ( MAX ( 'SIM'[Период расхода] ); 1 ); 'SIM'[Остаток] >= 0 )
    )
вместо блока 'SIM'[Остаток] >= 0 прописать сумму по этому столбу? просто получается, что в целом по МР и Региону мне нужно считать сумму, чтобы получить наименьший месяц, а по факту получаю наибольший из всех. Приложил файл - с примером - в таблице Q-AC попытался подробнее расписать как должно получиться.
Перечитал почти все темы по нарастающему итогу, но так и не смог понять применимо ли к моей задаче :(
Если нельзя пойду перестраивать таблицу в вид подобный расчету, по идее в нем должно почти все работать...
Изменено: Roman M - 03.02.2022 15:55:01
Страницы: 1 2 След.
Наверх