Макрос на проверку значений

[serafim09]

Добрый день всем гуру VBA!
я новичок в макросах....
Помогите советом или примером.

Есть баланс. Необходим макрос, чтобы если баланс не сходился, то выскакивало сообщение "В таком то месяце, разница между активом и пассивом составляет такую то величину".

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

Private Sub Worksheet_Calculate()
Sheets("Лист1").Select
If Round(Range("С20").Value, 0) - Round(Range("С39").Value, 0) > 1 Then

    MsgBox "Баланс не сходится на величину " & Application.Round(Range("С20").Value, 0) - Round(Range("С39").Value, 0) & "руб.", vbInformation

    End If

End Sub

[SAS888]

Для ячеек "C20" и C39" можно так:

Private Sub Worksheet_Calculate()
    Dim a As Long: a = Round([C20]) - Round([C39])
    If a <> 0 Then MsgBox "Баланс не сходится на величину " & a & "руб."
End Sub

Этот код должен находиться в модуле соответствующего листа.
А вот что делать, если требуется проверять несколько пар ячеек на листе? Придумайте и сформулируйте требования.

[serafim09]

Сообщение от SAS888

Для ячеек "C20" и C39" можно так:

Private Sub Worksheet_Calculate()
    Dim a As Long: a = Round([C20]) - Round([C39])
    If a <> 0 Then MsgBox "Баланс не сходится на величину " & a & "руб."
End Sub

Этот код должен находиться в модуле соответствующего листа.
А вот что делать, если требуется проверять несколько пар ячеек на листе? Придумайте и сформулируйте требования.

Уважаемый SAS888. Требования я написал выше. Но наверное не понятно...

Мне нужно, чтобы если в каком то месяце есть различие между пассивом и активом, то выскакивало сообщение, с содержанием названия месяца в котором баланс не сходится и величина разницы.

Например "08/2009 г. баланс не сходится на величину в 100 руб."

иначе мне на каждый столбец с датой придется ставить a = Round([XX]) - Round([CXX]), при этом если мне нужно будет увеличить период баланса, то опять вручную вписывать эти ячейки в макросе.

Мне бы по проще данную процедуру проверки.

p.s. Кстати ваш вариант кода на много проще и лучше моего )) Сенкс. Жду дальнейших наставлений )

[SAS888]

Мне нужно, чтобы если в каком то месяце есть различие между пассивом и активом, то выскакивало сообщение...

Вот по этому поводу я и задал Вам вопрос, на который Вы так и не ответили.
Спрошу по-другому:
1. Что делать, если баланс не сходится в нескольких месяцах?
2. Кто и как заполняет лист? Т.к. если применять "выскакивание" сообщений, то при заполнении листа, например, "врурную", они (сообщения) Вас замучают.
3. Строки результатов активов и пассивов на листе фиксированы, или могут изменяться?

P.S.
Может быть лучше написать макрос "Проверка" и запускать его вручную по мере надобности? Во-первых, процедура проверки не будет происходить каждый раз при пересчете листа (изменении значений в формулах). Во-вторых, по окончании работы можно вывести очень подробный результат проверки.

[serafim09]

Сообщение от SAS888

Вот по этому поводу я и задал Вам вопрос, на который Вы так и не ответили.
Спрошу по-другому:
1. Что делать, если баланс не сходится в нескольких месяцах?
2. Кто и как заполняет лист? Т.к. если применять "выскакивание" сообщений, то при заполнении листа, например, "врурную", они (сообщения) Вас замучают.
3. Строки результатов активов и пассивов на листе фиксированы, или могут изменяться?

1. Если баланс не сходится в нескольких месяцах - то сообщение с перечнем месяцев и величинами расхождений наверное я так понимаю сделать не реально... тогда сообщение с расхождением в первый месяц, в котором произошло расхождение.
2. Заполняется лист на основании данных, которые он берет из других строчек, в которых произошли расчеты. Т.е. непосредственно каждую строку в ручную не забиваю.
3. Кол-во строк результатов активов и пассивов фиксировано, но не диапазон временной, я его могу менять от 3-ох месяцев и далее до бесконечности....

вот как то так


Кстати у меня на листе есть проверка = ЕСЛИ((Пассив - Актив)>1;1;0).
Наверное проще сделать в макросе поиск этой 1 при расхождении и тогда в месяце в котором расхождение чтоб выскакивало сообщение о величине расхождения и самом месяце.

[IgorGO]

= ЕСЛИ((Пассив - Актив)>1;1;0)
стартовая логика не верна (или я ошибаюсь). допустим пассив=100, актив=1000, пассив-актив=-900, для меня это знак, что они не сходятся абсолютно принципиально, а ваша формула вернет 0 - вроде как все ок!

[SAS888]

Посмотрите вложение. Запустите макрос "Проверка".

[serafim09]

Сообщение от IgorGO

= ЕСЛИ((Пассив - Актив)>1;1;0)
стартовая логика не верна (или я ошибаюсь). допустим пассив=100, актив=1000, пассив-актив=-900, для меня это знак, что они не сходятся абсолютно принципиально, а ваша формула вернет 0 - вроде как все ок!

Согласен, тогда прошу помощи

[serafim09]

Сообщение от SAS888

Посмотрите вложение. Запустите макрос "Проверка".

....нет слов!!!

Вышло просто изумительно!

Сейчас буду разбираться в Вашем коде,

Буду Вам очень признателен, если у Вас будет свободное время, то небольшое описание к строчкам в коде напишете о последовательности действий.

[SAS888]

Во вложении тот же файл. В коде макроса подробные комментарии.