¿Cómo consultar datos conectados en una fila en una tabla de Excel?
Código:
Sub? respuesta()
rango(celda(1,1),?celda(65536,?100))interior.patrón? =?xlNinguno
¿Atenuado? ¿I? ¿Como? Largo
¿Oscuro? qsz? ¿Como? ¿dragón? Valor inicial, valor final
¿Dim? zzz? ¿Como? Largo
¿Para qué? ¿I? =?2?¿Adónde ir? 65536
¿Y si? celda(i,?1)?=?""?entonces
¿Salir? ¿Fin de
? ¿Y si
zzz? =?Rango("iv "? amp?i). Fin (xlAIzquierda). Cilindro
¿Para qué? qsz? =?2?¿Adónde ir? Roncando
¿Y si? celda(yo, ?qsz)? ¿Es gt? ""? Entonces qué. celular(i,?qsz??1)?lt gt? ""? Entonces qué. celular(i,?qsz??2)?lt gt? ""?entonces
rango(celda(es decir, qsz), ?celda(i, ?qsz? ?2)).Interior.ColorIndex? =?Seis
¿Fin? ¿Y si
Siguiente? qsz
¿Siguiente? Yo
¿Terminar? Subefecto:
Uso: abra un nuevo formulario, haga clic en alt f11 y luego cruce esta área hacia la izquierda (imagen a continuación).
Haga clic derecho, inserte el módulo y pegue este código en el área de código en blanco a la derecha.
Luego ingrese el formato (es decir, tres o más partes consecutivas no vacías) en la representación en la hoja de trabajo utilizada actualmente, haga clic en Ejecutar y luego el color cambiará automáticamente.