Excel VBA：如何根据ComboBox选择让UserForm打开对应超链接？

你的代码存在几个关键问题，导致功能无法正常运行，以下是具体修正点和完整代码：

核心问题 #

1. 事件名称错误：你写的Historie_Change不是ComboBox的Change事件，应该是ComboBox1_Change（你的ComboBox控件名称为ComboBox1）。
2. 对象引用错误：Me.Historie.Value引用错误，Me已代表当前UserForm（Historie），直接使用Me.ComboBox1.Value即可。
3. 代码结构不完整：Historie_Change事件缺少End Select和End Sub，会导致编译失败。
4. 冗余引用：With Historie.ComboBox1可简化为With Me.ComboBox1，符合VBA编码规范。

修正后的完整代码 #

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
    ' 初始化ComboBox选项，用Me代表当前UserForm
    With Me.ComboBox1
        .AddItem "xxx"
        .AddItem "yyy"
        .AddItem "WWW"
    End With
End Sub

' 正确的ComboBox1 Change事件
Private Sub ComboBox1_Change()
    Select Case Me.ComboBox1.Value
        Case "xxx"
            Me.CommandButton1.Caption = "Zum Update"
            Me.CommandButton1.Tag = "https://www.google.com" ' 替换为xxx对应的真实链接
        Case "yyy"
            Me.CommandButton1.Caption = "Zum Update"
            Me.CommandButton1.Tag = "https://www.yahoo.com" ' 替换为yyy对应的真实链接
        Case "WWW"
            Me.CommandButton1.Caption = "Zum Update"
            Me.CommandButton1.Tag = "https://www.bing.com" ' 替换为WWW对应的真实链接
    End Select ' 补上缺失的End Select
End Sub ' 补上缺失的End Sub

Private Sub CommandButton1_Click()
    If Me.CommandButton1.Tag <> "" Then
        ThisWorkbook.FollowHyperlink Address:=Me.CommandButton1.Tag
    End If
End Sub

验证步骤 #

1. 打开VBA编辑器（按Alt+F11），找到你的UserForm（Historie）。
2. 删除原来的Historie_Change事件，添加上述ComboBox1_Change事件。
3. 将代码中的超链接地址替换为你实际需要的链接。
4. 运行UserForm，选择ComboBox中的选项后点击按钮，即可打开对应链接。

内容的提问来源于stack exchange，提问作者Semir Hasanovic