Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Размещение на кнопке - ссылок на файлы и макросы
 
#1
18.11.2023 03:54:07
Здравствуйте, уважаемые специалисты.
Помогите с решением.

Имеется макрос, который назначает шейпам на листе - макрос, по которому открываются экзешники, записанные в таблицу AC5:AD

Как по тому же принципу навесить на кнопку - не один экзешник, а несколько экзешников и несколько макросов ?
Их адреса и названия размещены в таблице AE5:AH
 
 
 
#2
18.11.2023 04:20:05
А по нажатию на фигуру что выполнять? Какой exe из списка? Какой макрос?
Согласие есть продукт при полном непротивлении сторон.

Контакты, благодарности
 
 
 
#3
18.11.2023 04:41:09
Цитата
написал:
А по нажатию на фигуру что выполнять? Какой exe из списка? Какой макрос?
В смысле "какой макрос" ?
Там сейчас действует вот этот макрос, который назначается на все фигуры:
Код
Sub SetMakro()
Dim iShape As Shape
For Each iShape In Worksheets("Лист2").Shapes
On Error Resume Next
  If iShape.DrawingObject.Caption <> "Назначить кнопки" Then
    iShape.OnAction = "RunEXE"
  End If
Next
End Sub

Private Sub RunEXE()
Dim iShape As Shape
Dim iEXE$
On Error Resume Next
Set iShape = Worksheets("Лист2").Shapes(Application.Caller)
If Not iShape Is Nothing Then
  With Worksheets("Лист2")
    iEXE = Application.WorksheetFunction.VLookup(iShape.DrawingObject.Caption, .Range("AC5:AD" & .Cells(.Rows.Count, "AC").End(xlUp).Row), 2, 0)
  End With
  If Not IsEmpty(iEXE) Then
    Shell iEXE, vbNormalFocus
  End If
End If
End Sub

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

Мой вопрос заключается в том - как на одну фигуру, назначить большее количество экзешников и отдельные макросы.
То есть таблица, по которой это назначение идет - будет не один столбец AD5:AD, а большее количество столбцов AD5:AH
 
 
 
#4
18.11.2023 04:49:59
Цитата
Serg.Vrn написал:
В смысле "какой макрос" ?
В прямом. Как макросу понять, какой exe из списка (в строке, напротив названия фигуры) выполнять при очередном нажатии на фигуру?
Изменено: Sanja - 18.11.2023 04:51:09
Согласие есть продукт при полном непротивлении сторон.

Контакты, благодарности
 
 
 
#5
18.11.2023 04:57:35
Как вариант - сами выбирайте столбец в таблице с нужным .exe или макросом
Скрытый текст

П.С. переписал код с устранением ошибки, если название фигуры - число
Согласие есть продукт при полном непротивлении сторон.

Контакты, благодарности
 
 
 
#6
18.11.2023 05:27:15
Еще вариант. Указывать номер столбца с нужными макросами при нажатии на черную фигуру 'Назначить...'
Согласие есть продукт при полном непротивлении сторон.

Контакты, благодарности
 
 
 
#7
18.11.2023 05:41:20
Sanja, спасибо.
Но это по-прежнему - все то же самое.

Нужно не один столбец какой-то выбрать, а назначить - все столбцы - для одной кнопки.
Изменено: Serg.Vrn - 18.11.2023 05:41:39
 
 
 
#8
18.11.2023 05:42:07
Ну тогда ответьте на этот вопрос
Цитата
Sanja написал:
Как макросу понять, какой exe из списка (в строке, напротив названия фигуры) выполнять при очередном нажатии на фигуру?
А еще лучше опишите ЗАДАЧУ, которую решаете, а не СПОСОБ, которым пытаетесь ее решить
Изменено: Sanja - 18.11.2023 05:44:21
Согласие есть продукт при полном непротивлении сторон.

Контакты, благодарности
 
 
 
#9
18.11.2023 06:23:41
Название темы бы вошло в топ 3 из 10 угарных названий если бы был такой топ )
Изменено: testuser - 18.11.2023 06:23:57
 
 
 
#10
18.11.2023 06:25:33
Цитата
написал:
А еще лучше опишите ЗАДАЧУ, которую решаете, а не СПОСОБ, которым пытаетесь ее решить
Задача звучит так:
Цитата
написал:
Как навесить на кнопку - не один экзешник, а несколько экзешников и несколько макросов ?
Вот это и есть задача.
Чтобы по щелчку по кнопке - запускался не один экзешник, а несколько определенных экзешников и макросов.
 
 
 
#11
18.11.2023 06:33:54
Цитата
Serg.Vrn написал:
Чтобы по щелчку по кнопке - запускался не один экзешник, а несколько определенных экзешников и макросов

Вариант. Запускает все exe и макросы, указанные в строке, по очереди
Согласие есть продукт при полном непротивлении сторон.

Контакты, благодарности
 
 
 
#12
18.11.2023 06:50:06
Sanja, спасибо.
 
 
 
#13
18.11.2023 07:27:38
Вау! Угадал)
Вам достаточно было в вопросе добавить слова 'по очереди'  :D
Изменено: Sanja - 18.11.2023 07:28:41
Согласие есть продукт при полном непротивлении сторон.

Контакты, благодарности
 
 
 
#14
18.11.2023 07:46:35
Sanja
Цитата
Вау! Угадал)
Теперь вас точно возьмут в клуб ясновидящих :D  
 
 
 
Страницы: 1
Наверх