Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/ЗАМЕНА ЗНАЧЕНИЙ - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
ЗАМЕНА ЗНАЧЕНИЙ
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)
 
Ответить
СообщениеДень добрый! Если кто знает макросы, нужен код в Microsoft Visual. Есть файл excel (планирование) в ячейки факт 1-6 вставляю данные, которые считываться и меняться постоянно. Далее попадают в ячейку с названием АТС, после чего от туда их копирую и забираю дальше. Нужно следующее где значения от 0,001 до 0,099 переводило в 0,100 т.к меньше данной суммы не принимает. Подскажите кто знает как написать код что бы это значение менялось, оно может быть в любом месте, при этом числа при сложении больше 0,100 не изменялись.
Вот примерный код+- что писал, но вышло что все стали 0,100 а мне нужно менять только те которые с 0,000 (начинаться с 2х нулей)

Автор - Vitek3278
Дата добавления - 24.06.2022 в 11:49
Nic70y Дата: Пятница, 24.06.2022, 12:04 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8972
Репутация: 2356 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
        For Each rn In Intersect(rr, ActiveSheet.UsedRange)
            rn = Application.Max(rn, 0.1)
            rn.NumberFormat = "0.000"
        Next
[/vba]так нужно?


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
        For Each rn In Intersect(rr, ActiveSheet.UsedRange)
            rn = Application.Max(rn, 0.1)
            rn.NumberFormat = "0.000"
        Next
[/vba]так нужно?

Автор - Nic70y
Дата добавления - 24.06.2022 в 12:04
Vitek3278 Дата: Пятница, 24.06.2022, 14:26 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Nic70y, изменения нужны только для столбца I c 4 по 27 строку
К сообщению приложен файл: 8357132.jpg (34.5 Kb)
 
Ответить
СообщениеNic70y, изменения нужны только для столбца I c 4 по 27 строку

Автор - Vitek3278
Дата добавления - 24.06.2022 в 14:26
Nic70y Дата: Пятница, 24.06.2022, 15:07 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8972
Репутация: 2356 ±
Замечаний: 0% ±

Excel 2010
Vitek3278, это на листе ВВОД, так у Вас там формулы.
Код
=МАКС(0,1;ЕСЛИ(N4<0;J4;M4))


ЮMoney 41001841029809
 
Ответить
СообщениеVitek3278, это на листе ВВОД, так у Вас там формулы.
Код
=МАКС(0,1;ЕСЛИ(N4<0;J4;M4))

Автор - Nic70y
Дата добавления - 24.06.2022 в 15:07
Vitek3278 Дата: Пятница, 24.06.2022, 16:08 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Nic70y, предлагаете мне сделать дублируемый столбец(АТС), и уже выводить на нём?
 
Ответить
СообщениеNic70y, предлагаете мне сделать дублируемый столбец(АТС), и уже выводить на нём?

Автор - Vitek3278
Дата добавления - 24.06.2022 в 16:08
Nic70y Дата: Пятница, 24.06.2022, 16:28 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8972
Репутация: 2356 ±
Замечаний: 0% ±

Excel 2010
предлагаете мне
нет.
в столбце I изменить формулу, если я правильно понял
0,001 до 0,099


ЮMoney 41001841029809
 
Ответить
Сообщение
предлагаете мне
нет.
в столбце I изменить формулу, если я правильно понял
0,001 до 0,099

Автор - Nic70y
Дата добавления - 24.06.2022 в 16:28
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!