Страницы: 1
RSS
Пересчет формул перед печатью каждой копии
 
Есть таблица в которой в определенных ячейках пересчитываются значения, например по F9. Таблица на одной странице.

Задача - распечатать 50 (например) копий (страниц) этой таблицы, но формулы должны пересчитываться каждый раз.  То есть перед печатью каждой копии, должно эмулироваться нажатие F9. Просьба, помочь с решением.

Был вопрос в 2009, но ответа там по моему нет: https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=9921&amp...

Спасибо.
 
rybacot,
может так?
Код
Sub aaa()
    For i = 1 To 50
        Calculate
        ActiveSheet.PrintOut
    Next i
End Sub
 
Не могут копии отличаться, не могут. Если они отличаются то это не копии, а отдельные экземпляры.

DoEvents после Calculate
По вопросам из тем форума, личку не читаю.
 
Спасибо. Вопросы. Я правильно понял это надо вставить в код листа? Или макросом? Надо нажимать печать и выставлять количество копий?
 
rybacot,
в код модуля, вешаете на кнопку и запускаете.

для изучения:
https://www.planetaexcel.ru/techniques/3/59/
Изменено: evgeniygeo - 17.05.2024 11:01:47
 
Цитата
evgeniygeo: Calculate
помню, когда-то, по непонятным причинам, Calculate вызывал ошибку. С тех пор пользуюсь более явным Application.Calculate
Также, нелишним будет напомнить, что есть и другие:

Цитата
БМВ: DoEvents после Calculate
зачем? Я не использую в таких случаях.
    Вообще DoEvents я использую только в циклах, которые могут зависнуть (чтобы иметь возможность аварийно отменить выполнение кода) или для отображения Application.StatusBar (вместе с Application.ScreenUpdating = True)
Изменено: Jack Famous - 17.05.2024 11:47:53
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
evgeniygeo, благодарю, работает. И DoEvents вроде бы не нужен, пересчитывает и так.

А можно добавить запрос на количества копий, чтобы не менять каждый раз код?
И еще вопрос-пожелание, можно ли добавить настройку двусторонней печати?
 
Цитата
Jack Famous написал:
С тех пор пользуюсь более явным Application.Calculate
а я зачем то всегда сокращаю)
Цитата
rybacot написал:
А можно добавить запрос на количества копий, чтобы не менять каждый раз код?
прочитайте здесь:
https://vremya-ne-zhdet.ru/vba-excel/funktsiya-inputbox-parametry/
Цитата
rybacot написал:
И еще вопрос-пожелание, можно ли добавить настройку двусторонней печати?
боюсь, что только с не хилыми танцами с бубном можно сделать
вариант: https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=159531&TITLE_SEO=159531-makros-dlya-dvustoronney-pechati-v2-_&MID=1264207&tags=&q=%D0%B4%D0%B2%D1%83%D1%85%D1%81%D1%82%D0%BE%D1%80%D0%BE%D0%­BD%D0%BD%D1%8F%D1%8F+%D0%BF%D0%B5%D1%87%D0%B0%D1%82%D1%8C&FORUM_ID%5B0%5D=0&DATE_CHANGE=0&order=date&s=%D0%9D%D0%B0%D0%B9%D1%82%D0%B8#message1264207
Изменено: evgeniygeo - 17.05.2024 12:19:31
 
Цитата
Jack Famous написал:
зачем? Я не использую в таких случаях.
чтоб пересчитало на 100%
По вопросам из тем форума, личку не читаю.
 
Цитата
БМВ: чтоб пересчитало на 100%
а как это связано? За пересчёт же отвечает Calculate.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Цитата
Jack Famous написал:
За пересчёт же отвечает Calculate.
за запуск, но не за результат. Для гарантии я б передал управление приложению на момент.
По вопросам из тем форума, личку не читаю.
 
БМВ, я ни разу не сталкивался с неполадками в этой части. А ты?
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Jack Famous, я утром воспроизвел, может совпало, но простой генераьор случайного двпжды вывел одно и тоже.
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх