<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Tengo una secuencia de comandos en la que necesito determinar en qué color se han configurado las celdas específicas de una tabla de datos.Puedo encontrar mensajes que se pueden enviar a celdas específicas para colorearlas, pero mis búsquedas no lograron recuperar el color de celdas específicas de todos modos.¿Alguien tiene una solución?
Gracias por la rápida respuesta. La función funciona bien. Tuve que modificarlo un poco para manejar el caso en el que todas las celdas de una columna se establecieron en el mismo color.
Jim Nelson,
Enviado desde Correo Windows
Los colores de las celdas parecen estar almacenados en una lista jerárquica, pero yo tampoco puedo encontrar una manera fácil de acceder a ellos.
Pruebe algo como esto:
//Tabla de ejemplo
dt = Nueva mesa ( "prueba" ,
Agregar filas ( 5 ) ,
Nueva columna ( "X" ,
Numérico ,
Continuo ,
Formato ( "Mejor" , 12 ) ,
Color de celdas ( {{ 38 , { 1 }} , { 9 , { 2 }} , { 74 , { 3 , 4 }}} ) ,
Establecer seleccionado ,
Establecer valores ( [ 1 , 2 , 3 , 4 , 5 ] )
)
) ;
// Definir función
obtener_color_celda = Función ( { columna , r } ,
s = columna << obtener guión ;
// Localiza el argumento "Celdas de color" en el script de columna
Para ( i = 1 , i <= norte arg ( s ) , i ++,
Si ( Nombre de la cabeza ( Arg ( s , i ) ) == "Celdas de colores" ,
pag = i ;
Romper () ;
)
) ;
//Identifica la sublista que contiene el color de la fila r
l = Arg ( Arg ( s , pag ) , 1 ) ;
Para ( i = 1 , N artículos ( l ) , i ++,
Si ( N fila ( ubicación ( l [ i ][ 2 ] , r ) ) == 1 ,
color = l [ i ][ 1 ] ;
Romper () ;
)
) ;
color ;
) ;
// Ejecuta la función para encontrar el color de la fila cuatro en la primera columna
color de celda = obtener_color_celda ( Columna ( 1 ) , 4 ) ;
// Confirmar..
Nueva ventana ( "color" ,
Caja espaciadora ( tamaño ( 200 , 100 ) , color ( color de celda ) )
) ;
