Маскировка вычислений формул в ячейках

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир 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 (24.5 Kb)

Сообщение отредактировал kold777 - Пятница, 21.07.2017, 11:28

Ответить

_Boroda_

Дата: Пятница, 21.07.2017, 11:30 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 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 (34.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995