Option Explicit

Dim arg, xls, opt, fs, xl, book, MaxRow, i
Set arg = WScript.Arguments
If Arg.Count < 2 Then
    WScript.Quit
End If

xls = arg(0)
opt = arg(1)

Set fs = WScript.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(xls) = False Then
    WScript.Quit
End If

Set xl = WScript.CreateObject("Excel.Application")
xl.Visible = False
xl.DisplayAlerts = False
Set book = xl.WorkBooks.Open(xls)

'xl.ActiveSheet.Unprotect Password:="password"

xl.Range("A:A").ColumnWidth  = 16
xl.Range("B:B").ColumnWidth  =  6
xl.Range("C:C").ColumnWidth  = 16
xl.Range("D:D").ColumnWidth  = 16

xl.CutCopyMode = False
xl.Range("2:2").Insert

MaxRow = xl.Range("A65536").End(-4162).Row

xl.Range("A1:BH" & MaxRow).Borders.LineStyle        = True
xl.Columns("BI:BM").Hidden                          = True
xl.Columns("BN:XFD").Hidden                         = True
xl.Rows((MaxRow + 1) & ":1048576").EntireRow.Hidden = True

'xl.Range("A2").End(-4121).Row
'xl.Range("A2").End(-4162).Row

xl.Range("E3").Select
xl.ActiveWindow.FreezePanes                    = True

xl.Range("E2:BH" & MaxRow).NumberFormatLocal   = "#,##0;-#,##0"
xl.Range("E2:BH" & MaxRow).HorizontalAlignment = -4152

xl.Range("A1").Value              = "グループ名"
xl.Range("A2").Value              = opt
xl.Range("D2").Value              = "合計"
xl.Range("E2:BH2").Value          = "=SUM(R3C:R" & MaxRow & "C)"

xl.Range("J3:J" & MaxRow).Value   = "=SUM(RC[-5]:RC[-1])"
xl.Range("P3:P" & MaxRow).Value   = "=SUM(RC[-5]:RC[-1])"
xl.Range("V3:V" & MaxRow).Value   = "=SUM(RC[-5]:RC[-1])"
xl.Range("AB3:AB" & MaxRow).Value = "=SUM(RC[-5]:RC[-1])"
xl.Range("AH3:AH" & MaxRow).Value = "=SUM(RC[-5]:RC[-1])"
xl.Range("AN3:AN" & MaxRow).Value = "=SUM(RC[-5]:RC[-1])"
xl.Range("AT3:AT" & MaxRow).Value = "=SUM(RC[-5]:RC[-1])"
xl.Range("AZ3:AZ" & MaxRow).Value = "=SUM(RC[-5]:RC[-1])"
xl.Range("BF3:BF" & MaxRow).Value = "=SUM(RC[-5]:RC[-1])"

xl.Rows("1:1").RowHeight                          =    86
xl.Range("E:BH").ColumnWidth                      =     3.4
xl.Range("A1:BH1").WrapText                       = True
xl.Range("A1:BH1").HorizontalAlignment            = -4108
xl.Range("A1:BH1").VerticalAlignment              = -4108
xl.Range("E1:BH1").Orientation                    = -4166

xl.Range("A1:D" & MaxRow).Interior.ThemeColor     =     7
xl.Range("A1:D" & MaxRow).Interior.TintAndShade   =     0.8
xl.Range("A1:BH1").Interior.ThemeColor            =     4
xl.Range("A1:BH1").Interior.TintAndShade          =     0.8
xl.Range("A2:BH2").Interior.ThemeColor            =     5
xl.Range("A2:BH2").Interior.TintAndShade          =     0.8
xl.Range("J1:J" & MaxRow).Interior.ThemeColor     =    10
xl.Range("J1:J" & MaxRow).Interior.TintAndShade   =     0.8
xl.Range("P1:P" & MaxRow).Interior.ThemeColor     =    10
xl.Range("P1:P" & MaxRow).Interior.TintAndShade   =     0.8
xl.Range("V1:V" & MaxRow).Interior.ThemeColor     =    10
xl.Range("V1:V" & MaxRow).Interior.TintAndShade   =     0.8
xl.Range("AB1:AB" & MaxRow).Interior.ThemeColor   =    10
xl.Range("AB1:AB" & MaxRow).Interior.TintAndShade =     0.8
xl.Range("AH1:AH" & MaxRow).Interior.ThemeColor   =    10
xl.Range("AH1:AH" & MaxRow).Interior.TintAndShade =     0.8
xl.Range("AN1:AN" & MaxRow).Interior.ThemeColor   =    10
xl.Range("AN1:AN" & MaxRow).Interior.TintAndShade =     0.8
xl.Range("AT1:AT" & MaxRow).Interior.ThemeColor   =    10
xl.Range("AT1:AT" & MaxRow).Interior.TintAndShade =     0.8
xl.Range("AZ1:AZ" & MaxRow).Interior.ThemeColor   =    10
xl.Range("AZ1:AZ" & MaxRow).Interior.TintAndShade =     0.8
xl.Range("BF1:BF" & MaxRow).Interior.ThemeColor   =    10
xl.Range("BF1:BF" & MaxRow).Interior.TintAndShade =     0.8
xl.Range("BH3:BH" & MaxRow).Interior.ColorIndex   =    36
'xl.Range("BH3:BH" & MaxRow).Interior.Color       = RGB(255,255,0)

'xlPaperA3       8
'xlPaperA4       9
'xlPaperA4Small 10
'xlPaperA5      11
'xlPaperB4      12
'xlPaperB5      13
'xlPortrait      1
'xlLandscape     2

xl.ActiveSheet.PageSetup.LeftMargin        =    28
xl.ActiveSheet.PageSetup.RightMargin       =    28
xl.ActiveSheet.PageSetup.TopMargin         =    28
xl.ActiveSheet.PageSetup.BottomMargin      =    28
xl.ActiveSheet.PageSetup.HeaderMargin      =     0.0
xl.ActiveSheet.PageSetup.FooterMargin      =     0.0

xl.ActiveSheet.PageSetup.PaperSize         =    12
xl.ActiveSheet.PageSetup.Orientation       =     2
xl.ActiveSheet.PageSetup.PrintTitleRows    = "$1:$2"
xl.ActiveSheet.PageSetup.PrintTitleColumns = "$A:$D"
xl.ActiveSheet.PageSetup.PrintArea         = "$A$1:$BG$" & MaxRow
xl.Range("AI1").PageBreak                  = -4135

xl.Range("E3:I" & MaxRow).Locked           = False
xl.Range("K3:O" & MaxRow).Locked           = False
xl.Range("Q3:U" & MaxRow).Locked           = False
xl.Range("W3:AA" & MaxRow).Locked          = False
xl.Range("AC3:AG" & MaxRow).Locked         = False
xl.Range("AI3:AM" & MaxRow).Locked         = False
xl.Range("AO3:AS" & MaxRow).Locked         = False
xl.Range("AU3:AY" & MaxRow).Locked         = False
xl.Range("BA3:BE" & MaxRow).Locked         = False
xl.Range("BG3:BG" & MaxRow).Locked         = False

xl.Application.MoveAfterReturn             = True
xl.Application.MoveAfterReturnDirection    = -4161

For i = 3 To MaxRow
    If i Mod 5 = 2 Then
        xl.Range("A1:BG" & i).Borders(9).Weight = -4138
        xl.Range("A1:BG" & i).Borders(9).Color  = RGB(0, 0, 255)
    End If
Next

'xl.Range("E3:XFD1048576").Locked          = False

xl.Columns("BH:BH").Hidden                 = True

xl.ActiveSheet.EnableSelection             =     1
xl.ActiveSheet.Protect( "password" )

xl.ActiveWorkbook.Save
xl.Quit

Set xl  = Nothing
Set fs  = Nothing
Set arg = Nothing