Colección de citas famosas - Slogan de motivación - ¿Cómo utilizar VBA para crear el efecto de fórmula de multiplicación de funciones en Excel?

¿Cómo utilizar VBA para crear el efecto de fórmula de multiplicación de funciones en Excel?

La interfaz de modificación del programa es la siguiente:

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.