Не действует макрос, вписанный в другой макрос.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не действует макрос, вписанный в другой макрос. (Макросы/Sub)

rotten41

Дата: Суббота, 25.03.2017, 04:05 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброе утро, господа программисты.
Помогите разобраться.

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

Но плеер растягивается только в двух случаях:
1)Если выделенная ячейка в красном столбце - пустая.
2)Если выделить ячейку в красном столбце, а затем мышкой нажать на оранжевую кнопку.

Вообще изменением размеров плеера - занимается Макрос3. Но он, будучи запущенным из кода Листа по событию Private Sub Worksheet_Calculate() почему-то не запускается или не действует....
Хотя если запускать Макрос3 - при нажатии на кнопку - то он работает.

Как заставить макрос все-таки растягивать плеер - по событию Private Sub Worksheet_Calculate() - при имеющемся пути в красном столбце?

К сообщению приложен файл: 2567567.xls (51.5 Kb)

Ответить

KuklP

Дата: Суббота, 25.03.2017, 08:15 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Добавьте в модуль формы:
[vba]

Код

Private Sub UserForm_Initialize()
Макрос3
End Sub

[/vba]и можно убрать это из всех других мест. Дальше, что по-Вашему делают в коде строки
[vba]

Код

If [a1] <> i Then...,
Static previous_selection As String...?

[/vba] Подскажу - а ничего. Мусор, как и множественные пробелы между строками, зачем? Объявляйте обязательное декларирование переменных - Option explicit.
P.S. поэтому я и спрашивал в прошлой теме, какова задача. Меня не интересует Ваше видение решения задачи, я уже по самому вопросу оценил Ваш уровень в программировании(без обид, все мы когда-то начинали и косячили).

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Суббота, 25.03.2017, 08:16

Ответить

rotten41

Дата: Суббота, 25.03.2017, 08:44 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

KuklP,
1) Добавил в модуль формы:
[vba]

Код

Private Sub UserForm_Initialize()
Макрос3
End Sub

[/vba]
И убрал это из всех других мест.

2) Удалил строки
[vba]

Код

If [a1] <> i Then...,
Static previous_selection As String

[/vba]

В итоге - по-прежнему не работает.

К сообщению приложен файл: 2567567-.xls (49.5 Kb)

Ответить

KuklP

Дата: Суббота, 25.03.2017, 08:54 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Не работает что? Вот так у меня выглядит плеер сразу при загрузке файла(и в 2003 и в 2010)

К сообщению приложен файл: 2384947.gif (30.6 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

rotten41

Дата: Суббота, 25.03.2017, 09:35 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

KuklP, все написано в первом сообщении.
При загрузке файла плеер так и выглядел раньше, как изображено на вашем рисунке.

Выделяете в красном столбце - ячейку с адресом.
В этот момент плеер подгружает файл по адресу из ячейки - и - ИЗМЕНЯЕТ свои размеры.

Вопрос - как заставить макрос - ПОДГОНЯТЬ размеры плеера при загрузке файла - по адресу из ячейки красного столбца - к размеру Формы?
(Сейчас подгонка осуществляется нажатием на оранжевую кнопку - с Макросом3)