Excel VBA高效办公应用-第六章-客户资料管理-Part1 （窗口冻结及排序）

最新推荐文章于 2021-04-03 11:29:13 发布

预见未来to50

最新推荐文章于 2021-04-03 11:29:13 发布

阅读量708

点赞数

分类专栏： Excel技巧及VBA编程（Excel_VBA）

本文链接：https://blog.csdn.net/hpdlzu80100/article/details/73197164

版权

Excel技巧及VBA编程（Excel_VBA）专栏收录该内容

404 篇文章 169 订阅

订阅专栏

对客户资料数据表格格式的处理

代码段-窗口冻结及排序

Public Sub froze()
    '选择“客户资料”工作表
    Sheets("客户资料").Select
    '选择A3单元格
    Range("A3").Select
    '冻结窗格
    ActiveWindow.FreezePanes = True
    '选择待设置“自动筛选”区域
    Range("A2:F2").Select
    '设置为“自动筛选”
    Selection.AutoFilter
    '设置以“客户代码”按升序排列
    Range("A2:I85").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
End Sub
Public Sub descend()
    Range("A2:I85").Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess
End Sub