Application.inputbox

Application.inputbox, как получить адрес выбранного диапазона (ячейки) с названием листа

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

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

01.07.2013 16:49:35

Добрый день!
Не получилось к сожалению самостоятельно разобраться с этой функцией
fSearchCelladr = Application.InputBox("ХХХХХХХХХХХ", "хххххххххххì", Type:= 8) .Address
В адресе диапазона (ячейки) который возвращается этой функцией не указывается ссылка на лист, даже если она присутствует в окне выбора. Возвращает только адрес вида "$A$1"
Задача стоит получать адреса ячеек с разных листов, а не только с активного.
Вобщем, хелп ми плиз

Изменено: jfd - 01.07.2013 17:26:23

Hugo

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

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

01.07.2013 17:02:23

Код
With Application.InputBox("ХХХХХХХХХХХ", "хххххххххххi", Type:=8) fSearchCelladr = .Parent.Name & " - " & .Address End With MsgBox fSearchCelladr

Изменено: Hugo - 01.07.2013 17:02:41

jfd Пользователь Сообщений: 302 Регистрация: 01.01.1970	#3 01.07.2013 17:11:01 Hugo, для моих целей вставка " - " лишняя, но в остальном все отлично. спасибо за подсказку

Hugo Пользователь Сообщений: 23799 Регистрация: 22.12.2012	#4 01.07.2013 17:16:08 Так на вставке не настаиваю Что-то нужно было воткнуть...

The_Prist

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

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

Профессиональная разработка приложений для MS Office

01.07.2013 18:43:04

Можно еще и с именем книги:

Код
Dim fSearchCelladr As String With Application.InputBox("", "", Type:=8) fSearchCelladr = .Address(External:=True) End With MsgBox fSearchCelladr

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Hugo Пользователь Сообщений: 23799 Регистрация: 22.12.2012	#6 01.07.2013 22:04:06 Дима, спасибо за External:=True - не знал. Хотя в хелпе по Range.Address Property есть Может запомнится...