С oWS
FormulaRow =. Клетки (. Rows.Count, «d»). Конец (- 4162). Рядок + 'xlUp 2
.range («c» & FormulaRow &»: f " & FormulaRow). Формула = «=SUM (c2: c» & (FormulaRow - 2) & ") «
. Cells.Font.Size = 10
. Рядки (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range («h: J») .NumberFormat = «0.00%; [Красный цвет] 0.00%»
.range («c: F») .NumberFormat = «#, ##0.00; [Красный цвет] #, ##0.00»
Конец с
|