Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Назначение-удаление макроса на фигуру - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Назначение-удаление макроса на фигуру (Макросы/Sub)
Назначение-удаление макроса на фигуру
odeon16 Дата: Воскресенье, 03.12.2017, 10:14 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте.
Помогите с решением проблемы.

Обрисую суть проблемы.
На листе две фигуры "Овал 2" и "Прямоугольник 1". И также в книге находится простой макрос "Макрос1".

Как при одном щелчке на фигуру "Овал 2" - назначить "Макрос 1" - фигуре "Прямоугольник 1" ?
А при повторном щелчке на фигуру "Овал 2" - удалить макрос с фигуры "Прямоугольник 1".
К сообщению приложен файл: 2384509-.xls(35Kb)
 
Ответить
СообщениеЗдравствуйте.
Помогите с решением проблемы.

Обрисую суть проблемы.
На листе две фигуры "Овал 2" и "Прямоугольник 1". И также в книге находится простой макрос "Макрос1".

Как при одном щелчке на фигуру "Овал 2" - назначить "Макрос 1" - фигуре "Прямоугольник 1" ?
А при повторном щелчке на фигуру "Овал 2" - удалить макрос с фигуры "Прямоугольник 1".

Автор - odeon16
Дата добавления - 03.12.2017 в 10:14
RAN Дата: Воскресенье, 03.12.2017, 10:28 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4622
Репутация: 937 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub Макрос1()
    With ActiveSheet.Shapes("Rectangle 1")
        If .OnAction = "qq" Then
            .OnAction = ""
        Else
            .OnAction = "qq"
        End If
    End With
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub Макрос1()
    With ActiveSheet.Shapes("Rectangle 1")
        If .OnAction = "qq" Then
            .OnAction = ""
        Else
            .OnAction = "qq"
        End If
    End With
End Sub
[/vba]

Автор - RAN
Дата добавления - 03.12.2017 в 10:28
odeon16 Дата: Воскресенье, 03.12.2017, 10:44 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
RAN, все работает.
Спасибо.
 
Ответить
СообщениеRAN, все работает.
Спасибо.

Автор - odeon16
Дата добавления - 03.12.2017 в 10:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Назначение-удаление макроса на фигуру (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!