使用VBA将工具提示添加到Excel中的ComboBox

Question

我在Sheet中添加了两个Dropdown(又名ComboBox)

使用这段代码我可以访问Dropdown但是如何在Dropdown上添加工具提示？

最好的解决办法是,以示对每个项目不同的文本,但是如果只有整个下拉的唯一工具提示我可以选择每个项目后更改它.

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