Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Маскировка вычислений формул в ячейках - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Маскировка вычислений формул в ячейках (Макросы/Sub)
Маскировка вычислений формул в ячейках
kold777 Дата: Пятница, 21.07.2017, 11:16 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Подскажите пожалуйста, можно ли сделать как-нибудь чтобы в на основном листе, например, считала формула
Код
I14=I13*I9*I8*I7*I6

а программка в VBA автоматически считала по другой формуле
Код
I14=I13*I9*I8*I7


в ячейке I14 должна быть показана формула
Код
=I13*I9*I8*I7*I6


либо если так нельзя сделать, то можно ли в VBA прописать, что если значение ячейки I6 отличается от единицы, тогда принять значение в формуле
Код
I14=I13*I9*I8*I7*I6
принять значение I6=1

Если так не сделать, получается очень большая погрешность расчета, нет возможности убедить в этом принимающую сторону
К сообщению приложен файл: 0066850.xls(24Kb)


Сообщение отредактировал kold777 - Пятница, 21.07.2017, 11:28
 
Ответить
СообщениеДобрый день!
Подскажите пожалуйста, можно ли сделать как-нибудь чтобы в на основном листе, например, считала формула
Код
I14=I13*I9*I8*I7*I6

а программка в VBA автоматически считала по другой формуле
Код
I14=I13*I9*I8*I7


в ячейке I14 должна быть показана формула
Код
=I13*I9*I8*I7*I6


либо если так нельзя сделать, то можно ли в VBA прописать, что если значение ячейки I6 отличается от единицы, тогда принять значение в формуле
Код
I14=I13*I9*I8*I7*I6
принять значение I6=1

Если так не сделать, получается очень большая погрешность расчета, нет возможности убедить в этом принимающую сторону

Автор - kold777
Дата добавления - 21.07.2017 в 11:16
_Boroda_ Дата: Пятница, 21.07.2017, 11:30 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11512
Репутация: 4736 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    n_ = Format(Range("I13") * Range("I9") * Range("I8") * Range("I7"), "0.00000")
    Range("I14").NumberFormat = """" & n_ & """"
End Sub
[/vba]
К сообщению приложен файл: 0066850_1.xls(34Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    n_ = Format(Range("I13") * Range("I9") * Range("I8") * Range("I7"), "0.00000")
    Range("I14").NumberFormat = """" & n_ & """"
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 21.07.2017 в 11:30
kold777 Дата: Пятница, 21.07.2017, 11:32 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Да. Спасибо большое!
 
Ответить
СообщениеДа. Спасибо большое!

Автор - kold777
Дата добавления - 21.07.2017 в 11:32
Pelena Дата: Пятница, 21.07.2017, 14:27 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11597
Репутация: 2572 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
[offtop]
Так нужно?

Вот у кого всегда факт сходится с планом :D [/offtop]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение[offtop]
Так нужно?

Вот у кого всегда факт сходится с планом :D [/offtop]

Автор - Pelena
Дата добавления - 21.07.2017 в 14:27
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Маскировка вычислений формул в ячейках (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!