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

Вход

Регистрация

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

 

= Мир 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)
 
Ответить
СообщениеДоброе утро!!!У меня вот такая проблемка!У меня есть 2 таблицы:1 создана с помощью ввода данных,а вторая считается автоматически с помощью втроенной функции "поиск решения".Вы бы мне не помогли создать такой макрос который бы при изменении данных в первой таблице пересчитывал бы значения во 2 без повторного запуска "поиск решения"Заранее благодарна!!!

Автор - Elena89
Дата добавления - 20.04.2012 в 12:38
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
 
Ответить
СообщениеЕсли я Вас правильно понял.
В модуль листа:
[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 в 13:56
  • Страница 1 из 1
  • 1
Поиск:

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