Con oWS
FormulaRow =. Cellule (. Rows.Count, “d„). Estremità (- 4162). Fila + 'xlUp 2
.range (“c„ & FormulaRow &„: f " & FormulaRow). Formula = “=SUM (c2: c„ & (FormulaRow - 2) & ") “
. Cells.Font.Size = 10
. File (1).Font.Bold = allineano
.UsedRange.EntireColumn.AutoFit
.range (“H: J„) .NumberFormat = “0.00%; [Colore rosso] 0.00%„
.range (“C: F„) .NumberFormat = “#, ##0.00; [Colore rosso] #, ##0.00„
Estremità con
|