Выделение диапазона мышкой во время работы макроса

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

Выделение диапазона мышкой во время работы макроса (Макросы/Sub)

fairylive

Дата: Четверг, 16.06.2016, 12:12 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 122

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

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

Excel 2016

Есть код в котором сейчас диапазон предлагается ввести через диалоговое окно. Но для этого надо сначала открыть файл, записать адреса начальной и конечной ячейки в нужном диапазоне, закрыть файл, запустить макрос и там ввести адрес диапазона. Хочется это дело упростить. Как можно в момент работы макроса указать нужный диапазон мышкой?

Ответить

_Boroda_

Дата: Четверг, 16.06.2016, 12:15 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Посмотрите вот здесь
http://www.excelworld.ru/forum/10-24544-1

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

fairylive

Дата: Четверг, 16.06.2016, 12:34 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 122

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

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

Excel 2016

_Boroda_, ну там моя тема, только вопрос про мышь остался открытым. Создал новую тему так как в той теме был другой вопрос. Но диалоговое окно application.inputbox не позволяет выделять что-то мышкой.

Ответить

Manyasha

Дата: Четверг, 16.06.2016, 12:43 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

fairylive, взяла код Ярослава из прошлой темы, у меня все выделяется.
[vba]

Код

Sub test()
    Set diapazon = Application.InputBox("Укажите диапазон объединяемых ячеек." & vbLf & _
                        "Например F7:F57", "Какие ячейки объединять?", Type:=8)
    MsgBox "Вы выделили " & diapazon.Address
End Sub

[/vba]