Макросом определить адрес диапазона с данными для выпадающего списка

Пользователь

Сообщений: 85 Регистрация: 07.03.2020

28.09.2020 19:12:26

Здравствуйте.
Подскажите пожалуйста, как макросом узнать адрес диапазона ячеек, где лежат данные для выпадающего списка?

Допустим в ячейке А1 есть выпадающий список, с данными из ячеек В1:В10.
Как макросом узнать этот диапазон В1:В10?

Изменено: rud.666 - 28.09.2020 19:15:39

New

Пользователь

Сообщений: 4837 Регистрация: 06.01.2013

28.09.2020 20:57:04

Пожалуйста, в следующий раз прикладывайте пример в файле Excel. За вас делать пример и тестировать в нём код люди не очень горят желанием

Код

Sub Макрос1()
    With Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=$B$1:$B$10"
    End With
End Sub

Sub Макрос2()
Dim str As String, Rng as Range
    str = Range("A1").Validation.Formula1
    MsgBox str
    Set rng = Range(str)
    rng.Select
End Sub

Изменено: New - 28.09.2020 20:58:02

rud.666 Пользователь Сообщений: 85 Регистрация: 07.03.2020	#3 28.09.2020 21:03:32 New, большое спасибо!