Как определить номер строки, где находится кнопка макроса?

@Nura55 · Регистрация: 08.05.2024

Author24 — интернет-сервис помощи студентам

Добрый день.
Подскажите пожалуйста как определить номер строки, на которой находится кнопка?
По нажатию кнопки мне необходимо определять строку, в которой она находится.

ActiveSheet.Shapes(1).TopLeftCell.Address

Конкретный индекс передать не могу, потому как рисуется много кнопок при каждом формировании файла.
Есть ли способы как для активной ячейки только для активной фигуры узнать какие-то данные?
Или может есть какие другие способы узнать эту информацию?

shanemac51 · 18.10.2024, 09:12

Сообщение от Nura55

Подскажите пожалуйста как определить номер строки, на которой находится кнопка?

а зачем нужна кнопка - достаточно клика на ячейке с текстом ЭТИКЕТКА
или даже ГАЛОЧКА, чтобы выбрать группу строк и все вместе распечатать, может даже и в нужном количестве экземпляров

@The_Prist · 18.10.2024, 09:24

Изучайте Applcation.Caller:
Кто вызвал функцию или процедуру?

@Nura55 · 18.10.2024, 09:42 **[ТС]**

Кнопка рисуется макросом только там где надо. Просто я умею только кнопки делать.

Applcation.Caller выдает "Прямоугольник: скругленные угл", но я с этой информацией ничего сделать не могу прикладного.

@The_Prist · 18.10.2024, 09:57

Сообщение от Nura55

но я с этой информацией ничего сделать не могу прикладного

Статью по ссылке тоже прочитать не осилили? Там вроде вполне понятно описано, что с этим делать.
Плохо, что у Вас не хватило смекалки даже с подробным описанием определить, что делать с предложенным вариантом. Подсказка:

Visual Basic

1	ActiveSheet.Shapes("Прямоугольник: скругленные угл").TopLeftCell.Address

@Nura55 · 18.10.2024, 10:08 **[ТС]**

читаю, но не совсем понимаю почему у меня не работает код, скопированный из статьи

Выдает ошибку еще на этой строке Set rFuncCell = Application.Caller 'ячейка с функцией

@The_Prist · 18.10.2024, 10:20

Сообщение от Nura55

Выдает ошибку еще на этой строке Set rFuncCell = Application.Caller 'ячейка с функцией

да уж...Там ведь в самом начале прям почти Ваш случай описан - с применением кнопок и макросов на них. А Вы зачем-то взяли код из вот этой части:

Теперь рассмотрим другую ситуацию, более распространенную. Вы написали свою пользовательскую функцию

У Вас код внутри пользовательской функции(UDF)?

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

Сообщение от Nura55

как определить номер строки, на которой находится кнопка?

Я даже код выше привел, чтобы у Вас мысли появились - видимо, это не тот случай, когда даже прямой намек даст результат.
Но тогда непонятно, почему Вы не прикладываете ни свой код, ни свой файл - чтобы Вам прямо на Ваших данных показали вариант решения? Сами себе усложняете жизнь.

Visual Basic

1	ActiveSheet.Shapes(Applcation.Caller).TopLeftCell.Address

больше нечего предложить, т.к. совершенно неясно куда это и как и где Вы собрались потом применять.
Но это должно быть внутри кода, который вызывается каждой кнопкой напротив ячейки - тогда и будет определено имя именно той кнопки, которая была нажата для вызова макроса.

@Nura55 · 18.10.2024, 11:04 **[ТС]**

есть файл, который формирует задание на работу и во время формирования этого списка к каждой строке макросом формируется автоматически кнопка к строке и автоматом назначается ей другой макрос. Этот макрос уже должен определять текущую строку, в которой находится эта кнопка и запускать печать этикеток. Если бы это все было фиксировано, то у меня даже вопросов бы не возникло.
С Caller просто еще никогда не работала, поэтому с одного щелчка не понимаю что да как. Пытаюсь разобраться.
Вызывается из процедуры обычного модуля.

К сожалению у меня еще не такой уровень познания VBA

Помогите пожалуйста осилить задачку. Вот у меня этот макрос назначается на кнопки, которые автоматически создаются в нужных строках. По первым двум строкам он все выдает адреса, но это если мы знаем конкретный индекс фигуры. Но я то не знаю. Мне вот в это значение индекса нужно передать переменную с индексом нажатой кнопки.
Куда мне нужно прописать Caller, чтобы это заработало?

I can · 18.10.2024, 11:17

Сообщение от Nura55

автоматом назначается ей другой макрос

А в этот макрос нельзя параметром передать адрес кнопки?

@The_Prist · 18.10.2024, 11:25

Сообщение от Nura55

Мне вот в это значение индекса нужно передать переменную с индексом нажатой кнопки

Не нужно. К фигурам можно обращаться по имени, а не обязательно по индексу.
Не хочу полстатьи сюда перецитировать - поэтому и дал ссылку. Будет желание разобраться детальнее, чтобы знать где грабли лежат - перечитаете более вдумчиво(может быть когда чуть опыта наберетесь).

Сообщение от Nura55

Куда мне нужно прописать Caller, чтобы это заработало?

Без Вашего файла и полного кода - остается только гадать куда записывать, что за имена у Ваших Shapes и как к ним можно обратиться.
У Вас же есть MsgBox, который показывает Applciation.Caller. Что там отображается? Есть такая фигура на листе? А понимает ли VBA это имя? В статье о таком тоже упоминается - VBA не всегда понимает локальное имя фигур по умолчанию - чаще всего ему нужно внутреннее имя фигуры(оно на английском).
Поэтому, раз уж кнопки создаются кодом - задавайте кнопкам там же сразу имена, чтобы VBA не толковал их двояко. Только смотрите, чтобы имена кнопок не повторялись на одном листе, иначе можно получить неверный адрес ячейки.
В итоге у Вас должно быть что-то вроде этого:

Visual Basic

Sub CreateShapes()
    Dim os As Shape
    Dim indx&
    
    For indx = 1 To 3
        Set os = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 20, 20 * indx, 100, 50)
        os.Name = "_macro_shape_" & indx
        'один макрос на все кнопки - там определяется автоматом к какой ячейке привязана фигура
        os.OnAction = "RunOnShape" 
    Next
End Sub
Sub RunOnShape()
    MsgBox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
End Sub

Более подробно уже не подскажу, потому что кода создания фигур у нас тоже нет - он у Вас.

@Nura55 · 18.10.2024, 12:55 **[ТС]**

Да, так получилось реализовать задуманное.
При формировании кнопок сразу назначала названия со сменой индексов в названии и по ним уже получилось понять номер нужной строки. Спасибо всем за помощь.
Новую информацию обязательно приму к подробному изучение

@Nura55 1 / 1 / 0 Регистрация: 08.05.2024 Сообщений: 20
		1
	Excel Как определить номер строки, где находится кнопка макроса? 18.10.2024, 09:01. Показов 500. Ответов 10 Метки excel, vba (Все метки) Добрый день. Подскажите пожалуйста как определить номер строки, на которой находится кнопка? По нажатию кнопки мне необходимо определять строку, в которой она находится. ActiveSheet.Shapes(1).TopLeftCell.Address Конкретный индекс передать не могу, потому как рисуется много кнопок при каждом формировании файла. Есть ли способы как для активной ячейки только для активной фигуры узнать какие-то данные? Или может есть какие другие способы узнать эту информацию? Миниатюры 0

shanemac51 Модератор 12096 / 4956 / 791 Регистрация: 07.08.2010 Сообщений: 14,566 Записей в блоге: 4
	18.10.2024, 09:12	2
	Сообщение от Nura55 Подскажите пожалуйста как определить номер строки, на которой находится кнопка? а зачем нужна кнопка - достаточно клика на ячейке с текстом ЭТИКЕТКА или даже ГАЛОЧКА, чтобы выбрать группу строк и все вместе распечатать, может даже и в нужном количестве экземпляров 0

@The_Prist 1634 / 416 / 120 Регистрация: 13.11.2008 Сообщений: 840
	18.10.2024, 09:24	3
	Изучайте Applcation.Caller: Кто вызвал функцию или процедуру? 0

@Nura55 1 / 1 / 0 Регистрация: 08.05.2024 Сообщений: 20
	18.10.2024, 09:42 [ТС]	4
	Кнопка рисуется макросом только там где надо. Просто я умею только кнопки делать. Applcation.Caller выдает "Прямоугольник: скругленные угл", но я с этой информацией ничего сделать не могу прикладного. 0

@Nura55 1 / 1 / 0 Регистрация: 08.05.2024 Сообщений: 20
	18.10.2024, 10:08 [ТС]	6
	читаю, но не совсем понимаю почему у меня не работает код, скопированный из статьи Выдает ошибку еще на этой строке Set rFuncCell = Application.Caller 'ячейка с функцией 0

@Nura55 1 / 1 / 0 Регистрация: 08.05.2024 Сообщений: 20
	18.10.2024, 11:04 [ТС]	8
	есть файл, который формирует задание на работу и во время формирования этого списка к каждой строке макросом формируется автоматически кнопка к строке и автоматом назначается ей другой макрос. Этот макрос уже должен определять текущую строку, в которой находится эта кнопка и запускать печать этикеток. Если бы это все было фиксировано, то у меня даже вопросов бы не возникло. С Caller просто еще никогда не работала, поэтому с одного щелчка не понимаю что да как. Пытаюсь разобраться. Вызывается из процедуры обычного модуля. К сожалению у меня еще не такой уровень познания VBA Помогите пожалуйста осилить задачку. Вот у меня этот макрос назначается на кнопки, которые автоматически создаются в нужных строках. По первым двум строкам он все выдает адреса, но это если мы знаем конкретный индекс фигуры. Но я то не знаю. Мне вот в это значение индекса нужно передать переменную с индексом нажатой кнопки. Куда мне нужно прописать Caller, чтобы это заработало? Миниатюры 0

I can help 4573 / 4144 / 815 Регистрация: 13.04.2015 Сообщений: 9,097
	18.10.2024, 11:17	9
	Сообщение от Nura55 автоматом назначается ей другой макрос А в этот макрос нельзя параметром передать адрес кнопки? 1

@Nura55 1 / 1 / 0 Регистрация: 08.05.2024 Сообщений: 20
	18.10.2024, 12:55 [ТС]	11
	Да, так получилось реализовать задуманное. При формировании кнопок сразу назначала названия со сменой индексов в названии и по ним уже получилось понять номер нужной строки. Спасибо всем за помощь. Новую информацию обязательно приму к подробному изучение 0

Как определить номер строки, где находится кнопка макроса?

Решение