Не выделять ячейки при записи формулы

Пользователь

Сообщений: 2 Регистрация: 18.07.2019

24.07.2019 08:09:49

Добрый день , есть простая формула, как после её запуска сделать так , чтобы не выделялись ячейки.

Код
Sub Пример() Sheets("Лист1").Select Range("C5:Y5").Select Selection.Formula = "=($D2/$A2)*C4" End Sub

Пользователь

Сообщений: 1201 Регистрация: 16.03.2016

24.07.2019 08:13:23

Код
Sub Пример() Sheets("Лист1").Range("C5:Y5").Formula = "=($D2/$A2)*C4" End Sub

sergeiz Пользователь Сообщений: 2 Регистрация: 18.07.2019	#3 24.07.2019 08:18:29 Спасибо работает. Изменено: sergeiz - 24.07.2019 08:18:50