Есть ли способ показать объяснение опции в выпадающем меню в Excel?

Question

Я создал раскрывающееся меню в Excel (ячейка A2) для листа с обзором производительности, в котором есть обычные параметры оценки (Отлично, Отлично, Хорошо и т. Д.).В настоящее время я привязан к выражению IF в ячейке B2, чтобы заполнить объяснение выбранного рейтинга.

Есть ли способ вызвать объяснение во всплывающем окне при наведении указателя мыши на этот рейтинг в раскрывающемся списке?

Например, если бы я завис над «Отлично», всплывающее окно показало бы, что означает этот рейтинг.

Answer 1

Да, есть. Сначала вставьте комментарий, щелкнув правой кнопкой мыши на A2 и вставив комментарий (это можно сделать с помощью VBA, но для простоты примера сделайте это вручную).

Затем используйте событие Worksheet_Change на листе, чтобы вызвать изменение раскрывающегося списка. Отправьте текстовое значение в другую функцию, которая редактирует комментарий с нужным описанием (это можно сделать с помощью функции Worksheet_Change, но я предпочитаю разделять. См. Ниже код:

В модуле листа:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub

    Call ChangeText(Range("A2").Text)

End Sub

В обычном модуле:

Sub ChangeText(iTxt As String)

    If iTxt = "Excellent" Then
        Range("A2").Comment.Text Text:="A"
    ElseIf iTxt = "Good" Then
        Range("A2").Comment.Text Text:="B"
    ElseIf iTxt = "Bad" Then
        Range("A2").Comment.Text Text:="C"
    End If

End Sub