Red de conocimiento informático - Problemas con los teléfonos móviles - Reconocimiento automático del código de programación VBA

Reconocimiento automático del código de programación VBA

¿privado? ¿Sub? CommandButton1_Click()

columnas(" A:A ")¿patrón interior? =?xlNinguno

¿Para qué? ¿I? =?1?¿Adónde ir? [a65536]. fin(3). Fila

k? =?1

¿Y si? celda(i,?1)?<>? ""?Entonces

r1? =?cell(i,?1).row

¿Qué hacer? ¿hasta? Celda(i?+?k,?1)?=?""

k? =?k? +?1

Timbre

¿Configuración? ¿Rng? =?rango(celda(es decir, 1),?celda(i?+?k?-?1,?1))

Máx. =?Aplicar. Máximo(Rng)

¿Mínimo? =?Aplicar. Mínimo(Rng)

r2? =?Yo? +?Aplicar. coincidencia(min,?Rng,?0)?-?1

r3? =?Yo? +?Aplicar. coincidencia(max,Rng,?0)?-?1

celda(r2,1)color.interior? =?65535

¿Color interior de la celda (r3, 1)? =?5287936

¿Yo? =?Yo? +?k? -?1

¿Fin? Si

Entonces

¿Finalizar? El código anterior Sub solo puede completar los valores máximo y mínimo del etiquetado de color. En cuanto a los valores máximo y mínimo, no sé dónde quieres poner los resultados, así que no lo entiendo.

上篇: Cómo configurar el pronóstico del tiempo QQ 下篇: Las diferencias y conexiones entre SDH, MSTP, OTN y PTN

Artículos populares