心意答系统导出成绩之各题得分打印宏代码

来源：高中英语教学交流网
发布时间：2015-02-04 10:03:00
查看次数：

内容提要：有时候需要打印英语科的各科成绩，每次排版都很耗时间，现在录制了一个代码，快了很多。

Sub 各题得分打印宏代码()

Application.ScreenUpdating = False

Cells.Select

Selection.FormatConditions.Delete

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _

Formula1:="="""""

With Selection.FormatConditions(1).Borders(xlLeft)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.FormatConditions(1).Borders(xlRight)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.FormatConditions(1).Borders(xlTop)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.FormatConditions(1).Borders(xlBottom)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

Rows("1:1").Select

Selection.Delete Shift:=xlUp

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 10

ActiveWindow.ScrollColumn = 19

ActiveWindow.ScrollColumn = 23

ActiveWindow.ScrollColumn = 28

ActiveWindow.ScrollColumn = 31

ActiveWindow.ScrollColumn = 33

ActiveWindow.ScrollColumn = 35

ActiveWindow.ScrollColumn = 36

ActiveWindow.ScrollColumn = 37

ActiveWindow.ScrollColumn = 38

ActiveWindow.ScrollColumn = 39

ActiveWindow.ScrollColumn = 40

ActiveWindow.ScrollColumn = 41

ActiveWindow.ScrollColumn = 42

ActiveWindow.ScrollColumn = 43

ActiveWindow.ScrollColumn = 44

ActiveWindow.ScrollColumn = 42

ActiveWindow.ScrollColumn = 38

ActiveWindow.ScrollColumn = 36

ActiveWindow.ScrollColumn = 34

ActiveWindow.ScrollColumn = 32

ActiveWindow.ScrollColumn = 31

ActiveWindow.ScrollColumn = 29

ActiveWindow.ScrollColumn = 28

ActiveWindow.ScrollColumn = 27

ActiveWindow.ScrollColumn = 26

ActiveWindow.ScrollColumn = 25

ActiveWindow.ScrollColumn = 24

ActiveWindow.ScrollColumn = 23

ActiveWindow.ScrollColumn = 22

ActiveWindow.ScrollColumn = 21

ActiveWindow.ScrollColumn = 20

ActiveWindow.ScrollColumn = 19

ActiveWindow.ScrollColumn = 18

ActiveWindow.ScrollColumn = 17

ActiveWindow.ScrollColumn = 16

ActiveWindow.ScrollColumn = 15

ActiveWindow.ScrollColumn = 14

ActiveWindow.ScrollColumn = 13

ActiveWindow.ScrollColumn = 12

ActiveWindow.ScrollColumn = 11

ActiveWindow.ScrollColumn = 10

ActiveWindow.ScrollColumn = 8

ActiveWindow.ScrollColumn = 7

ActiveWindow.ScrollColumn = 6

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

Selection.AutoFilter

Selection.AutoFilter Field:=2, Criteria1:="=高三15班", Operator:=xlOr, _

Criteria2:="=高三16班"

Cells.Select

With Selection.Font

.Name = "Arial"

.Size = 12

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

With ActiveSheet.PageSetup

.PrintTitleRows = "$1:$1"

.PrintTitleColumns = "$A:$A"

End With

ActiveSheet.PageSetup.PrintArea = ""

With ActiveSheet.PageSetup

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

.LeftMargin = Application.InchesToPoints(0.118110236220472)

.RightMargin = Application.InchesToPoints(0.118110236220472)

.TopMargin = Application.InchesToPoints(0.118110236220472)

.BottomMargin = Application.InchesToPoints(0.118110236220472)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality = 300

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperA4

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = 100

.PrintErrors = xlPrintErrorsDisplayed

End With

Columns("A:A").Select

Selection.ColumnWidth = 9.71

Columns("C:C").ColumnWidth = 8.86

Columns("D:BD").Select

Selection.ColumnWidth = 4.43

ActiveWindow.ScrollColumn = 47

ActiveWindow.ScrollColumn = 46

ActiveWindow.ScrollColumn = 45

ActiveWindow.ScrollColumn = 44

ActiveWindow.ScrollColumn = 42

ActiveWindow.ScrollColumn = 41

ActiveWindow.ScrollColumn = 40

ActiveWindow.ScrollColumn = 39

ActiveWindow.ScrollColumn = 38

ActiveWindow.ScrollColumn = 37

ActiveWindow.ScrollColumn = 36

ActiveWindow.ScrollColumn = 34

ActiveWindow.ScrollColumn = 28

ActiveWindow.ScrollColumn = 22

ActiveWindow.ScrollColumn = 20

ActiveWindow.ScrollColumn = 19

ActiveWindow.ScrollColumn = 18

ActiveWindow.ScrollColumn = 17

ActiveWindow.ScrollColumn = 16

ActiveWindow.ScrollColumn = 15

ActiveWindow.ScrollColumn = 14

ActiveWindow.ScrollColumn = 13

ActiveWindow.ScrollColumn = 12

ActiveWindow.ScrollColumn = 11

ActiveWindow.ScrollColumn = 10

ActiveWindow.ScrollColumn = 9

ActiveWindow.ScrollColumn = 8

ActiveWindow.ScrollColumn = 7

ActiveWindow.ScrollColumn = 6

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

Range("CA862").Select

ActiveWindow.ScrollColumn = 59

ActiveWindow.ScrollColumn = 58

ActiveWindow.ScrollColumn = 57

ActiveWindow.ScrollColumn = 56

ActiveWindow.ScrollColumn = 55

ActiveWindow.ScrollColumn = 54

ActiveWindow.ScrollColumn = 53

ActiveWindow.ScrollColumn = 52

ActiveWindow.ScrollColumn = 51

ActiveWindow.ScrollColumn = 50

ActiveWindow.ScrollColumn = 49

ActiveWindow.ScrollColumn = 48

ActiveWindow.ScrollColumn = 47

ActiveWindow.ScrollColumn = 46

ActiveWindow.ScrollColumn = 45

ActiveWindow.ScrollColumn = 44

ActiveWindow.ScrollColumn = 43

ActiveWindow.ScrollColumn = 42

ActiveWindow.ScrollColumn = 41

ActiveWindow.ScrollColumn = 40

ActiveWindow.ScrollColumn = 39

ActiveWindow.ScrollColumn = 38

ActiveWindow.ScrollColumn = 36

ActiveWindow.ScrollColumn = 35

ActiveWindow.ScrollColumn = 33

ActiveWindow.ScrollColumn = 32

ActiveWindow.ScrollColumn = 31

ActiveWindow.ScrollColumn = 29

ActiveWindow.ScrollColumn = 28

ActiveWindow.ScrollColumn = 27

ActiveWindow.ScrollColumn = 26

ActiveWindow.ScrollColumn = 25

ActiveWindow.ScrollColumn = 24

ActiveWindow.ScrollColumn = 23

ActiveWindow.ScrollColumn = 22

ActiveWindow.ScrollColumn = 21

ActiveWindow.ScrollColumn = 20

ActiveWindow.ScrollColumn = 19

ActiveWindow.ScrollColumn = 18

ActiveWindow.ScrollColumn = 17

ActiveWindow.ScrollColumn = 16

ActiveWindow.ScrollColumn = 15

ActiveWindow.ScrollColumn = 14

ActiveWindow.ScrollColumn = 13

ActiveWindow.ScrollColumn = 12

ActiveWindow.ScrollColumn = 11

ActiveWindow.ScrollColumn = 10

ActiveWindow.ScrollColumn = 9

ActiveWindow.ScrollColumn = 8

ActiveWindow.ScrollColumn = 7

ActiveWindow.ScrollColumn = 6

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

Range("C852").Select

ActiveWindow.SmallScroll Down:=0

Columns("D:D").Select

ActiveWindow.DisplayZeros = False

ActiveWindow.SmallScroll Down:=-15

Rows("846:987").Select

ActiveWindow.SmallScroll Down:=-153

Range("D850").Select

Application.ScreenUpdating = True

End Sub