Проверка суммы ячеек с выводом сообщения

[sergeevaelena]

Здравствуйте все участники форума!
Устала искать ответ на свой вопрос... нигде не могу найти то, что мне нужно. Выручите плиз...

Задача такова: Необходимо проверять сумму ряда ячеек (допустим А1,В1 и С1). Сумма всегда должна быть равной 100%. Значения в ячейках А1,В1 и С1 могут меняться и при вводе значения в одну из указанных ячеек макрос должен каждый раз проверять сумму всех ячеек и если сумма не равна 100% выдавать сообщение "Не верная сумма *%! Рекомендуемое значение ячейки **%." Где *% = текущая сумма всех указанных ячеек. А значение **% должно соответствовать результату формулы: 100%-текущая сумма всех ячеек, кроме ячейки, в которую производился ввод последнего значения.

Возможно ли это?

[motorway]

Используйте событие Worksheet_Change,
там и проверяйте значения ячеек с помощью Cells(1,1).Value и т.п.

[sergeevaelena]

Сумму то проверить легко - это у меня получается, а вот вывести сообщение с нужным текстом никак нет... мучилась полдня - результат 0,5, то бишь могу только вывести сообщение "Неверная сумма 100%. Рекомендуемое значение ". Вот в этом у меня основная сложность...

[motorway]

Если правильно понял, то так:

Private Sub Worksheet_Change(ByVal Target As Range)

Sum = 100 - (Cells(1, 1).Value + Cells(1, 2).Value + Cells(1, 3).Value) - Target.Value
MsgBox "Неверная сумма 100%. Рекомендуемое значение " & Sum


End Sub

[sergeevaelena]

Спасибо, но этот код работает не правильно...
Он работает на ввод в любую ячейку страницы, а мне этого не надо (надо контролировать только сумму и изменение указанных ячеек)

Если значение ячейки А1=15,05%
значение ячейки В1=48,32%
а я изменяю значение ячейки С1 с 36,63% на 36,64%
то макрос должен вывести сообщение "Не верная сумма 100,01%! Рекомендуемое значение 36,63%."

PS: забыла ранее уточнить, что макрос нужен для MS Excel 2003.

[EugeneS]

см. вложение

Проверка выполняется в строках столбцов "А:С"

[sergeevaelena]

EugeneS, ничего не происходит...

[EugeneS]

у Вас, наверное, запрещены макросы Сервис - Макросы - Безопасность - поставьте Низкий уровень

Разрешение выполнения неподписанного макроса
Чтобы разрешить выполнение неподписанного макроса, необходимо установить флажок Доверять всем установленным надстройкам и шаблонам на вкладке Надежные издатели диалогового окна Безопасность. Этот параметр устанавливается по умолчанию. Если он не выбран (рекомендуется), Excel позволит пользователю запускать только те макросы, которые содержат надежные цифровые подписи.

1.В меню Сервис выберите Макрос, а затем щелкните Безопасность.
2.На вкладке Надежные издатели установите флажок Доверять всем установленным надстройкам и шаблонам.

Разрешение выполнения макросов
Если степень безопасности макросов в Excel установлена как Низкая (не рекомендуется), макросы могут выполняться без запроса разрешения у пользователя. Если установлена Средняя степень безопасности макросов, в Excel отображается диалоговое окно с запросом на выполнение макросов. Если установлена Высокая степень безопасности макросов (рекомендуется для всех пользователей), Excel позволяет запускать только макросы с цифровой подписью или те макросы, которые хранятся в папке запуска Excel (XLStart).

[sergeevaelena]

Макросы разрешены, но ничего не происходит... ничего не понимаю...

[sergeevaelena]

Ок. нашла почему не работает: мне же надо вводить значения на как 10, 50 и 40, а как 10%, 50% и 40%. Не работает на сумму менее 100%