Переменная содержащая область ячеек

[Replicant]

Необходимо написать пользовательскую функцию, которая будет работать с выделенной областью ячеек.
Как объявить переменную, которая будет содержать эту область?
С VBA знаком второй день, работал с другими языками.

[IgorGO]

в VBA уже есть такая переменная Selection
отметьте диапазон ячеек, выполните этот

sub seladr
  msgbox selection.sddress false, false
end sub

[Replicant]

Сообщение от IgorGO

в VBA уже есть такая переменная Selection
отметьте диапазон ячеек, выполните этот

sub seladr
  msgbox selection.sddress false, false
end sub

Compile error: Syntax error в строке msgbox selection.sddress false, false
msgbox selection.saddress false, false и msgbox selection.address false, false та же фигня

[IgorGO]

с компилятором не поспоришь
извините,
msgbox selection.address false, false
но Вы, как человек, работавший с другими языками могли бы и...

и еще раз извините
msgbox selection.address(false, false)


давайте теперь не спеша.
1 копируете этот текст
Sub seladr()
MsgBox Selection.Address(False, False)
End Sub
2. на листе отмечаете диапазон ячеек
3. правой кнопкой по ярлыку листа
4. Исходный текст
5. Ctrl+V
6. F5

[Replicant]

Сообщение от IgorGO

с компилятором не поспоришь
извините,
msgbox selection.address false, false
но Вы, как человек, работавший с другими языками могли бы и...

Ну так пробовал этот вариант, написал же выше) Сам удивляюсь

[Replicant]

Так же интересно как привязать к переменной заранее указанную область??
Sellection и перебор циклом в массив?

[Serge_Bliznykov]

sub xxxx()
end Sub

это тело процедуры.
надеюсь, Вы его не вставляете в тело ДРУГОЙ процедуры?
если да - то так нельзя!
Все процедуры в VBA описываются отдельно

как привязать к переменной заранее указанную область??

которая будет работать с выделенной областью ячеек.

такая переменная уже есть.
у неё имя selection

просто используйте её, где нужно.

[Aleksandr H.]

Да напишите просто

Sub seladr()
  MsgBox Selection.Address 
End Sub

dim rng as range
rng = selection

[Replicant]

Сообщение от Aleksandr H.

Да напишите просто

Sub seladr()
  MsgBox Selection.Address 
End Sub

dim rng as range
rng = selection

Да, спасибо.

[IgorGO]

sub FillRangeB3D7
  dim rg as range
  set rg = range("B3:D7")
  rg.interior.color = rgb(255,0,0)
  rg.value = 22
end sub