EXCEL 文档格式化 VBA 程序

ux400

我们有些文档是用 EXCEL 写的，很多个 sheet，有的格式比较乱，不方便打印，我录制了一个宏，统一格式化一下，以下是宏的VBA程序，可以根据需要再修改：

1. 
   
2. Sub 宏1()
   
3. '
   
4. ' 宏1 Macro
   
5. ' AAA 记录的宏
   
6. ' 快捷键: Ctrl+Shift+O
   
7. '
   
8.     ActiveCell.SpecialCells(xlLastCell).Select
   
9.     Range("A1").Select
   
10.     Cells.Select
    
11.     With Selection.Font
    
12.         .Name = "宋体"
    
13.         .Size = 9
    
14.         .Strikethrough = False
    
15.         .Superscript = False
    
16.         .Subscript = False
    
17.         .OutlineFont = False
    
18.         .Shadow = False
    
19.         .Underline = xlUnderlineStyleNone
    
20.     End With
    
21.     Selection.Columns.AutoFit
    
22.     Selection.Rows.AutoFit
    
23.     With ActiveSheet.PageSetup
    
24.         .PrintTitleRows = ""
    
25.         .PrintTitleColumns = ""
    
26.     End With
    
27.     ActiveSheet.PageSetup.PrintArea = ""
    
28.     With ActiveSheet.PageSetup
    
29.         .LeftHeader = ""
    
30.         .CenterHeader = "&A"
    
31.         .RightHeader = ""
    
32.         .LeftFooter = ""
    
33.         .CenterFooter = "第 &P 页，共 &N 页"
    
34.         .RightFooter = ""
    
35.         .LeftMargin = Application.InchesToPoints(0.393700787401575)
    
36.         .RightMargin = Application.InchesToPoints(0.393700787401575)
    
37.         .TopMargin = Application.InchesToPoints(0.47244094488189)
    
38.         .BottomMargin = Application.InchesToPoints(0.47244094488189)
    
39.         .HeaderMargin = Application.InchesToPoints(0.236220472440945)
    
40.         .FooterMargin = Application.InchesToPoints(0.236220472440945)
    
41.         .PrintHeadings = False
    
42.         .PrintGridlines = True
    
43.         .PrintComments = xlPrintSheetEnd
    
44.         .PrintQuality = 600
    
45.         .CenterHorizontally = False
    
46.         .CenterVertically = False
    
47.         .Orientation = xlLandscape
    
48.         .Draft = False
    
49.         .PaperSize = xlPaperA4
    
50.         .FirstPageNumber = xlAutomatic
    
51.         .Order = xlDownThenOver
    
52.         .BlackAndWhite = False
    
53.         .Zoom = 100
    
54.     End With
    
55.     ActiveWindow.SelectedSheets.PrintPreview
    
56.     Range("A1").Select
    
57. End Sub
    

复制代码

ux400

在 EXCEL 文件中使用宏有一个问题，容易被某些杀毒软件当作病毒。
可以考虑把 VBA 代码改写到 VFP 程序中，写一个通用工具。

dave_10

收藏了 tks