ЗАМЕНА ЗНАЧЕНИЙ

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

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

ЗАМЕНА ЗНАЧЕНИЙ (Microsoft Query)

ЗАМЕНА ЗНАЧЕНИЙ

Vitek3278

Дата: Пятница, 24.06.2022, 11:49 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

День добрый! Если кто знает макросы, нужен код в Microsoft Visual. Есть файл excel (планирование) в ячейки факт 1-6 вставляю данные, которые считываться и меняться постоянно. Далее попадают в ячейку с названием АТС, после чего от туда их копирую и забираю дальше. Нужно следующее где значения от 0,001 до 0,099 переводило в 0,100 т.к меньше данной суммы не принимает. Подскажите кто знает как написать код что бы это значение менялось, оно может быть в любом месте, при этом числа при сложении больше 0,100 не изменялись.
Вот примерный код+- что писал, но вышло что все стали 0,100 а мне нужно менять только те которые с 0,000 (начинаться с 2х нулей)

К сообщению приложен файл: _2022.xls (173.0 Kb)

Ответить

Nic70y

Дата: Пятница, 24.06.2022, 12:04 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9006

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

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

Excel 2010

[vba]

Код

        For Each rn In Intersect(rr, ActiveSheet.UsedRange)
            rn = Application.Max(rn, 0.1)
            rn.NumberFormat = "0.000"
        Next

[/vba]так нужно?