Диалоговое окно выбора диапазона
Модератор: Naeel Maqsudov
- VictorM
- Сообщения: 794
- Зарегистрирован: 23 окт 2006, 01:44
- Откуда: Lugansk, Ukraine
- Контактная информация:
Доброе время суток, уважаемые!!!
Возник вопрос выбора диапазона ячеек, хочу применить для этого стандартное диалоговое окно выбора диапазона. Такое окно часто применяется в Excel, но ни как его вызвать ( название или ID), ни свойств его не знаю.
Подскажите, пожалуйста, кто знает ответ на этот вопрос.
Спасибо.
Возник вопрос выбора диапазона ячеек, хочу применить для этого стандартное диалоговое окно выбора диапазона. Такое окно часто применяется в Excel, но ни как его вызвать ( название или ID), ни свойств его не знаю.
Подскажите, пожалуйста, кто знает ответ на этот вопрос.
Спасибо.
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
научите их ловить рыбу - и вы накормите их на всю жизнь".
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Это же стандартный контрол RefEdit!
Он есть на пенели инструментов "Элементы управления".
Надо просто положить его на Userform и все.
Он есть на пенели инструментов "Элементы управления".
Надо просто положить его на Userform и все.
- VictorM
- Сообщения: 794
- Зарегистрирован: 23 окт 2006, 01:44
- Откуда: Lugansk, Ukraine
- Контактная информация:
Уважаемый Naeel Maqsudov !
Спасибо за столь быстрый ответ!
Да, сейчас попробую конечно, но мне бы хотелось обойтись без лишних Userform, т.е. применить стандартное окно Excel.
Спасибо.
Спасибо за столь быстрый ответ!
Да, сейчас попробую конечно, но мне бы хотелось обойтись без лишних Userform, т.е. применить стандартное окно Excel.
Спасибо.
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
научите их ловить рыбу - и вы накормите их на всю жизнь".
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Просто на листе этот компонент увы не работает (да и смысла на листе в нем было бы немного).
Кроме того не существует стандартного диалогового окна для выбора диапазона.
Есть только этот контрол. Он используется везде:
* в диалоговом окне Параметры страницы (Диапазон печати)
* в диалоговых окнах мастера функций
* в надстройке Solver
и т.д.
Контрол довольно интересный. Он сам делает Rollup своего родительского окна (поэтому на лист он добаляется, но работать не будет. Только на Userform) на период выделения диапазона.
Кроме того не существует стандартного диалогового окна для выбора диапазона.
Есть только этот контрол. Он используется везде:
* в диалоговом окне Параметры страницы (Диапазон печати)
* в диалоговых окнах мастера функций
* в надстройке Solver
и т.д.
Контрол довольно интересный. Он сам делает Rollup своего родительского окна (поэтому на лист он добаляется, но работать не будет. Только на Userform) на период выделения диапазона.
- VictorM
- Сообщения: 794
- Зарегистрирован: 23 окт 2006, 01:44
- Откуда: Lugansk, Ukraine
- Контактная информация:
Naeel Maqsudov, огромное спасибо за Ваши ответы!
Благодаря Вам разобрался я с этим контролом, да действительно интересный контрол, не применял я его раньше )).
Буду работать, спасибо.
Благодаря Вам разобрался я с этим контролом, да действительно интересный контрол, не применял я его раньше )).
Буду работать, спасибо.
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
научите их ловить рыбу - и вы накормите их на всю жизнь".
- VictorM
- Сообщения: 794
- Зарегистрирован: 23 окт 2006, 01:44
- Откуда: Lugansk, Ukraine
- Контактная информация:
Что-то ничего не могу я с ним сделать ((
Никак не получается у меня вывести в переменную выделенный диапазон, да еще чтобы без названия листа((
Никак не получается у меня вывести в переменную выделенный диапазон, да еще чтобы без названия листа((
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
научите их ловить рыбу - и вы накормите их на всю жизнь".
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Можно фрагмент кода?
Не понял до конца, что Вам требуется сделать...
Не понял до конца, что Вам требуется сделать...
- VictorM
- Сообщения: 794
- Зарегистрирован: 23 окт 2006, 01:44
- Откуда: Lugansk, Ukraine
- Контактная информация:
Да еще и кода-то никакого толком нет((.
Создал форму, поместил на нее RefEdit, лейбл и кнопочку ОК.
Теперь запускаю форму, выбираю диапазон ячеек с помощью RefEdit и при нажатии Ок хочу, чтобы значение прместилос в этот лейбл.
Ну, лейбл - то просто для наглядности, дальше в коде этот диапазон будет уже обрабатываться.
И еще заморочка, выбранный диапазон выглядит так Склад!$E$16:$E$18, а мне для дальнейшей работы требуется только E16:E18.
Не знаю, смог ли толково объяснить, но вот такая у меня задача...
Спасибо.
p.s.
вот просто файл с формой.
Создал форму, поместил на нее RefEdit, лейбл и кнопочку ОК.
Теперь запускаю форму, выбираю диапазон ячеек с помощью RefEdit и при нажатии Ок хочу, чтобы значение прместилос в этот лейбл.
Ну, лейбл - то просто для наглядности, дальше в коде этот диапазон будет уже обрабатываться.
И еще заморочка, выбранный диапазон выглядит так Склад!$E$16:$E$18, а мне для дальнейшей работы требуется только E16:E18.
Не знаю, смог ли толково объяснить, но вот такая у меня задача...
Спасибо.
p.s.
вот просто файл с формой.
- Вложения
-
- Книга_RefEdit.zip
- (8 КБ) 35 скачиваний
"Дайте людям рыбы, и вы накормите их на весь день;
научите их ловить рыбу - и вы накормите их на всю жизнь".
научите их ловить рыбу - и вы накормите их на всю жизнь".
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
А говорите кода нету! 
У Вас:
Private Sub RefEdit1_BeforeDragOver(....................)
Диапазон = RefEdit1.Text
End Sub
А надо:
Private Sub RefEdit1_Change()
Диапазон = RefEdit1.Text
End Sub

У Вас:
Private Sub RefEdit1_BeforeDragOver(....................)
Диапазон = RefEdit1.Text
End Sub
А надо:
Private Sub RefEdit1_Change()
Диапазон = RefEdit1.Text
End Sub