Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Работа и общение » Мозговой штурм » с помощью 88-и символов вывести на msgbox адрес любой ячейки
с помощью 88-и символов вывести на msgbox адрес любой ячейки
LightZ Дата: Среда, 13.06.2012, 21:43 | Сообщение № 1
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

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

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

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
СообщениеВопрос: как с помощью 88-и символов вывести на msgbox адрес любой ячейки?
Ограничения: нельзя использовать имена переменных

ps. сразу говорю - вопрос с подвохом smile
Автор - LightZ
Дата добавления - 13.06.2012 в 21:43
_Boroda_ Дата: Среда, 13.06.2012, 22:13 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

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
 
Ответить
Сообщение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_
Дата добавления - 13.06.2012 в 22:13
LightZ Дата: Среда, 13.06.2012, 22:14 | Сообщение № 3
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

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

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщениебез пробелов и без Sub...End Sub
Автор - LightZ
Дата добавления - 13.06.2012 в 22:14
RAN Дата: Среда, 13.06.2012, 22:27 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

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

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

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Quote (LightZ)
вывести на msgbox адрес любой ячейки?

А что означает "любая"? И почему именно 88?
Автор - RAN
Дата добавления - 13.06.2012 в 22:27
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
 
Ответить
Сообщение
Quote (_Boroda_)
Речь о том

именно 88 символов кода, без Sub[] и End Sub
Quote (RAN)
А что означает "любая"? И почему именно 88?

любая - А1, L444, target, selection, activecell и т.п
сможете больше? smile
Автор - LightZ
Дата добавления - 13.06.2012 в 22:33
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
 
Ответить
Сообщениенужно вывести msgbox с адресом *любой* ячейки, и чтобы в данном коде было 88 символов
что-то типа:
MsgBox Range("A1").Application.Range("A1").Application.Range("A1").Application.[a1].Address

только этот вариант не катит smile
Автор - LightZ
Дата добавления - 13.06.2012 в 22:40
_Boroda_ Дата: Среда, 13.06.2012, 23:15 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

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)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение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)
Автор - _Boroda_
Дата добавления - 13.06.2012 в 23:15
MCH Дата: Среда, 13.06.2012, 23:15 | Сообщение № 8
Группа: Админы
Ранг: Старожил
Сообщений: 2003
Репутация: 751 ±
Замечаний: ±

[vba]
Код
MsgBox Left("Здесь пишите столько символов, сколько нужно до 88", 0) & Range("A1").Address
[/vba]
 
Ответить
Сообщение[vba]
Код
MsgBox Left("Здесь пишите столько символов, сколько нужно до 88", 0) & Range("A1").Address
[/vba]
Автор - MCH
Дата добавления - 13.06.2012 в 23:15
LightZ Дата: Среда, 13.06.2012, 23:18 | Сообщение № 9
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

можно и так. но у меня ответ совершенно другой
есть ещё варианты?
если нет - буду "раскрывать карты"

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщениеможно и так. но у меня ответ совершенно другой
есть ещё варианты?
если нет - буду "раскрывать карты"
Автор - LightZ
Дата добавления - 13.06.2012 в 23:18
LightZ Дата: Четверг, 14.06.2012, 20:05 | Сообщение № 10
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

Quote (LightZ)
если нет - буду "раскрывать карты"

Ответ:
MsgBox [a1....................................................................a1].Address

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщение
Quote (LightZ)
если нет - буду "раскрывать карты"

Ответ:
MsgBox [a1....................................................................a1].Address
Автор - LightZ
Дата добавления - 14.06.2012 в 20:05
RAN Дата: Четверг, 14.06.2012, 21:59 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
LightZ, и где тут любая ячейка?
"Любая" и "любая, как либо указанная" - далеко не одно и то же.
sad

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение LightZ, и где тут любая ячейка?
"Любая" и "любая, как либо указанная" - далеко не одно и то же.
sad
Автор - RAN
Дата добавления - 14.06.2012 в 21:59
LightZ Дата: Четверг, 14.06.2012, 22:04 | Сообщение № 12
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

сорри, имел ввиду "любая, как либо указанная"

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщениесорри, имел ввиду "любая, как либо указанная"
Автор - LightZ
Дата добавления - 14.06.2012 в 22:04
LightZ Дата: Четверг, 14.06.2012, 22:05 | Сообщение № 13
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

погнали ещё с вопросами по vba

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщениепогнали ещё с вопросами по vba
Автор - LightZ
Дата добавления - 14.06.2012 в 22:05
Мир MS Excel » Работа и общение » Мозговой штурм » с помощью 88-и символов вывести на msgbox адрес любой ячейки
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!