Developing.ru

Доброе время суток, уважаемые!!!
Возник вопрос выбора диапазона ячеек, хочу применить для этого стандартное диалоговое окно выбора диапазона. Такое окно часто применяется в Excel, но ни как его вызвать ( название или ID), ни свойств его не знаю.
Подскажите, пожалуйста, кто знает ответ на этот вопрос.
Спасибо.

Это же стандартный контрол RefEdit!
Он есть на пенели инструментов "Элементы управления".
Надо просто положить его на Userform и все.

Уважаемый Naeel Maqsudov !
Спасибо за столь быстрый ответ!
Да, сейчас попробую конечно, но мне бы хотелось обойтись без лишних Userform, т.е. применить стандартное окно Excel.
Спасибо.

Просто на листе этот компонент увы не работает (да и смысла на листе в нем было бы немного).
Кроме того не существует стандартного диалогового окна для выбора диапазона.
Есть только этот контрол. Он используется везде:
* в диалоговом окне Параметры страницы (Диапазон печати)
* в диалоговых окнах мастера функций
* в надстройке Solver
и т.д.

Контрол довольно интересный. Он сам делает Rollup своего родительского окна (поэтому на лист он добаляется, но работать не будет. Только на Userform) на период выделения диапазона.

Naeel Maqsudov, огромное спасибо за Ваши ответы!
Благодаря Вам разобрался я с этим контролом, да действительно интересный контрол, не применял я его раньше )).
Буду работать, спасибо.

Что-то ничего не могу я с ним сделать ((
Никак не получается у меня вывести в переменную выделенный диапазон, да еще чтобы без названия листа((

Можно фрагмент кода?
Не понял до конца, что Вам требуется сделать...

Да еще и кода-то никакого толком нет((.
Создал форму, поместил на нее RefEdit, лейбл и кнопочку ОК.
Теперь запускаю форму, выбираю диапазон ячеек с помощью RefEdit и при нажатии Ок хочу, чтобы значение прместилос в этот лейбл.
Ну, лейбл - то просто для наглядности, дальше в коде этот диапазон будет уже обрабатываться.
И еще заморочка, выбранный диапазон выглядит так Склад!$E$16:$E$18, а мне для дальнейшей работы требуется только E16:E18.
Не знаю, смог ли толково объяснить, но вот такая у меня задача...
Спасибо.
p.s.
вот просто файл с формой.

А говорите кода нету!

У Вас:

Private Sub RefEdit1_BeforeDragOver(....................)
Диапазон = RefEdit1.Text
End Sub

А надо:

Private Sub RefEdit1_Change()
Диапазон = RefEdit1.Text
End Sub

как же плохо быть бестолковым
Спасибо Вам огромное!!!
Думаю, дальше уже справюсь)))