Контекстное меню макрос excel

Программное добавление кнопки в контекстное меню ячейки (строки, столбца) из кода VBA Excel. Свойство CommandBars объекта Application.

Свойство Application.CommandBars

Свойство CommandBars объекта Application возвращает коллекцию командных панелей Microsoft Excel.

Примеры командных панелей, вызываемых кликом правой кнопки мыши (контекстных меню):

Добавление кнопки из кода VBA Excel в контекстное меню ячейки. Кнопки в контекстные меню строк и столбцов добавляются аналогично.

Если хотите создать постоянную кнопку для контекстного меню, используйте параметр Temporary метода Controls.Add в значении False, которое применяется по умолчанию:

Созданная предыдущим кодом VBA временная кнопка контекстного меню ячейки будет утилизирована только при закрытии приложения Microsoft Excel. Это означает, что если в приложении открыты несколько книг, тогда после закрытия книги с кодом, создавшим кнопку, она продолжит существование и будет доступна из других открытых книг. Если это не желательно, можно удалить кнопку следующей строкой:

Эта же строка удалит и постоянную кнопку.

Примеры добавления и удаления кнопок

Пример 1

Добавление кнопки в контекстное меню ячейки из кода VBA Excel при открытии книги и удаление кнопки при закрытии книги.

Добавление кнопки (код размещается в модуле книги):

Удаление кнопки (код размещается в модуле книги):

Вызываемая процедура (код размещается в стандартном модуле):

Пример 2

Добавление кнопки в контекстное меню ячейки из кода VBA Excel при открытии контекстного меню и удаление кнопки при завершении вызываемой процедуры.

Добавление кнопки (код размещается в модуле книги):

Удаление кнопки при закрытии книги, если она при вызове контекстного меню не была нажата и не была удалена назначенным ей макросом (код размещается в модуле книги):

Вызываемая процедура с кодом удаления вызвавшей ее кнопки из контекстного меню (код размещается в стандартном модуле):

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

Добавить пользовательскую кнопку в контекстное меню в Excel с кодом VBA

Добавить пользовательскую кнопку в контекстное меню в Excel с кодом VBA

Предположим, вы создали сценарий VBA с именем MyMacro в своем Excel, и теперь вам нужно добавить эту функцию в контекстное меню для запуска кода, просто щелкнув его. Пожалуйста, сделайте следующее.

1. нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, дважды щелкните Эта рабочая тетрадь слева Проекты под застройку панель. Затем скопируйте и вставьте приведенный ниже код VBA в ThisWorkbook (Код) окно.

Код VBA: добавить пользовательскую кнопку в контекстное меню в Excel

Private Sub Workbook_Deactivate()
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
        End With
    On Error GoTo 0
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim cmdBtn As CommandBarButton
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
            Set cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)
        End With

        With cmdBtn
           .Caption = "MyMacro"
           .Style = msoButtonCaption
           .OnAction = "MyMacro"
        End With
    On Error GoTo 0
End Sub

Внимание: В коде замените все «MyMacro» с именем макроса, который вы создали в Excel.

3. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.

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

Статьи по теме:

• HКак вставить новую пустую строку автоматически с помощью командной кнопки в Excel?
• Как использовать командную кнопку для сохранения активного рабочего листа в виде файла PDF в Excel?
• Как сохранить и закрыть активную книгу без запроса командной кнопки в Excel?
• Как обновить или вставить (текущую) дату и время с помощью командной кнопки в Excel?
• Как отключить кнопку после однократного нажатия в Excel?

Комментарии (15)