| Вопрос: нужна помощь! | Добавлено: 14.08.07 11:50 |
Автор вопроса:  Piastra | Web-сайт: no
|
| Ответы | Всего ответов: 17 |
|
Номер ответа: 16 Автор ответа:  Кверт Вопросов: 2 Ответов: 14 |
Профиль | | #16 | Добавлено: 20.09.07 15:26 |
|
Предлагаю универсальный вариант:
что на что умножать - задается в ходе выполнения макроса (не предусмотрена обработка ошибочных ситуаций): Sub УмножениеДиапазонаНаЯчейку()
Dim Rng As Range, c As Range, m As Double Set Rng = Application.InputBox("Выделите диапазон", "Умножение диапазона на ячейку", Selection.Address, , , , , 8) m = Application.InputBox("Выделите ячейку", "Умножение диапазона на ячейку", , , , , , 8) For Each c In Rng c.Value = c.Value * m Next End Sub |
||
|
Номер ответа: 17 Автор ответа: GenyaA Вопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #17 | Добавлено: 20.09.07 15:53 |
 В том и была проблема, что периодически выделять несмежные области количеством порядка 10-ти штук в таблице из 40-50 столбцов и стольких же строк - дело не самое приятное... и, главное, подвержено ошибкам из-за человеческого фактора... А действие Вашего макроса уже реализовано в Excel через Специальную вставку, притом с возможностью возврата (отмены) действия.
|
||