Макрос пересчитывающий значение

Вход

Регистрация

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

= Мир MS Excel/Макрос пересчитывающий значение - Мир MS Excel

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

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

Макрос пересчитывающий значение

Elena89

Дата: Пятница, 20.04.2012, 12:38 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

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

Замечаний: 0% ±

Доброе утро!!!У меня вот такая проблемка!У меня есть 2 таблицы:1 создана с помощью ввода данных,а вторая считается автоматически с помощью втроенной функции "поиск решения".Вы бы мне не помогли создать такой макрос который бы при изменении данных в первой таблице пересчитывал бы значения во 2 без повторного запуска "поиск решения"Заранее благодарна!!!

К сообщению приложен файл: 3837328.xlsx (12.7 Kb)

Ответить

Jhonson

Дата: Пятница, 20.04.2012, 13:56 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

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

Замечаний: 0% ±

Если я Вас правильно понял.
В модуль листа:
[vba]

Code

Private Sub Worksheet_Change(ByVal Target As Range)
SolverOk SetCell:="$A$12", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$7:$F$9"
SolverSolve True
End Sub

[/vba]

Для того чтобы макрос работал необходимо включит Solver в Tools - References
Пересчет будет выполняться при любом изменении на листе.

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Пятница, 20.04.2012, 14:00

Ответить

Макрос пересчитывающий значение

Страница 1 из 1
1