Как по нажатой кнопке определить содержимое ячейки и подставить его в макрос

@se_arts · Регистрация: 15.10.2016

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

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

У меня есть множество mp3 файлов.
Каждый из них необходимо прикрепить к своей кнопке. Открываю сторонней программой AmpView.
Работающий код:

Visual Basic
1
2
3
Sub START_mp3_1()
Shell "d:\20\AmpView.exe d:\20\1.mp3", vbNormalFocus
End Sub

Чтобы выполнить мою задачу мне нужно разместить и подключить более 10 000 mp3 файлов. Для этого необходимо написать столько же макросов и прикрепить каждый макрос к своей кнопке.

Подскажите, как можно сделать один универсальный макрос (он будет установлен на кнопку и кнопка будет клонироваться 10 000 раз), который будет выглядеть:

Visual Basic
1
Shell "d:\20\AmpView.exe Х", vbNormalFocus

где Х - значение ячейки в которой находится нажатая кнопка (в ячейках будет прописан адрес к нужному звуку), т.е. по нажатой кнопке (ячейки А1,А2,А3) эксель определяет ячейку в которой находится эта кнопка, берет содержимое этой ячейки (адрес к звуку, например: d:\20\1.mp3) и подставляет его в макрос. В итоге должна получиться запись: Shell "d:\20\AmpView.exe d:\20\1.mp3", vbNormalFocus
Файл эксель и AmpView прикрепил.

Заранее всем спасибо.

@bmv98rus · 02.12.2019, 22:41

какой именно? Сделайте пример. У меня все работает.

@se_arts · 04.12.2019, 14:57 **[ТС]**

bmv98rus, у Вас запускался случайный звук при использовании кода из сообщения 19 ?

Добавлено через 9 минут
bmv98rus, с ошибкой объявления функции разобрался - не закоментировал одну строку, в ней упоминалась эта функция.
Проверил все несколько раз вроде больше ничего нет, но звук совсем не запускается, не понимаю, что ему не нравится.
Если Вы говорите, что все работает, буду у себя снова смотреть - где-то что-то не так.

@se_arts · 04.12.2019, 16:07 **[ТС]**

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

@bmv98rus · 04.12.2019, 20:34

se_arts,
1. Так как не знал что у вас в ячейках, то не указывал последний слэш в пути
2. мелкая доработка, в области округления

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Const strFolder = "D:\20\"
    Const ApplPath = "D:\20\AmpView\AmpView.exe"
    Const LastIndex = 10
 
    If Len(Target) > 0 Then
        For i = 1 To LastIndex
            If FileExist(strFolder & Target & i & ".mp3") Then strList = strList & "," & _
            strFolder & Target & i & ".mp3"
        Next
        If Len(strList) > 0 Then
            arrList = Split(Mid(strList, 2), ",")
            Randomize
            Terminate_Proc ("AmpView.exe")
            CreateObject("WScript.Shell").Run ApplPath & " " & _
                arrList(Round(Rnd() * UBound(arrList), 0)), vbNormalFocus
        End If
    End If
    Cancel = True
End Sub

Возможно нужно путь привязать к пути книги, это не сложно.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Const ApplRelPath = "AmpView\AmpView.exe"
    strFolder = ThisWorkbook.Path & "\"
    ApplPath = strFolder & ApplRelPath
    
    Const LastIndex = 10
 
    If Len(Target) > 0 Then
        For i = 1 To LastIndex
            If FileExist(strFolder & Target & i & ".mp3") Then strList = strList & "," & _
            strFolder & Target & i & ".mp3"
        Next
        If Len(strList) > 0 Then
            arrList = Split(Mid(strList, 2), ",")
            Randomize
            Terminate_Proc ("AmpView.exe")
            CreateObject("WScript.Shell").Run ApplPath & " " & _
                arrList(Round(Rnd() * UBound(arrList), 0)), vbNormalFocus
        End If
    End If
    Cancel = True
End Sub

@se_arts · 04.12.2019, 23:24 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@bmv98rus 110 / 75 / 33 Регистрация: 20.10.2019 Сообщений: 198
	02.12.2019, 22:41
	какой именно? Сделайте пример. У меня все работает. 0

@se_arts 0 / 0 / 0 Регистрация: 15.10.2016 Сообщений: 91
	04.12.2019, 14:57 [ТС]
	bmv98rus, у Вас запускался случайный звук при использовании кода из сообщения 19 ? Добавлено через 9 минут bmv98rus, с ошибкой объявления функции разобрался - не закоментировал одну строку, в ней упоминалась эта функция. Проверил все несколько раз вроде больше ничего нет, но звук совсем не запускается, не понимаю, что ему не нравится. Если Вы говорите, что все работает, буду у себя снова смотреть - где-то что-то не так. 0

@se_arts 0 / 0 / 0 Регистрация: 15.10.2016 Сообщений: 91
	04.12.2019, 23:24 [ТС]
	bmv98rus, спасибо огромное за помощь, все прекрасно работает, все 3 варианта - проблема была со скобкой - я должен был сам нормально проверить путь. Спасибо за помощь, множество вариантов и обучение - очень хочется верить, что я тоже чему-то научился. 0