Всем доброго времени суток. Прошу помощи с макросом для поиска чисел, которые не округлены до выбраного знака после запятой, в активном диапазоне. Рабочий алгоритм я построила на округлении и разнице округленного и не округленного.
Представляю код:
Обычно я проверяю на округления до 3го числа, решила написать макрос для данной задачи, но столкнулась с тем, что даже при 34,425 = 34,425 - VBA считает, что число не округленное. Прошу помощи, потому что не понимаю в чём ошибка, а возможно я выбрала неправильную стратегию... Код хоть и очень простой, но очень полезный.
Буду очень благодарна за помощь, рабочий файл прикрепляю.
Представляю код:
| Код |
|---|
Sub RoundЕ()
Dim cl As Range
Dim x1 As Integer
x1 = InputBox("Введите количество знаков после запятой")
For Each cl In Selection.Cells
'cl.Value = cl.Value
k1 = cl.Value
k2 = Round(cl.Value, x1)
If k1 <> k2 Then cl.Interior.Color = 11389944
Next
End Sub |
Обычно я проверяю на округления до 3го числа, решила написать макрос для данной задачи, но столкнулась с тем, что даже при 34,425 = 34,425 - VBA считает, что число не округленное. Прошу помощи, потому что не понимаю в чём ошибка, а возможно я выбрала неправильную стратегию... Код хоть и очень простой, но очень полезный.
Буду очень благодарна за помощь, рабочий файл прикрепляю.
Изменено: - 14.06.2022 21:36:36
