Excel VBA，用于定义执行多条件排序的范围的弹出窗口

Sub ShowSortDialog()
    Dim SortForm As New UserForm
    
    ' 设置弹出窗口的属性
    With SortForm
        .Caption = "多条件排序"
        .Width = 300
        .Height = 200
    End With
    
    ' 添加输入框和按钮控件
    With SortForm
        ' 添加输入框控件，用于输入排序的范围
        Dim RangeLabel As New Label
        RangeLabel.Caption = "排序范围："
        RangeLabel.Left = 10
        RangeLabel.Top = 10
        .Controls.Add RangeLabel
        
        Dim RangeTextBox As New TextBox
        RangeTextBox.Left = 100
        RangeTextBox.Top = 10
        .Controls.Add RangeTextBox
        
        ' 添加按钮控件，用于执行排序操作
        Dim SortButton As New CommandButton
        SortButton.Caption = "排序"
        SortButton.Left = 100
        SortButton.Top = 50
        .Controls.Add SortButton
        
        ' 定义按钮的点击事件处理程序
        Private Sub SortButton_Click()
            Dim SortRange As Range
            Set SortRange = Range(RangeTextBox.Text)
            
            ' 执行排序操作
            SortRange.Sort Key1:=SortRange.Columns(1), Order1:=xlAscending, _
                Key2:=SortRange.Columns(2), Order2:=xlAscending, _
                Key3:=SortRange.Columns(3), Order3:=xlAscending
            
            ' 关闭弹出窗口
            Unload Me
        End Sub
    End With
    
    ' 显示弹出窗口
    SortForm.Show
End Sub