Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Замена массива формул работой макроса - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена массива формул работой макроса (Макросы/Sub)
Замена массива формул работой макроса
Korobkow Дата: Среда, 01.10.2014, 22:09 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Многоуважаемые знатоки EXCEL !!!
Столкнулся тут с проблемой утяжеления книги. Липил липил свой файл и вот не задача тяжеловат получился. Оказыватся много раз повторяющаяся формула очень сильно тормозит выполнение макроса. Объяснять очень трудно и долго вот Удалено. Нарушение Правил форума
Синий столбец F и есть тот самый тормоз если формулу удалить КНОПКА ЗАПОЛНИТЬ работает быстро. Суть в том чтобы работу формулы
Код
=ЕСЛИ(ЕОШИБКА(ВПР(E6;СМЕЩ(Нормы!$B$2;ПОИСКПОЗ(C6;Нормы!$B:$B;0)-2;2;СЧЁТЕСЛИ(Нормы!$B:$B;C6);11);7;0));0;ВПР(E6;СМЕЩ(Нормы!$B$2;ПОИСКПОЗ(C6;Нормы!$B:$B;0)-2;2;СЧЁТЕСЛИ(Нормы!$B:$B;C6);11);7;0))

заменить работой макроса.
 
Ответить
СообщениеМногоуважаемые знатоки EXCEL !!!
Столкнулся тут с проблемой утяжеления книги. Липил липил свой файл и вот не задача тяжеловат получился. Оказыватся много раз повторяющаяся формула очень сильно тормозит выполнение макроса. Объяснять очень трудно и долго вот Удалено. Нарушение Правил форума
Синий столбец F и есть тот самый тормоз если формулу удалить КНОПКА ЗАПОЛНИТЬ работает быстро. Суть в том чтобы работу формулы
Код
=ЕСЛИ(ЕОШИБКА(ВПР(E6;СМЕЩ(Нормы!$B$2;ПОИСКПОЗ(C6;Нормы!$B:$B;0)-2;2;СЧЁТЕСЛИ(Нормы!$B:$B;C6);11);7;0));0;ВПР(E6;СМЕЩ(Нормы!$B$2;ПОИСКПОЗ(C6;Нормы!$B:$B;0)-2;2;СЧЁТЕСЛИ(Нормы!$B:$B;C6);11);7;0))

заменить работой макроса.
Автор - Korobkow
Дата добавления - 01.10.2014 в 22:09
wild_pig Дата: Четверг, 02.10.2014, 08:08 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 518
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Что формула делает?
 
Ответить
СообщениеЧто формула делает?
Автор - wild_pig
Дата добавления - 02.10.2014 в 08:08
Korobkow Дата: Четверг, 02.10.2014, 09:02 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Формула ищет данные по двум критериям со смещением
 
Ответить
СообщениеФормула ищет данные по двум критериям со смещением
Автор - Korobkow
Дата добавления - 02.10.2014 в 09:02
Korobkow Дата: Четверг, 02.10.2014, 12:07 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Мда сегодня Чип и Дейл не спашат на помощь :(
Ещё немного подожду если тут добровольцев нет то придётся разместить проблему на других подобных страничках а как бы не хотелось,
ГУРУ ВЫ ГДЕ %)


Сообщение отредактировал Korobkow - Четверг, 02.10.2014, 12:11
 
Ответить
СообщениеМда сегодня Чип и Дейл не спашат на помощь :(
Ещё немного подожду если тут добровольцев нет то придётся разместить проблему на других подобных страничках а как бы не хотелось,
ГУРУ ВЫ ГДЕ %)
Автор - Korobkow
Дата добавления - 02.10.2014 в 12:07
RAN Дата: Четверг, 02.10.2014, 12:16 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Вопрос
Цитата wild_pig, 02.10.2014 в 08:08, в сообщении № 2
Что формула делает?

Ответ
Цитата Korobkow, 02.10.2014 в 09:02, в сообщении № 3
Формула ищет данные по двум критериям со смещением

Каков ответ, таково и решение.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВопрос
Цитата wild_pig, 02.10.2014 в 08:08, в сообщении № 2
Что формула делает?

Ответ
Цитата Korobkow, 02.10.2014 в 09:02, в сообщении № 3
Формула ищет данные по двум критериям со смещением

Каков ответ, таково и решение.
Автор - RAN
Дата добавления - 02.10.2014 в 12:16
Korobkow Дата: Четверг, 02.10.2014, 16:12 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
если скачать и открыть файл то сразу будет видно что происходит в столбце "F" если убрать красоту, то формула выгдядит вот так
Код

=ВПР(E6;СМЕЩ(Нормы!$B$2;ПОИСКПОЗ(C6;Нормы!$B:$B;0)-2;2;СЧЁТЕСЛИ(Нормы!$B:$B;C6);11);7;0)

ну тут мне начинающему немного понятно, что просходит. Я уж незнаю как более подробно описать


Сообщение отредактировал Korobkow - Четверг, 02.10.2014, 16:13
 
Ответить
Сообщениеесли скачать и открыть файл то сразу будет видно что происходит в столбце "F" если убрать красоту, то формула выгдядит вот так
Код

=ВПР(E6;СМЕЩ(Нормы!$B$2;ПОИСКПОЗ(C6;Нормы!$B:$B;0)-2;2;СЧЁТЕСЛИ(Нормы!$B:$B;C6);11);7;0)

ну тут мне начинающему немного понятно, что просходит. Я уж незнаю как более подробно описать
Автор - Korobkow
Дата добавления - 02.10.2014 в 16:12
Pelena Дата: Четверг, 02.10.2014, 16:22 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19572
Репутация: 4646 ±
Замечаний: ±

Excel 365 & Mac Excel
Korobkow, прочитайте Правила форума, создайте небольшой файл-пример и прикрепите его к сообщению. Внешние ссылки на форуме запрещены

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеKorobkow, прочитайте Правила форума, создайте небольшой файл-пример и прикрепите его к сообщению. Внешние ссылки на форуме запрещены
Автор - Pelena
Дата добавления - 02.10.2014 в 16:22
Korobkow Дата: Четверг, 02.10.2014, 16:39 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Укоротил как смог
К сообщению приложен файл: ___2014_.xlsm (54.1 Kb)
 
Ответить
СообщениеУкоротил как смог
Автор - Korobkow
Дата добавления - 02.10.2014 в 16:39
RAN Дата: Четверг, 02.10.2014, 17:14 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Отключить пересчет на каждый чих
[vba]
Код
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
[/vba]

Включить пересчет
[vba]
Код
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеОтключить пересчет на каждый чих
[vba]
Код
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
[/vba]

Включить пересчет
[vba]
Код
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
[/vba]
Автор - RAN
Дата добавления - 02.10.2014 в 17:14
Korobkow Дата: Четверг, 02.10.2014, 22:38 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Отлично расчет окончен, по этой теме, но документ ещё сырой спасибо за подсказки.


Сообщение отредактировал Korobkow - Четверг, 02.10.2014, 23:05
 
Ответить
СообщениеОтлично расчет окончен, по этой теме, но документ ещё сырой спасибо за подсказки.
Автор - Korobkow
Дата добавления - 02.10.2014 в 22:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена массива формул работой макроса (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!