如何录制格式化操作

keke2xiaodie

每天需要从系统里导出表格进行处理，每次先要将导出的表格做统一格式操作：1、C列升序；
2、隐藏D-M / P-R / X-Z列；
3、筛选N列内的三个词；

4、O列填充背景色；
5、首行冻结；
6、WPS的阅读模式（就是十字高亮）；
7、写入一段VB代码。

为了方便工作，每天都要先把系统导出的数据这样做一遍，然后才能正式开始工作，所以想来论坛看看有没有什么简单的方法可以快速完成这样机械化的工作。


补充内容 (2021-8-16 17:33):
各种查资料，录宏看代码，也算是实现以上功能了。还有点不足就是WPS可以点右下角的阅读模式实现选择单元格横竖都高亮。但是VB在网上抄了好几个代码，实现效果都没有WPS的阅读模式好。

jians0529

像ERP这些都可以直接连接到数据库进行实时更新的。。要问下系统公司的人告诉他你的需求！

keke2xiaodie

jians0529 发表于 2021-8-11 11:18
像ERP这些都可以直接连接到数据库进行实时更新的。。要问下系统公司的人告诉他你的需求！

公司是美国的物流企业，找的当地软件开发做的ERP，烂的要死一堆BUG，他们的工作效率你懂的。
其实是我需要在ERP把所有别人录入的快递信息去各个其他船运公司查当前状态，然后同步到公司ERP供货主查询。但由于ERP是在太烂，刚好他留了一个到处表格的按键，所以我就每天导出后先按帖子一楼写的那样整理好，然后一行行查完有状态更新就写进表格里，并高亮。最后把几个高亮的日期写进ERP就完事了。

这活说白了就是电脑无脑做的活，不知道是各个船运公司不能开放接口还是公司找的软件开发太傻，反正目前只能我做，倒也轻松。

keke2xiaodie

EXCEL有这样的功能吗？

jians0529

keke2xiaodie 发表于 2021-8-13 09:28
EXCEL有这样的功能吗？

7、写入一段VB代码。
这一步可以把前面的步骤也写进去。。不就没那么多步骤了吗？每次导出后直接将代码复制进去点击运行即可！

zpy2

keke2xiaodie 发表于 2021-8-12 11:03
公司是美国的物流企业，找的当地软件开发做的ERP，烂的要死一堆BUG，他们的工作效率你懂的。
其实是我需 ...

https://club.excelhome.net/search.php?mod=forum&searchid=63&orderby=lastpost&ascdesc=desc&searchsubmit=yes&kw=%BF%EC%B5%DD%B2%E9%D1%AF&mobile=
目测是快递查询，国内都是有api的，只是不知道好像和你说的侧重不一样。

hejiatong

代码处理的一般是格式比较固定的数据，把数据表导一个出来，什么都不要更改，包括文件名都不要改，传上来，看看能不能按要求做出来

keke2xiaodie

hejiatong 发表于 2021-8-15 18:21
代码处理的一般是格式比较固定的数据，把数据表导一个出来，什么都不要更改，包括文件名都不要改，传上来， ...

查资料，录宏看代码各种连滚带爬的写了一段。
Public arr
Sub geshihua()
Range("D:M,P:R,X:Z").EntireColumn.Hidden = True
With Range("C1").CurrentRegion     'A1的扩展区域
        .Sort Key1:=.Range("C1"), order1:=xlAscending, Header:=xlYes '排序用Range的Sort方法,指定关键字为C1单元格的内容,升序排列，第一行有标题。
    End With
Range("A1").AutoFilter Field:=14, Criteria1:=Array("Atlanta, GA", "Los Angeles, CA", "Salt Lake City, UT"), Operator:=xlFilterValues
  Columns("C:C").Select
    Selection.AutoFit
    Columns("A:A").Select
    Selection.AutoFit
    Columns("s:s").Select
    Selection.ColumnWidth = 11.3
    Columns("O:O").Select
    With Selection.Interior
        .Pattern = xlPatternSolid
        .ThemeColor = 8
        .TintAndShade = 0.8
        .PatternColorIndex = -4105
    End With
Range("c3").Select
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
arr = Sheet1.Range(Cells(1, 1), Cells(10000, 256))
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = 35
If Target.Cells.Count = 1 And Target.Value <> arr(Target.Row, Target.Column) Then Target.Interior.ColorIndex = 38
End Sub

keke2xiaodie

Public arr
Sub geshihua()
Range("D:M,P:R,X:Z").EntireColumn.Hidden = True
With Range("C1").CurrentRegion     'A1的扩展区域
        .Sort Key1:=.Range("C1"), order1:=xlAscending, Header:=xlYes '排序用Range的Sort方法,指定关键字为C1单元格的内容,升序排列，第一行有标题。
    End With
Range("A1").AutoFilter Field:=14, Criteria1:=Array("Atlanta, GA", "Los Angeles, CA", "Salt Lake City, UT"), Operator:=xlFilterValues
  Columns("C:C").Select
    Selection.AutoFit
    Columns("A:A").Select
    Selection.AutoFit
    Columns("s:s").Select
    Selection.ColumnWidth = 11.3
    Columns("O:O").Select
    With Selection.Interior
        .Pattern = xlPatternSolid
        .ThemeColor = 8
        .TintAndShade = 0.8
        .PatternColorIndex = -4105
    End With
Range("c3").Select
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
arr = Sheet1.Range(Cells(1, 1), Cells(10000, 256))
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = 35
If Target.Cells.Count = 1 And Target.Value <> arr(Target.Row, Target.Column) Then Target.Interior.ColorIndex = 38
End Sub