Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 145 След.
Замена(ускорение) с помощью VBA формулы ВПР
 
Цитата
Hellmaster: вы предлагаете создать отдельный столбец с =поискпоз()
верно
Цитата
Hellmaster: а дальше работать со словарем?
хотя бы просто тянуть ИНДЕКСом со ссылкой на найденную позицию
Цитата
Hellmaster: Сортировки в обоих массивах сделаны до использования формул для меньшего кол-ва вхождений
я не вижу, что у вас там сделано, но на отсортированном массиве можно использовать дополнительные аргументы функций ВПР или ПОИСКПОЗ - тогда поиск будет практически мгновенным. То же справедливо и для VBA, но там дополнительно можно увеличить скорость за счёт грамотной логики
Изменено: Jack Famous - 17 Янв 2020 16:20:05
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Функция ближайший рабочий день на VBA
 
aequit, Вместо цикла по массиву праздников, загоняем список в словарь. Метод Exists позволит проверить наличие даты в словаре сильно быстрее. Можно пойти далее и держать словарь в памяти, чтобы не создавать его для каждого вызова функции - будет совсем круто
Цитата
Дмитрий(The_Prist) Щербаков: более userfriendly делать именно с возможностью указания диапазонов праздников
можно сделать этот аргумент-диапазон опциональным и, если он не указан, то использовать встроенный справочник, а если указан, то заменить/дополнить список. Типа компромисс. Но за каждый такой компромисс придётся расплачиваться скоростью…
Изменено: Jack Famous - 17 Янв 2020 14:49:43
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Замена(ускорение) с помощью VBA формулы ВПР
 
Hellmaster, здравствуйте!
В первую очередь, если вы тянете несколько столбцов из одной и той же строки, то сначала =ПОИСКПОЗ() ~ 95% времени, а потом =ИНДЕКС() для каждого столбца — ~ 5% времени. Именно об этом вам говорит БМВ

Далее нужно смотреть и сравнивать по скорости - это будет либо решение на словарях (скорее всего), либо (если уникальных ключей больше 100 тысяч), то сортировка массива с последующим бинарным поиском ключей по нему

В любом случае, стоит отказаться от макрофункции листа в пользу процедуры обработки внутри кода и вставки полученных значений на лист — ускорение тем более явное, чем больше вызовов функций  :idea:

В любом случае, прирост будет в десятки и сотни раз  ;)
Ссылка на мою тему с похожими задачами
Изменено: Jack Famous - 17 Янв 2020 14:52:33
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
[ Закрыто] Задать условие
 
ammeli, вам поможет функция =ЕСЛИ()
Изменено: Jack Famous - 17 Янв 2020 12:41:00
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Функция ближайший рабочий день на VBA
 
aequit, здравствуйте!
Если выкладываете код, то желательно размещать его не только в файле, но и в сообщении (сначала оформить тэгом <…> и под спойлер SP)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как обнулить (не отключить) накопленные события книги
 
Дмитрий(The_Prist) Щербаков, ничего не мешает, но у меня и так ручной пересчёт стоит по-умолчанию для всей книги  :D
В модуле книги в #1 как раз видно, что при открытии книги он выставляется…
Изменено: Jack Famous - 16 Янв 2020 10:02:09
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как обнулить (не отключить) накопленные события книги
 
Цитата
БМВ: делайте расчет диапазонов по вашему плану, а не пересчитывайте всю книгу — вы же знаете зависимости
да, но тогда придётся для пересчёта делать кнопки на каждом листе, а я хочу, чтобы пользователь по привычному F9 (на самом деле Alt+2, т.к. пересчёт я всем вынес второй кнопкой на ПБД) всё делал. Просто если раньше это был обычный пересчёт, то теперь к нему добавятся макро-аналоги, но для пользователя ничего не изменится…
Иными словами, мне важно именно калькуляцию перехватить и "дополнить" своими действиями. В принципе, костыль пока вполне устраивает  :)
Изменено: Jack Famous - 16 Янв 2020 09:57:40
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как обнулить (не отключить) накопленные события книги
 
Цитата
Alemox: Скорее всего в исходном файле у вас 7 и более листов, формулы, которых пересекаются между собой
не в бровь, а в глаз! Браво!  :idea:
Тест показал, что дело именно в этом:
Тест
прервать цикл по всем связанным листам, кроме как костылём типа моего нельзя?
Изменено: Jack Famous - 16 Янв 2020 09:50:42
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как обнулить (не отключить) накопленные события книги
 
Причина не найдена, но найден вот такой костыль:
Запоминаем время и выходим, если прошло меньше секунды с последнего запуска
Мониторинг (см. скрин) выявил, что в процессе работы макросов события нигде не включаются, зато он ещё целых 7 (!!!) раз пытается запустить событие  8-0

Из выше описанного следует, что моё утверждение
Цитата
Jack Famous в #1: Application.EnableEvents=True не просто включает обработку событий, но и запускает пересчёт, тем самым образуя цикл
не верно и проблема где-то ещё…
Изменено: Jack Famous - 15 Янв 2020 18:07:10
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как обнулить (не отключить) накопленные события книги
 
Доброго времени суток, Планетяне!

Есть книга, в которой я хочу на событие книги Пересчёт листа (Private Sub Workbook_SheetCalculate) повесить запуск своего макроса.
В этом макросе присутствуют пересчёты книги Application.Calculate и, чтобы они снова не вызывали событие в цикле, я отключаю их с помощью Application.EnableEvents=False. Вроде всё логично…
В тестовом файле «Событие пересчёта» воспроизведённый случай отработал без проблем:
Проблема в том, что в рабочем файле (сюда скинуть не могу) он работает по-другому, а именно, после включения событий обратно (Application.EnableEvents=True), он не просто их (события) включает, но и запускает, тем самым образуя цикл…
Модуль книги с событием
Модуль с аналогами функций листа на макросах (ВПР и СУММЕСЛИ)
Модуль с функциями для заполнения диапазонов листа (FILE_TableFill_All)
Модуль с функциями проверки таблиц (FILE_TableCheck_All)
Пробовал и DoEvents и выход по флагам, как костыль — всё без толку  :(
Есть идеи?
Изменено: Jack Famous - 15 Янв 2020 16:23:49
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Работа с буфером обмена данных VBA Excel как с массивом
 
alexuspehov, сделайте файл-пример с демонстрацией "как есть" и "как надо" — помогать проще будет  ;)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
HB
 
Присоединяюсь! Успехов во всех благих начинаниях  :idea:
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Учёт показаний приборов. Тонометр (верхнее давление, нижнее давление и пульс)
 
Цитата
vikttur: три величины над таблицей в одну строку
да пофиг - я туда (на отдельный лист) и вычисление среднего вынес, чтобы для каждой ячейки не считалось. Может ещё что добавится…
Цитата
vikttur: шапка таблицы закреплена
столбцов для заполнения всего 5, да и в умных и так некоторое подобие "закрепления" (названия полей вместо букв столбцов) присутствует
Изменено: Jack Famous - 14 Янв 2020 17:48:56
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Учёт показаний приборов. Тонометр (верхнее давление, нижнее давление и пульс)
 
Цитата
vikttur: Пора прекращать бегать
разумеется, я про состояние покоя (который нам только снится)  :)
Цитата
БМВ: низкий тоже не очень
гармония)))
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Учёт показаний приборов. Тонометр (верхнее давление, нижнее давление и пульс)
 
Цитата
БМВ: Это тебе ТСы умереть не дают, хотя что ты, я давно в состоянии покоя
скорее наоборот — при постоянном высоком ритме сердце изнашивается, а перед смертью пульс вообще порядка 160 уд./мин
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Учёт показаний приборов. Тонометр (верхнее давление, нижнее давление и пульс)
 
Цитата
vikttur: контрольные значение правильнее вынести в настройки
думал об этом, но не хотел ради трёх ячеек лист делать. Поправил  ;)
Цитата
vikttur: У меня норма 58-64, а 72 - это когда тема неправильно названа
:D надеюсь, вы не про эту, а в общем
Изменено: Jack Famous - 14 Янв 2020 15:33:48
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Учёт показаний приборов. Тонометр (верхнее давление, нижнее давление и пульс)
 
БМВ, зачем часы, когда есть Excel?  :D
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Учёт показаний приборов. Тонометр (верхнее давление, нижнее давление и пульс)
 
Доброго времени суток, Планетяне!

Порядок действий:
  0. ввести вручную на листе "НАСТРОЙКИ" контрольные (оптимальные) значения для измерения отклонений.
Достаточно сделать ОДИН раз — при первом запуске.
  1. ввести вручную дату в столбец "B"
  2. выбрать из списка период ("1-утро", "2-день" или "3-вечер") в столбце "C"
  3. заполнить вручную столбцы "D", "E" и "F"  в соответствиями с показаниями тонометра

График на отдельном листе диаграммы построится автоматически
В таблице подсвечиваются абсолютные отклонения (по модулю). Чем краснее - тем хуже

Пользуйтесь на здоровье!  :)
Изменено: Jack Famous - 14 Янв 2020 16:56:01
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Зеркальное отображение информации, Нужна помощь профессионалов
 
Обновил #5 с учётом варианта от БМВ из #13
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Делимся..., разным
 
Цитата
Alemox: глобальное обновление системы будет выходить один раз в год
вот это очень понравилось
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Зеркальное отображение информации, Нужна помощь профессионалов
 
Цитата
БМВ: копия то так себе
ТС молчит + "вылизывать" мне неохота
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Зеркальное отображение информации, Нужна помощь профессионалов
 
Цитата
Allspace: И если не секрет - Вы с помощью макроса это делали? и если да - кодом не поделитесь? На будущее...)
если вы мне, то код под спойлером в сообщении и внутри файла
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Зеркальное отображение информации, Нужна помощь профессионалов
 
Allspace, пробуйте
Запустить на листе, который хотите «отзеркалить»
Поячеечное копирование работает долго - у меня 15 тыс. ячеек примера обрабатывались 80 секунд
UPD с учётом #13
время выполнения: 81 секунда (+1 сек в сравнении с предыдущим вариантом)
Изменено: Jack Famous - 14 Янв 2020 09:35:06
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Парсинг сайтов с помощью Excel
 
Цитата
XDS: Я всё сказал
:D
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Зеркальное отображение информации, Нужна помощь профессионалов
 
Allspace, здравствуйте!
Покажите (ручками) в файле-примере с листами "как есть" и "как надо"

P.S.: код оформите кнопкой <…> на панели
Изменено: Jack Famous - 13 Янв 2020 16:30:31
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Проверка на соответствие строк из одного массива в другом массиве., Проверка на соответствие строк из одного массива в другом массиве.
 
БТР, здравствуйте!
Файл-пример с листами, "как есть" и "как надо" сильно бы помог
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Курс межбанка, Добавить функцию курса межбанка
 
lobaty, чем раздувать общую для всех надстройку узкоспециализированными функциями, разместите ТЗ в разделе Работа и вам сделают крутой инструмент для работы с разными источниками курсов валют. А если не лень самому разобраться, то в бесплатной ветке создайте тему  ;)
Изменено: Jack Famous - 13 Янв 2020 11:21:05
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Создать макрос по определенным действиям.
 
А я полностью согласен с vikttur хотя бы потому, что данные "помогатели" вредят репутации ресурса

ТСам довольно часто  всеравно, кто исполнитель, как и этому — "главное, чтобы работа была сделана"…
А потом они получают какой-то треш вместо хорошей программы, либо их банально кидают — и начинаются жалобы в духе "форум-отсттой, делать нихрена не умеют"…
Либо просто у человека желание отпадает решать проблему в Excel

А в правилах у нас я бы немало поменял  ;)
Изменено: Jack Famous - 13 Янв 2020 11:48:40
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Семинары по Excel
 
Yum, здравствуйте!
На данном сайте есть огромная коллекция видеоуроков (Приёмы) по самым различным задачам MS Excel, кроме того, прекрасно функционирует форум, где вы (при соблюдении правил) можете очень оперативно получить помощь по своему вопросу.

Конкретно по семинарам Сергея Ожиганова я ничего не знаю
Изменено: Jack Famous - 13 Янв 2020 11:09:24
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
С Новым 2020 годом!
 
С наступившим, Николай Владимирович!  :idea:
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 145 След.
Наверх