Red de conocimiento informático - Aprendizaje de programación - Excel VBA y código de escritura de macros para implementar la lectura y el cálculo de datos.

Excel VBA y código de escritura de macros para implementar la lectura y el cálculo de datos.

En realidad son dos operaciones.

1. Estadísticas en la columna M, área: más de 360 celdas consecutivas son todas 0. ¿Cuántas áreas de este tipo hay en total?

2. Cambie el color de relleno de todas las celdas con el número 1 en la columna M a otros colores (como el rojo).

El código VBA completo correspondiente es el siguiente: Sub?count01_by_zzllrr()

Dim?n, ?n0, ?n1, ?i, ?v

n?= ?0

n0?=?0

n1?=?False

If?Range("M1")?=?0?Entonces

n0?=?1

Fin?Si

For?i?=?2?To?Columns("M:M").Find( "*" ,?,?,?,?1,?2).Fila

v?=?Rango("M"?amp;?i)

Si?v ?=? 1?Entonces

Rango("M"?amp;?i).Interior.Color?=?255

Si?n0?gt;?360?Entonces

n?=?n?1

Fin?Si

n0?=?0

Si?No?n1?Entonces

n1?=?Verdadero

Fin?Si

Si no

Si?n1?Entonces

n0 ?=? n0? ?1

Fin?Si

Siguiente?i

Rango("N1") ?=n

MsgBox?("Total***"?amp;?n?amp;?", y se ha completado en la celda N1")

End?Sub