需求：通过复选框切换工作表按A列降序/B列排序的方式

步骤1：添加窗体复选框 #

• 打开「开发工具」选项卡（如果没显示，去文件→选项→自定义功能区勾选）
• 点击「插入」，选表单控件里的复选框（窗体控件），在工作表空白处画一个，右键改名为「切换排序」（方便后续代码识别）

步骤2：编写切换排序的VBA宏 #

• 右键刚建的复选框，选「指定宏」，点击「新建」，在弹出的VBA编辑器里粘贴以下代码：

Sub ToggleSort()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 获取复选框状态：1=勾选，0=未勾选
    Dim checkState As Integer
    checkState = ws.Shapes("切换排序").ControlFormat.Value
    
    ' 清除原有排序规则
    ws.Sort.SortFields.Clear
    
    If checkState = 1 Then
        ' 勾选时：按A列降序排序
        ws.Sort.SortFields.Add Key:=Range("A:A"), _
            SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    Else
        ' 未勾选时：按B列升序排序
        ws.Sort.SortFields.Add Key:=Range("B:B"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End If
    
    ' 应用排序（假设表头在第1行，数据范围为A:C列）
    With ws.Sort
        .SetRange Range("A:C")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

步骤3：测试功能 #

• 点击复选框，勾选时工作表会按A列数字降序排列，取消勾选则按B列字母升序排列，自动切换排序状态

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