¿Cómo utilizar VBA para crear el efecto de fórmula de multiplicación de funciones en Excel?
Hay muchos códigos de eventos en su programa. Se recomienda prestar atención a la optimización y tratar de evitar incluir eventos en eventos. Puede consultar mi operación al modificar la línea 7 y prohibir temporalmente la ocurrencia del incidente.
El texto del código en el primer cuadro es el siguiente (las últimas tres líneas se agregan después de copiar la pantalla y son obligatorias):
Cálculo automático: 7 líneas = 5 líneas* Inicio en la línea 6.
Para cada mRngA de la aplicación. Intersección (Sh.UsedRange, Target). Celda
mRow = mRngA. Fila
Si mRow = 5 o mRow = 6, entonces
mCol = mRngA. Cilíndrico
si VarType(Sh.cells(5,mCol)) = VB double y VarType(Sh.cells(6,mCol)) = VB double Entonces
Aplicar. EnableEvents = False
Celdas Shill(7,mCol) = Sh. Celda(5,mCol)*Sh. Celda(6,mCol)
Aplicar. EnableEvents = True
Terminará si...
Terminará si...
Siguiente mRngA
Establecer mranga = Nada
p>mRow = 0
mCol = 0
Cálculo automático: 7 filas = 5 filas * 6 filas finales.