Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2018, 16:10   #1
Astery
Новичок
Джуниор
 
Регистрация: 18.12.2018
Сообщений: 2
По умолчанию Помогите, пожалуйста, с оформлением переменной в формуле

Добрый вечер)
Столкнулась с такой проблемой: есть две ячейки в таблице(обозначила как переменную 1 и переменную 2). Мне нужно подбить итог по формуле итог=2-1
Вот кусок кода
Код:
Cells.Find(What:="Всего с к=0,8", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        
        ActiveCell.Offset(1, 7).Activate
        Set Pervoe = ActiveCell
        
        
        Cells.Find(What:="Сумма изменений", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Offset(-1, 7).Activate
        
        Set Vtoroe = ActiveCell
        
        
        Cells.Find(What:="Сумма изменений", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Offset(1, 7).Activate
        ActiveCell.Formula = Vtoroe - Pervoe
Проблема в том что в ячейке итого оказывается значение, а мне нужна там формула. Неделю билась, толку ноль:DD
Помогите, пожалуйста:DD

Последний раз редактировалось Astery; 18.12.2018 в 16:33.
Astery вне форума Ответить с цитированием
Старый 18.12.2018, 23:45   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Код:
ActiveCell.Formula = "=" & Vtoroe.address & "-" & Pervoe.address
Лучше избавиться от Activate, Activecell: http://www.sql.ru/faq/faq_topic.aspx?fid=4344
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 19.12.2018, 08:24   #3
Astery
Новичок
Джуниор
 
Регистрация: 18.12.2018
Сообщений: 2
По умолчанию

Спасибо огромное, все работает:DD попробую разобраться с Activecell:D
Спасибо большое:DD
Astery вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с оформлением ТТН Sergey2018 Microsoft Office Excel 1 31.10.2017 17:04
Помогите, пожалуйста, разработать программу подсчета количества двоичных нулей в двухбайтовой переменной на ассемблере. 123445556776578 Помощь студентам 7 25.12.2013 01:53
Как посчитать по формуле, содержащейся в переменной? rrr135 Помощь студентам 2 04.01.2011 17:23
Помогите с оформлением процедуры Absent Помощь студентам 2 01.12.2007 18:33