Как вставить сумму выделенных ячеек в другую ячейку
Я получила убедительное письмо, что автоматизация нужна именно в этом случае – сумму уже выделенных ячеек как-нибудь скопировать и вставить в другую ячейку.
Писать формулу потом не годится, даже если ячейки как-нибудь маркировать. А вот скопировать суммарное значение, которое мы привыкли видеть в строке состояния (нижний правый угол файла) стандартными способами не получается.
Решение задачи
Поэтому скачайте мой файл и при открытии не забудьте включить макросы кнопкой Включить содержимое (в старых версия на голубой полосе кнопка Параметры, а далее в окошке выберите Включить содержимое).
Разместите в нём свои листы с рабочими таблицами (все мои листы можно удалить, файл назовите любым удобным именем, только оставьте расширение .xlsx), выберите нужные ячейки, нажмите CTRL+ц, далее в появившемся окне укажите ячейку для вставки суммы (это может быть и другой лист) и ОК.
Готово.
Заглянем под капот? ))
В моём файле нажмите ALT+F11, двойным щелчком перейдите в модуль и полюбуйтесь кодом макроса – всего 4 строки 😊
Код макроса полностью
Sub Copy_Selection() ss = Application.WorksheetFunction.Sum(Selection) 'считаем сумму по выделенному Dim rng As Range 'переменная ячейка для результата Set rng = Application.InputBox("Выберите ячейку для вставки суммы выделенных", Type:=8) rng = ss 'вписываем в ячейку сумму выделенных End Sub
Заметили, что получилось в этом макросе? – Компактное решение рутинной задачи.
Макросы – это Excel по нашим правилам. Далеко не всегда макросы состоят из десятков или сотен строк кода. Иногда это 2-х минутные затраты, а экономия времени несопоставимая.
Да, это высший пилотаж. И он доступен любому уверенному пользователю Excel, хорошо знакомому с ВПР, ЕСЛИ, $$ ссылками и любившему в детстве собирать конструктор или пазлы ))