Как вывести адрес области ячеек(с помощью функции АДРЕС или какой- то другой?)

[Annette]

Помогите, пжл, вывести адрес области ячеек, чтобы было примерно так: Лист2¡B9:В12.Это делается с помощью функции АДРЕС или какой- то другой?

[Alex_Gur]

Попробуйте функцию =АДРЕС(1;1;;;"Лист1"). Она возвращает значение Лист1!$A$1.

Подробнее о функции Адрес:
https://support.office.com/ru-ru/article/Функция-АДРЕС-d0c26c0d-3991-446b-8de4-ab46431d4f89?sxpredir=true&ui=ru-RU&rs=ru-RU&ad=RU

[Annette]

Спасибо, но это будет адрес одной ячейки, а мне нужно, чтоб прописывался адрес нескольких ячеек

[Kuzmich]

Код: (vb)

Sub АдресДиапазона()
Dim АдресДиапазона As Range
  Set АдресДиапазона = Application.InputBox(prompt:="Выделите нужный диапазон", Type:=8)
    MsgBox АдресДиапазона.Address
End Sub

[Alex_Gur]

В развитие макроса от Kuzmich:

Код: (vb)

Sub АдресДиапазона()
    Dim АдресДиапазона As Range
    Dim strI As String
    Set АдресДиапазона = Application.InputBox(prompt:="Выделите нужный диапазон", Type:=8)
    MsgBox АдресДиапазона.Address
    MsgBox ActiveSheet.Name
    strI = ActiveSheet.Name & "!" & АдресДиапазона.Address
    MsgBox strI
End Sub

Получаем значение типа: Лист1!$A$6:$D$15

[Alex_Gur]

И еще дополнение: Чтобы получить ссылку типа: Лист1!A9:D17 (без знаков доллара) можно использовать следующий макрос:

Код: (vb)

Sub АдресДиапазона()
    Dim АдресДиапазона As Range
    Dim strI As String
    Set АдресДиапазона = Application.InputBox(prompt:="Выделите нужный диапазон", Type:=8)
    strI = ActiveSheet.Name & "!" & АдресДиапазона.Address(ColumnAbsolute:=False, RowAbsolute:=False)
    Range("A1").Value = strI
End Sub

[Annette]

Спасибо! 

[Юрий М]

Эту запись:

Код: (vb)

.Address(ColumnAbsolute:=False, RowAbsolute:=False) 

Можно сократить:

Код: (vb)

.Address(0, 0) 

 

[sv2015]

Добрый день,Alex_Gur! Прошу считать мое данное обращение как дружественную конструктивную критику.
1. Почему Вы нарушаете ограничение на имена в VBA:
  Не следует использовать имена,совпадающие с именами процедур.
У Вас название процедуры АдресДиапазона и такое же имя у диапазона внутри процедуры.

2.Скажите, пожалуйста, кто такой Kuzmich у Вас в тексте,-может быть это название сборника их которого вы черпаете процедуры.

3.Кроме того уважаемая создатель темы просила решить вопрос с помощью функции Адрес или какой-то другой
Справку по функции АДРЕС вы провели,а затем решаете вопрос с помощью подпрограммы типа Sub End Sub и MsgBox,
подпрограммы ведь это не пользовательские функции VBA.
Вот пример такой пользовательской функции VBA,расположенной в стандартном модуле VBA:Вводите в ячейке =G,выскакивает диалоговое окно,выбирает двойным щелчком функцию,вводите диапазон мышью или клавиатурой.

Код: (vb)

Function GetAdress(r As Range) As String
GetAdress = r.Parent.Name & r.Address
End Function

4.Убедительно прошу Вас,пожалуйста,,не применяйте столько много Функций MsgBox в ваших процедурах,это не совсем правильный путь программирования.
 С уважением ко всем участникам обсуждения и Модератору.

[Дмитрий Щербаков(The_Prist)]

кто такой Kuzmich у Вас в тексте

Ну это уже не знаю даже на что похоже. Написано ведь:

В развитие макроса от Kuzmich:

А Kuzmich это один из наших участников, его сообщение есть в данной теме. Обзывать его каким-то сборником очень невежливо.

Замечание по вопросу совпадения имени процедуры и переменной очень верное, присоединюсь. А все остальное смахивает на агрессивные нравоучения, которые совсем лишние. MsgBox человек используется для показа результата отдельных частей результата выполнения кода, т.к. не факт, что автор темы умеет использовать тот же Immediate. А без показов всяких сообщений автор может вообще не понять, что ему предложили. И это никакого отношения к правильному и неправильному программированию не относится. Все зависит от задач. А здесь задача была показать суть кода.

Далее: да, просили с помощью функции. Но кто мешает предложить альтернативу? Вы предложили функцию - хорошо, автор, скорее всего, будет более рад именно ей. Но это не значит, что все остальные неверно советуют. Может автору как раз процедурой будет удобнее, а не функцией(далеко не всегда пользователи знают, что помимо функций можно и другие возможности использовать).

В общем выражайте своим мысли менее агрессивно. Даже слова "с уважением" и "пожалуйста" никак не смягчают тон Вашего сообщения.

Плюс никто не задал логичный вопрос: а откуда черпать адреса ячеек? Надо ли их задавать в функции или надо определить ячейки выделенные? К тому же можно применить тот же АДРЕС:
=АДРЕС(1;1;;;"Лист1")&":"&АДРЕС(1;2)
будет возвращен адрес диапазона в виде: Лист1!$A$1:$B$1

Для Лист2!В9:В12 с относительной адресацией:
=АДРЕС(9;2;4;;"Лист2")&":"&АДРЕС(12;2;4)

А в Вашей функции очень не хватает воскл.знака:

Код: (vb)

Function GetAdress(r As Range) As String
GetAdress = r.Parent.Name & "!" & r.Address(0, 0)
End Function

А еще лучше было бы добавить апострофы. Нужно для тех ситуаций, если адрес ячеек будет применяться далее в функциях вроде ДВССЫЛ, а в имени листа будет пробел или иной символ.
АДРЕС в этом случае сам добавляет апострофы, но для функции пользователя это на совести программиста:

Код: (vb)

Function GetAdress(r As Range) As String
GetAdress = "'" & r.Parent.Name & "'!" & r.Address(0, 0)
End Function

лишними они никогда не будут.

[Alex_Gur]

По поводу названия диапазона - я согласен (так было у пользователя Kuzmich (http://www.excel-vba.ru/forum/index.php?topic=3936.msg21224#msg21224), я это не менял).
И, совершенно верно, уважаемый sv2015, Вы почему-то ведете себя по отношению ко мне очень агрессивно и, к сожалению, уже не в первый раз.
Прошу Вас в будущем так не поступать.
Давайте жить дружно и работать вместе над ответами на сайте!

[Alex_Gur]

Плюс никто не задал логичный вопрос: а откуда черпать адреса ячеек?

Можно предположить, что Annette знает, как преобразовать код, чтобы правильно указать адреса крайних ячеек диапазона.
Если же нет, то тогда она может задать вопрос, и мы ей с удовольствием ответим.

[Дмитрий Щербаков(The_Prist)]

Я даже по-другому вопрос поставлю автору темы: а для чего нужен адрес? Где его потом планируется применять? Зная это можно будет попробовать дать оптимальное решение. Есть подозрение, что можно и без макросов.