|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 高级筛选()
'
' 高级筛选 Macro
' 宏由 Administrator 录制,时间: 2019/08/13
'
'
Sheets("未完成订单").Activate
Sheets("已送货统计").Activate
Range("D2:L921").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("E1:E2"), CopyToRange:=Range("C2820:K2820"), Unique:=False
Range("C2820:K2828").Select
Selection.Font.Size = 11
Selection.Font.Name = "宋体"
Range("C2818:L2831").Select
With Selection.Borders(xlEdgeLeft)
.Weight = xlThin
.LineStyle = xlContinuous
.ThemeColor = 5
.TintAndShade = 0.399976
End With
With Selection.Borders(xlInsideVertical)
.Weight = xlThin
.LineStyle = xlContinuous
.ThemeColor = 5
.TintAndShade = 0.399976
End With
With Selection.Borders(xlInsideHorizontal)
.Weight = xlThin
.LineStyle = xlContinuous
.ThemeColor = 5
.TintAndShade = 0.399976
End With
Rows("2820:2820").Select
Selection.Delete Shift:=xlShiftUp
Range("J2820:J2827").Select
Range("K2820:K2827").Select
Selection.NumberFormatLocal = "_ ¥* #,##0.00_ ;_ ¥* -#,##0.00_ ;_ ¥* " & """" & "-" & """" & "??_ ;_ @_ "
Selection.NumberFormatLocal = "_ ¥* #,##0.0000_ ;_ ¥* -#,##0.0000_ ;_ ¥* " & """" & "-" & """" & "????_ ;_ @_ "
Range("E2829").Select
End Sub
|
|