Excel VBA, cómo asignar fórmulas complejas a celdas
With Sheets("st1")
R_zj = WorksheetFunction.Match("Total*", .[B:B], 0) 'Encuentra el número de línea de "Total"
.Cells(R_zj, 13).Formula = "=SUMIF($C$7:$C$" amp; R_zj - 1 amp; ",""* Total *""",$M$7:$M$" amp; R_zj - 1 amp ")"Rellene la fórmula total
Para i = 7 To R_zj - 1
.Cells (i, 13).Formula = "= RC[-1]*RC[-4]"Rellena la fórmula no subtotal
Si .Cells(i, 5) Me gusta "Subtotal *" luego 'completa la fórmula del subtotal
R_xj = .Cells(i, 4).MergeArea.Rows.Count
.Cells(i, 13).Formula = "=sum (R[" amp; 1 - R_xj amp; "]C:R[-1]C)"
End If
If .Cells(i, 3) Like "Total *" Luego 'Rellenar fórmula total
R_hj = .Cells(i, 2).MergeArea.Rows.Count
Si .Cells(i - 1, 5) Me gusta "Subtotal* "Entonces xj = 2 Else xj = 1 ' Determinar si hay un subtotal
.Cells(i, 13).Formula = "=sum(R[" amp; 1 - R_hj amp; "]C : R[-1] C)/" amp; xj
Fin si
Siguiente i
Finalice con
Fin Finalice con
Fin