Как добавить пользовательскую кнопку в контекстное меню (правой кнопкой мыши) в Excel?

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

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

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

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

1. Нажмите клавиши Alt + F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щелкните ThisWorkbook в левой панели Проекта. Затем скопируйте и вставьте приведенный ниже 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. Нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

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

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Связанные статьи:

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