Question

我已经在Excel（单元格A2）中为性能检查表创建了一个下拉菜单，其中具有通常的评分选项（优秀，出色，良好等）。目前，我将其绑定到单元格B2中的IF语句，以填充所选等级的说明。

当悬停在下拉列表中的该等级上方时，是否有办法在弹出窗口中显示说明？

例如，如果我将鼠标悬停在“优秀”上方，则会弹出一个窗口，显示该分级的含义。

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

有没有办法在Excel的下拉菜单中显示选项的说明？

1 个答案: