FrmForma.ShowEnd Sub Sub Mac() ' Range("A1:E1").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A1:F5").Select Range("F5").Activate Columns("F:F").ColumnWidth = 18.57 Columns("E:E").ColumnWidth = 16.14 Columns("D:D").ColumnWidth = 13.29 Columns("C:C").ColumnWidth = 13.29 Columns("B:B").ColumnWidth = 14.14 Range("A1:E5").Select Range("E5").Activate With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext End With Range("G6").Select Columns("C:C").ColumnWidth = 21.43 Columns("D:D").Select Range("D2").Activate Selection.ColumnWidth = 16.14 Range("A1:E7").Select Range("E7").Activate Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic
|
