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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка числа с его умножением, делением и округлением - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка числа с его умножением, делением и округлением (Макросы/Sub)
Вставка числа с его умножением, делением и округлением
ivanov1974 Дата: Воскресенье, 14.02.2016, 14:11 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 133
Репутация: 1 ±
Замечаний: 0% ±

Здравствуйте знатоки EXCEL. В наличии есть макрос. При выборе из выпадающего списка в ячейке С3 вставляются данные в ячейки С4, С5 и С6. Как подкорректировать код, чтобы происходила вставка не просто определенного числа, а с учетом части пая, т.е. это число умножалось на ячейку С1 и делилось на ячейку С2. И результат этого вычисления округлялся до целого числа в большую сторону. Образец файла прикладываю.
К сообщению приложен файл: 6182613.xls(64Kb)
 
Ответить
СообщениеЗдравствуйте знатоки EXCEL. В наличии есть макрос. При выборе из выпадающего списка в ячейке С3 вставляются данные в ячейки С4, С5 и С6. Как подкорректировать код, чтобы происходила вставка не просто определенного числа, а с учетом части пая, т.е. это число умножалось на ячейку С1 и делилось на ячейку С2. И результат этого вычисления округлялся до целого числа в большую сторону. Образец файла прикладываю.

Автор - ivanov1974
Дата добавления - 14.02.2016 в 14:11
pechkin Дата: Воскресенье, 14.02.2016, 15:10 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 206
Репутация: 27 ±
Замечаний: 0% ±

2003
Здравствуйте! Проверьте!
К сообщению приложен файл: 6182614.xls(51Kb)
 
Ответить
СообщениеЗдравствуйте! Проверьте!

Автор - pechkin
Дата добавления - 14.02.2016 в 15:10
ivanov1974 Дата: Воскресенье, 14.02.2016, 15:32 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 133
Репутация: 1 ±
Замечаний: 0% ±

Pechkin, то, что надо. Спасибо огромное. Вопрос закрыт.
 
Ответить
СообщениеPechkin, то, что надо. Спасибо огромное. Вопрос закрыт.

Автор - ivanov1974
Дата добавления - 14.02.2016 в 15:32
ivanov1974 Дата: Вторник, 16.02.2016, 18:03 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 133
Репутация: 1 ±
Замечаний: 0% ±

Еще есть нюанс. Если в коде вместо числа 80 ввести 0,5 то код не работает. Понимаю, что моя ошибка, дал не все данные. Может подскажет кто, что надо подкоректировать?
 
Ответить
СообщениеЕще есть нюанс. Если в коде вместо числа 80 ввести 0,5 то код не работает. Понимаю, что моя ошибка, дал не все данные. Может подскажет кто, что надо подкоректировать?

Автор - ivanov1974
Дата добавления - 16.02.2016 в 18:03
_Boroda_ Дата: Вторник, 16.02.2016, 18:07 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 9352
Репутация: 3924 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вводите не 0,5, а 0.5 - через точку
И, возможно, нолик последний изменить придется
[vba]
Код
Target(4, 1) = WorksheetFunction.Round(0.5 / Range("C2").Value * Range("C1").Value, 5)
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВводите не 0,5, а 0.5 - через точку
И, возможно, нолик последний изменить придется
[vba]
Код
Target(4, 1) = WorksheetFunction.Round(0.5 / Range("C2").Value * Range("C1").Value, 5)
[/vba]

Автор - _Boroda_
Дата добавления - 16.02.2016 в 18:07
ivanov1974 Дата: Вторник, 16.02.2016, 18:18 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 133
Репутация: 1 ±
Замечаний: 0% ±

Boroda, большое спасибо. Все работает.
 
Ответить
СообщениеBoroda, большое спасибо. Все работает.

Автор - ivanov1974
Дата добавления - 16.02.2016 в 18:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка числа с его умножением, делением и округлением (Макросы/Sub)
Страница 1 из 11
Поиск:

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