нужен макрос для определения адреса ячейки в котрой находится кнопка

dzip

Гость

07.05.2008 13:07:26

кнопка - самая обычная- на которую вешается выполнение любого макроса .. насколько я понимаю эксель их таки привязывает к ячейке т.к. если копировать строку где есть кнопка то скопируется и сама кнопка... для надежности- прикрепил файл :)

так вот .. хочу чтобы по нажатии копка выдавала адрес ячейки на которой она висит.

гугль безмолствует! .. :)

Прикрепленные файлы

post_16944.xls (17.5 КБ)

слэн Гость	#2 07.05.2008 22:28:59 shapes(..).topleftcell.addres

Дмитрий Гость	#3 08.05.2008 08:38:29 Прошу прощения... У меня не работает... Может что-то не так делаю.. Пишу так: Shapes("Button 1").TopLeftCell.Address или так Worksheets("Лист1").Shapes.Item(ParamAdress_btn3).TopLeftCell.Address где ParamAdress_btn3 -индекс Подскажите, как правильно..

слэн Гость	#4 08.05.2008 09:29:03 Sub Макрос1() MsgBox ActiveSheet.Shapes(1).TopLeftCell.Address End Sub - работает

слэн Гость	#5 08.05.2008 09:31:04 в первом обращении у вас лишний пробел, во втором item ..

dzip Гость	#6 08.05.2008 11:11:11 оппа ... супер .. а если не TopLeft а низ по цетру?? гугль дал еще один рабочий вариант: Sub Ìàêðîñ1() ActiveSheet.Shapes(1).BottomRightCell.Select End Sub ну и ваш: Sub Ìàêðîñ1() ActiveSheet.Shapes(1).TopLeftCell.Select End Sub

слэн Гость	#7 08.05.2008 14:00:35 cells(bottomright.row, int((topleft.column+bottomright.column)/2)).address

dzip

Гость

08.05.2008 14:42:26

{quote}{login=слэн}{date=08.05.2008 02:00}{thema=}{post}cells(bottomright.row,
int((topleft.column+bottomright.column)/2)).address{/post}{/quote}

скс ... я думал еще есть что-то типа этих двух вариантов чтобы сразу выбирал нужную ячейку снизу ... но вроде как нету .. а если идти путем того что плясать от одной из этих выбранных ячеек, то через оффсет помоему проще:

ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(1, -1).Select

слэн

Гость

08.05.2008 14:50:09

{quote}{login=dzip}{date=08.05.2008 02:42}{thema=Re: }{post}{quote}{login=слэн}{date=08.05.2008 02:00}{thema=}{post}cells(bottomright.row,
int((topleft.column+bottomright.column)/2)).address{/post}{/quote}

скс ... я думал еще есть что-то типа этих двух вариантов чтобы сразу выбирал нужную ячейку снизу ... но вроде как нету .. а если идти путем того что плясать от одной из этих выбранных ячеек, то через оффсет помоему проще:

ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(1, -1).Select{/post}{/quote}

почему именно 1,-1 ?

Guest

Гость

#10

08.05.2008 17:50:00

{quote}{login=слэн}{date=08.05.2008 02:50}{thema=Re: Re: }{post}{quote}{login=dzip}{date=08.05.2008 02:42}{thema=Re: }{post}{quote}{login=слэн}{date=08.05.2008 02:00}{thema=}{post}cells(bottomright.row,
int((topleft.column+bottomright.column)/2)).address{/post}{/quote}

скс ... я думал еще есть что-то типа этих двух вариантов чтобы сразу выбирал нужную ячейку снизу ... но вроде как нету .. а если идти путем того что плясать от одной из этих выбранных ячеек, то через оффсет помоему проще:

ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(1, -1).Select{/post}{/quote}

почему именно 1,-1 ?{/post}{/quote}

от фонаря - скопировал первое что под руку попалось :) .. просто чтобы показать что можно на любую ячейку так выйти при том точка отсчета для выбора - расположение самой кнопки.

слэн Гость	#11 10.05.2008 09:32:58 это пальцем в небо - может размеры кнопки в десять раз меньше размеров окружающих ячеек, а может наоборот.. в 100 раз больше

Читают тему