使用VBA向Excel中的组合框添加工具提示

我在一张工作表中添加了两个下拉列表（又名ComboBox）

使用这段代码，我可以访问下拉列表，但如何在下拉列表中添加工具提示

最好的解决方案是为每个项目显示不同的文本，但如果整个下拉列表只有唯一的工具提示，我可以在选择每个项目后更改它

Sub DropDown1_Change()

    Dim s As Object
    Set s = ActiveSheet.Shapes(Application.Caller)
    s.ToolTip = "Example"
    Debug.Print s.ControlFormat.Value

End Sub

---

这是一个表单组合框，它没有工具提示功能，但您可以让它看起来像有工具提示一样

在组合框下方放置一个带有屏幕提示的超链接，当您将鼠标悬停在组合框上时，屏幕提示将弹出。 如果要在多个单元格上拉伸组合框，可以在多个单元格上放置超链接

这样地

这是一个20秒的剪辑

您可以使用application.caller获取组合框的范围

将每个组合框指定给此宏，则只需要一个宏

Sub DoIt()
    Dim r As Range
    r = ActiveSheet.Shapes(Application.Caller).TopLeftCell
    ActiveSheet.Hyperlinks.Add Anchor:=r, Address:=r, ScreenTip:="5435435345", TextToDisplay:="ddddddddddddddddddd"
End Sub

以下是我的代码：

Private Sub ComboBox1_Click()
   ' Adding new items
   ComboBox1.AddItem ("S")
   ComboBox1.AddItem ("M")

   If ComboBox1.Text = "S" Then  'Add your dropdown item here
   With Me.ComboBox1
   .ControlTipText = "Strong"  ' Add your text here
   End With
   End If
   If ComboBox1.Text = "M" Then   'Add your dropdown item here
   With Me.ComboBox1
   .ControlTipText = "Moderate" ' Add your text here
   End With
   End If

End Sub

---

工作表上的组合框没有工具提示属性，但是您可以将它们放在用户窗体上，并设置

ControlTipText

属性。@ashleedawg:不，在属性上，我只有一些Excel样式属性，但没有Visual Studio样式属性。没有类似于TooltipText的内容。谢谢！我试着用VBA来做，但我需要一些帮助。你能看一下吗？