在表单控件组合列表框中插入表单名称超链接

时间:2013-12-09 10:31:12

标签: excel vba excel-vba hyperlink

我有一个Excel工作簿,其中根据动态名称范围中与动态名称范围中的值同名的值创建工作表。

现在我正在尝试创建一个表单控件组合列表框,其中包含所有动态创建的工作表名称的列表,以便它们列出的选项超链接到各自的工作表。

我的怀疑是:

1)如何创建包含超链接的组合框

2)如何获取超链接的工作表名称。

对于2)我认为组合框很容易,我可以将ListFillRange作为动态范围与工作表名称列表。 但是,我如何将这些名称超链接到各自的表格?

1 个答案:

答案 0 :(得分:0)

您无法将超链接添加到下拉列表中。但通过其他方法获得相同的功能是微不足道的。

这会在名称中添加包含bla的所有工作表(动态工作表名称),然后将其列为下拉列表,当下拉列表更改时,您选择的工作表将被激活。

Option Compare Text
Sub test()
    ComboBox1.Clear
    For Each Sheet In Sheets
        If InStr(Sheet.Name, "bla") > 0 Then
            ComboBox1.AddItem (Sheet.Name)
        End If
    Next
End Sub
Private Sub ComboBox1_Change()
    If ComboBox1.Text <> "" Then
        Sheets(ComboBox1.Text).Select
    End If
End Sub