Как кодом добавить RefEdit?

[MaDriver]

Привет! Искал поиском, но так популярно никто не объяснил, как с помощью кода добавить RefEdit в форму?

[GSerg]

А как в форму с помощью кода добавить кнопку, ты поиском не искал?

[MaDriver]

С кнопкой-то легко (CommandButton), а для RefEdit - нет названия, и в Хелпе смотрел, там RefEdit, вообще не упоминается как контрол для Формы? С чего начать Бил знает Тоже самое про свойства для RefEdit, как сделать его видимым и наоборот. У меня допустим 2 RefEditа и нужно чтобы как только я нажимаю на кнопку выбора диапазона на первом RefEdite, второй должен становиться видимым?

[GSerg]

Ну так добавь два ref в дизайне, один видимый, другой невидимый, и переключай...

[MaDriver]

Ты мне можешь написать код, как refedit сделать видимым и наоборот? Проблема в том, что я не знаю как на него сослаться?

[GSerg]

А как ты с него содержимое получаешь?

[MaDriver]

Издеваешься да?! Как я получу с него содержимое если я даже не могу на него сослаться, т.е. мне нужно выяснить:
1. КАК ДОБАВИТЬ RefEdit на форму?
2. КАК СОСЛАТЬСЯ на RefEdit?
3. КАК ИЗМЕНИТЬ его СВОЙСТВА?
4. КАК МОЖНО ИСПОЛЬЗОВАТЬ его СОДЕРЖИМОЕ?
Возможно ко всем этим "КАК?" один ответ, только я его не знаю, а все остальные молчат

[K.Sergey]

А ты его подключил в дополнительных контролах?
Он у тебя на форме виден?
Загляни сюда: http://support.microsoft.com/default.aspx?scid=kb;en-us;213776
Такое ощущение, что ты его просто не подключил и из-за этого все проблемы. Т.к. по умолчанию, его на панели инструментов нет.

[MaDriver]

У меня Office 2003, на панели управления формы он у меня есть и вручную я могу его добавить, могу использовать его в коде, но все кончается тем, что я выбираю нужный диапазон и все дальше я не знаю как использовать его содержимое и т.д.

[K.Sergey]

Так в статье же приведен пример:

Код: Выделить всё

Sub CommandButton1_Click()

     Dim SelRange as Range
     Dim Addr as String

     'Получить адрес, или ссылку, из контрола RefEdit.
     Addr = RefEdit1.Value

     'Присваиваем SelRange  диапазон, указанный в RefEdit контрорле.
     Set SelRange = Range(Addr)

     'Присваиваем этому диапазону красный цвет.
     SelRange.Interior.ColorIndex = 3

     'Выгружаем форму.
     Unload Me
End Sub

По-моему, все просто...

[K.Sergey]

Помогло? Разобрался?

[MaDriver]

Да, спасибо большое K.Sergey! , теперь хоть знаю с чего начать:) у меня еще вопросик: Теперь у меня есть диапазон, а ты не знаешь как мне перейти на нужную ячейку в нем, а-то мне приходиться использовать следующий инструмент:
-
Range(source).end(xlUp).activate
activecell. offset(i,0).range("a1")
-
уверен есть способ удобнее и быстрее...

[K.Sergey]

Держи, специально для тебя накатал основные приемы работы с диапазонами:

Код: Выделить всё

Sub WorkingWithRanges()
Dim MyRange As Range
Set MyRange = ActiveSheet.Range("D3:F6")
MsgBox MyRange.Item(1, 1).Value 'Обращаемся к левой верхней ячейке диапазона
MsgBox MyRange.Item(1, 1).Row 'Узнаем в какой строке находится левая верхняя ячейка диапазона
MsgBox MyRange.Item(1, 1).Column 'Узнаем в каком столбце находится левая верхняя ячейка диапазона
MsgBox MyRange.Rows.Count  'Количество строк в диапазоне
MsgBox MyRange.Columns.Count 'Количество столбцов в диапазоне
MsgBox MyRange.Item(MyRange.Rows.Count, MyRange.Columns.Count).Value 'Значение нижней правой ячейки диапазона
End Sub

Думаю, разберешься...

[MaDriver]

Посмотри я нашел способ лучше:

Код: Выделить всё

Dim sourceRange As Range
Dim sourceAddr As String
sourceAddr = source.Value
Set sourceRange = Range(sourceAddr)
Str = Range(sourceAddr).Rows.Count ' узнаем соличество строк в диапазоне
Col = Range(sourceAddr).Columns.Count ' узнаем количество столбцов в диапазоне
' выясняем последовательно все значеия диапазона
For i = 1 To str
For k = 1 To col
A = sourceRange(i,k)
next
next


Дальше все зависит от фантазии
Потом еще отредактирую выложу код своего творения полностью, полезная штука, давно хотел написать, руки не доходили.