Red de conocimiento informático - Aprendizaje de programación - Excel VBA, cómo asignar fórmulas complejas a celdas

Excel VBA, cómo asignar fórmulas complejas a celdas

Suba la celda, ingrese la fórmula ()

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