Добавление всплывающей подсказки в ComboBox в Excel с VBA

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

Ниже мой код:

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

Answer 2

Это комбинированный список форм, у него не было бы возможности всплывающей подсказки, но вы можете сделать так, чтобы у него была подсказка.

Поместите гиперссылку с кончиком экрана под комбинированный список, когда вы наведете курсор мыши на комбобокс, появится всплывающая подсказка. Вы можете разместить гиперссылку на многих ячейках, если вы намерены растянуть комбинированный список над многими ячейками.

Как это

Вот 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