где в VBA такой компонент ???

[Noor]

Где в Excel найти такой компонет для своей формы

[pashulka]

Это текстовое поле EditBox с панели инструментов Формы.
Для того, чтобы воспользоваться этим элементом управления нужно проделать примерно следующее :
- подвести курсор мышки к ярлычку любого листа.
- кликнуть правой кнопкой мышки и в контекстном меню выбрать команду Добавить.
- в стандартном диалоговом окне выбрать Окно Диалога Excel5.0
- в меню Вид выбрать пункт Панели инструментов и команду Формы
- разместить текстовое поле на листе диалога, используя кнопку Текстовое поле абl
- выделить созданное поле, кликнуть правой кнопкой мышки и в контекстном меню выбрать команду Формат объекта.
- в разделе Тип вводимого значения установить переключатель напротив Ссылка и кликнуть кнопку Ok.

А для пользовательской формы можно воспользоваться дешёвым аналогом вышеупомянутого элемента управления, а именно RefEdit. Добавить этот элемент управления можно, если в редакторе VBA кликнуть, например, кнопку Панель инструментов, затем кликнуть правой кнопкой мышки и в появившемся стандартном диалоговом окне выбрать RefEdit.Ctrl и кликнуть кнопку Ok.

Впрочем, иногда можно вообще обойтись без использования нестандартных диалоговых окон, например :

On Error Resume Next
Dim iSelection As Range
Set iSelection = Application.InputBox( _
Prompt:="Выберите нужную ячейку/диапазон", Title:="", Type:=8)
If Not iSelection Is Nothing Then
   MsgBox "Вы выбрали : " & iSelection.Address(External:=True), , ""
Else
   MsgBox "Надо было выбрать нужную ячейку", vbCritical, ""
End If

[Noor]

Спасибки !!!