Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
MACROS вставки формулы в активную ячейку
 
Всем привет!
Друзья стоит простая задача, сделать хоткей-макрос, который будет вносить простую формулу в активную ячейку.
Формула простая =subtotal(9,G3:G100000).
Проблема в том, что активная ячейка каждый раз будет из разного столбца. То есть, если активная ячейка А1, то формула должна быть =subtotal(9,А3:А100000),
если активная B1, то формула должна быть =subtotal(9,B3:B100000), если активна С1, то и формула должна быть с колонкой С, то есть =subtotal(9,С3:С100000).
Диапозон всегда можно фиксированный с 3 по 100000 ячейку, а вот столбец всегда меняется в зависимости от активной ячейки.

Когда в ВБА пытаюсь объявить переменную как ActiveCell, он естественно выдает ошибку. Идея была примерно такая:
Код
Dim x as Range
x = ActiveCell
ActiveCell.Formula ("=subtotal(9,"x3:x100000")

Ну примерно в таком стиле. Возможно, есть альтернативный путь решения поставленной задачи. Пожалуйста, подскажите. Спасибо всем заранее.
З.Ы. гуглил, форум листал, ответа не нашел. :(
 
вносите формулу в формате R1C1    .formulaR1C1 = "= .... " ну и относительные ссылки пропишите. если конечно не лень можно определять имя столбца и номер строки  через activecell.address и формировать формулу исходя из ответа.

За одно над названием темы подумайте.
 
Цитата
Paul Zealand написал:
гуглил, форум листал, ответа не нашел
А можно было "спросить" у своего Excel - записать вставку формулы макрорекордером. В формуле лучше указать абсолютную ссылку на строки: =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;C$3:C$100000)
 
Код
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[100002]C)"
Неизлечимых болезней нет, есть неизлечимые люди.
 
спасибо
Изменено: Paul Zealand - 15 Мар 2018 18:36:54
 
Цитата
спасибо
Изменено: Paul Zealand - 15 Мар 2018 18:37:40
 
Цитата
TheBestOfTheBest написал:
1ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[2]C:R[100002]C)"
Спасибо. Работает идеально как надо ))
Страницы: 1
Читают тему (гостей: 1)
Наверх