考勤宏表.docVIP

考勤宏表 Sub 新考勤表() Sheets.Add 增加表格并命名 Sheets(Sheet1).Name = 1月 Sheets(1月).Select Cells.Select With Selection 单元格水平垂直居中 .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ReadingOrder = xlContext End With With Selection.Font 规定字体 .Name = 宋体 .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.ColumnWidth = 3.25 列宽 Selection.RowHeight = 15 行高 Range(1:1,3:3).Select 指定行行高 Selection.RowHeight = 26.25 Range(B3).Select 指定列列宽 Columns(B:B).ColumnWidth = 6.88 ActiveWindow.View = xlPageBreakPreview 分页预览 ActiveWindow.Zoom = 75 页面显示比例 With ActiveWindow .DisplayGridlines = False 不显示网格线 .DisplayZeros = False 不显示零值 End With Range(A3:AG29).Select 选定范围加表格线 With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With Range(A1:AG1).Select With Selection.Font