在一个组合框中切换两个动态范围时请求vba代码

Private Sub ComboBox1_Change()
    Dim selectedValue As String
    Dim range1 As Range
    Dim range2 As Range
    
    ' 获取组合框的选定值
    selectedValue = Me.ComboBox1.Value
    
    ' 根据选定值选择不同的动态范围
    If selectedValue = "范围1" Then
        Set range1 = Worksheets("Sheet1").Range("A1:A10")
        ' 进行适当的操作，如数据处理或图表生成等
        ' ...
    ElseIf selectedValue = "范围2" Then
        Set range2 = Worksheets("Sheet1").Range("B1:B10")
        ' 进行适当的操作，如数据处理或图表生成等
        ' ...
    End If
End Sub