Раскройте секрет в файле (найти формулу) - Microsoft Office Excel

Jon63 · 06.10.2007, 13:11

Здраствуйте помогите пожалуйста разорбраться и выявить чудесную формулу в строках 156 первого листа, которая записывает в ячейку значение, причем в самой ячейке формула на прописана?

Pavel55 · 06.10.2007, 14:18

У вас же там макрос записан. Щёлкните правой клавишей мыши на ярлычке листа "Расчёт" и в контекстном меню выберите "Исходный текст", там увидите код макроса

Код:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Abs(Range("E130").Value) > 0.2 Then Range("E130").GoalSeek Goal:=0, ChangingCell:=Range("E126")
    If Abs(Range("E147").Value) > 0.2 Then Range("E147").GoalSeek Goal:=0, ChangingCell:=Range("E143")
    If Abs(Range("E160").Value) > 0.2 Then Range("E160").GoalSeek Goal:=0, ChangingCell:=Range("E156")

' и т.д.
End Sub

Как видите из кода ваш макрос меняет ещё ячейки в строке 126, 143 и 156

Jon63 · 06.10.2007, 15:52

Ясно, но вот теперь узнать как же именно подсчитывается ячейки со строками 156, какие ячейки с данными используют при этом.

Pavel55 · 06.10.2007, 17:04

Я немного ошибся. По логике этого кода

Код:

If Abs(Range("E130").Value) > 0.2 Then Range("E130").GoalSeek Goal:=0, ChangingCell:=Range("E126")

Если значение в ячейки E130 больше 0,2, тогда подобрать значения в ячейки E130 равное 0 (нулю), изменяя ячейку E126.

GoalSeek - это тоже самое, что меню Сервис-Подбор параметра...

Вроде так. Если не прав, Pashulka поправит )

06.10.2007, 14:18	#2
Pavel55 Форумчанин Регистрация: 21.08.2007 Сообщений: 292	У вас же там макрос записан. Щёлкните правой клавишей мыши на ярлычке листа "Расчёт" и в контекстном меню выберите "Исходный текст", там увидите код макроса Код: `Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Abs(Range("E130").Value) > 0.2 Then Range("E130").GoalSeek Goal:=0, ChangingCell:=Range("E126") If Abs(Range("E147").Value) > 0.2 Then Range("E147").GoalSeek Goal:=0, ChangingCell:=Range("E143") If Abs(Range("E160").Value) > 0.2 Then Range("E160").GoalSeek Goal:=0, ChangingCell:=Range("E156") ' и т.д. End Sub` Как видите из кода ваш макрос меняет ещё ячейки в строке 126, 143 и 156 Последний раз редактировалось Pavel55; 06.10.2007 в 14:21.

06.10.2007, 17:04	#4
Pavel55 Форумчанин Регистрация: 21.08.2007 Сообщений: 292	Я немного ошибся. По логике этого кода Код: `If Abs(Range("E130").Value) > 0.2 Then Range("E130").GoalSeek Goal:=0, ChangingCell:=Range("E126")` Если значение в ячейки E130 больше 0,2, тогда подобрать значения в ячейки E130 равное 0 (нулю), изменяя ячейку E126. GoalSeek - это тоже самое, что меню Сервис-Подбор параметра... Вроде так. Если не прав, Pashulka поправит ) Последний раз редактировалось Pavel55; 06.10.2007 в 17:07.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите найти формулу	ALEXEI_76	Microsoft Office Excel	10	29.04.2008 22:52
как вычислить формулу?	Sergeus	Microsoft Office Excel	2	26.02.2008 23:56
Формулу в цикл	Iren	Microsoft Office Excel	4	23.10.2007 10:47
Подскажите формулу	Сильванович Михаил	Помощь студентам	3	17.07.2007 13:17

06.10.2007, 15:52	#3
Jon63 Новичок Джуниор Регистрация: 06.10.2007 Сообщений: 2	Ясно, но вот теперь узнать как же именно подсчитывается ячейки со строками 156, какие ячейки с данными используют при этом.