Проверка значений на листе

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка значений на листе (Макросы/Sub)

Alenka546

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

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2013

Добрый день! Запуталась в трех соснах, помогите!
На листе в девятой колонке есть ячейки со значениями:
792000
2373229,44
3024000,00
6189229,44
Последнее является значением суммы первых трех. Необходимо проверить что это значение посчитано правильно. Если неправильно - залить цветом

Кусок кода:
[vba]

Код

If wb.Cells(LastRow, 9).Value <> Application.Sum(Range("I" & FirstRow + 1 & ":I" & LastRow - 1)) Then
wb.Cells(LastRow, 9).Interior.Color = vbYellow
Else
wb.Cells(LastRow, 9).Interior.Color = vbWhite
End If

[/vba]

Для других значений выполняется правильно (сумма подсчитана верно и заливка не выполняется), а конкретно для этого набора красится желтым.
Пробовала через переменные
[vba]

Код

x=wb.Cells(LastRow2, 9).Value
y=Application.Sum(Range("I" & FirstRow + 1 & ":I" & LastRow - 1))
If x<>y then ...

[/vba]
Когда в отладке навожу курсор на значения x и y получаю два одинаковых числа. Но почему-то VBA считает их неравными. Что не так?