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

Question

我在工作表中添加了兩個下拉列表（又名 ComboBox）

使用這段代碼，我可以訪問下拉菜單，但如何在下拉菜單上添加工具提示？

最好的解決方案是為每個項目顯示不同的文本，但如果整個下拉菜單只有一個唯一的工具提示，我可以在選擇每個項目后更改它。

Sub DropDown1_Change()

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

End Sub

Answer 1

這是一個表單組合框，它沒有工具提示功能，但您可以讓它看起來像一個工具提示。

在組合框下方放置一個帶有屏幕提示的超鏈接，當您將鼠標懸停在組合框上時，屏幕提示會彈出。 如果您打算在多個單元格上拉伸組合框，您可以將超鏈接放置在多個單元格上。

像這樣

這是一個 20 秒的剪輯http://www.screencast.com/t/ZbkEOyXntItk

您可以使用 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

Answer 2

以下是我的代碼：

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