с помощью 88-и символов вывести на msgbox адрес любой ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин

LightZ

Дата: Среда, 13.06.2012, 21:43 | Сообщение № 1

Группа: Авторы

Ранг: Форумчанин

Сообщений: 120

Репутация: 48 ±

Замечаний: 0% ±

Вопрос: как с помощью 88-и символов вывести на msgbox адрес любой ячейки?
Ограничения: нельзя использовать имена переменных

ps. сразу говорю - вопрос с подвохом smile

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296

Ответить

_Boroda_

Дата: Среда, 13.06.2012, 22:13 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16734

Репутация: 6534 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

88 символов - это типа
SUB Y
END SUB
-12 символов (с пробелами)?
Или иначе считается?
если так, то
[vba]

Code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
End Sub

[/vba]
А где подвох?
Можно 80 символов - без Private

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

LightZ

Дата: Среда, 13.06.2012, 22:14 | Сообщение № 3

Группа: Авторы

Ранг: Форумчанин

Сообщений: 120

Репутация: 48 ±

Замечаний: 0% ±

без пробелов и без Sub...End Sub

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296

Ответить

RAN

Дата: Среда, 13.06.2012, 22:27 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Quote (LightZ)

вывести на msgbox адрес любой ячейки?

А что означает "любая"? И почему именно 88?

Быть или не быть, вот в чем загвоздка!

Ответить

LightZ

Дата: Среда, 13.06.2012, 22:33 | Сообщение № 5

Группа: Авторы

Ранг: Форумчанин

Сообщений: 120

Репутация: 48 ±

Замечаний: 0% ±

Quote (_Boroda_)

Речь о том

именно 88 символов кода, без Sub[] и End Sub

Quote (RAN)

А что означает "любая"? И почему именно 88?

любая - А1, L444, target, selection, activecell и т.п
сможете больше? smile

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296

Ответить

LightZ

Дата: Среда, 13.06.2012, 22:40 | Сообщение № 6

Группа: Авторы

Ранг: Форумчанин

Сообщений: 120

Репутация: 48 ±

Замечаний: 0% ±

нужно вывести msgbox с адресом *любой* ячейки, и чтобы в данном коде было 88 символов
что-то типа:
MsgBox Range("A1").Application.Range("A1").Application.Range("A1").Application.[a1].Address

только этот вариант не катит smile

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296

Ответить

_Boroda_

Дата: Среда, 13.06.2012, 23:15 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16734

Репутация: 6534 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

88 символов
MsgBox Target.Address(ReferenceStyle:=xlR1C1, RowAbsolute:=False, ColumnAbsolute:=False)

Quote (LightZ)

сможете больше?

Смогу
144 символа
MsgBox Target.Address(ReferenceStyle:=xlR1C1, RowAbsolute:=False, ColumnAbsolute:=False, RelativeTo:=Worksheets(1).Cells(1, 1), External:=False)