10120_es-ES

liliconcom

Exportar colores de Excel a la tabla de datos JMP con Visual Basic<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Tengo una tabla de datos en Excel que estoy exportando a JMP usando VBA.  Puedo aplicar colores a las filas de datos de JMP a través de la función SetSelectedRowsColor, pero solo puedo aplicar colores JMP predeterminados (jmpColorBlue, jmpColorGreen, etc.).  Un ejemplo de lo que estoy haciendo es:

     Dim MyJMP As JMP.Application

     Dim JMPdoc As JMP.Document

     Establecer MyJMP = CreateObject ("JMP.Application")

     MyJMP.Visible = True

     Establecer JMPdoc = MyJMP.OpenDocument (ThisWorkbook.FullName)

     Dim JMPdt As JMP.DataTable

     Establecer JMPdt = JMPdoc.GetDataTable

     rws_bool = JMPdt.SelectRowsWhere ("Condición", rowSelectEquals, rowSelectClearPrevious, "1")

     JMPdt.SetSelectedRowsColor (jmpColorBlue)

En cambio, me gustaría usar los colores en la tabla de Excel y aplicarlos a las filas JMP.  ¿Hay alguna manera de aplicar la celda de Excel interior RGB a las filas en JMP?

Gracias

Re: Exportar los colores de Excel a la tabla de datos JMP con Visual Basic

Funciona muy bien

Aquí está el código final, donde el número de condición del cual estoy coloreando está en la columna A

Dim MyJMP As JMP.Application

Establecer MyJMP = CreateObject ("JMP.Application")

MyJMP.Visible = True

Dim str como cadena

Dim str2 como cadena

str = "dt = Open (" & "" "" & ThisWorkbook.FullName & "" "" & ");"

Dim rgbvalue, rvalue, gvalue, bvalue

Dim cl como rango

Establecer cl = ThisWorkbook.ActiveSheet.Range ("A2")

Dim rgbstr como cadena

Dim cond As Integer

Hacer Hasta que cl.Value = ""

    Do Until cl.Offset (1) .Value <> cl.Offset.Value

        Establecer cl = cl.Offset (1)

    Lazo

    cond = cl.Value

     'Encuentra el valor RGB de la celda de Excel

    rgbvalue = cl.Interior.Color

    rvalue = (rgbvalue Mod 256) / 255

    gvalue = (rgbvalue / 256 Mod 256) / 255

    bvalue = (rgbvalue / 65536 Mod 256) / 255

    rgbstr = "{" & rvalue & "," & gvalue & "," & bvalue & "}"

    str2 = "dt << Seleccione Dónde (Número de condición ==" & cond & ") << colores (" & rgbstr & ");"

    str = str & str2

   

    Establecer cl = cl.Offset (1)

Lazo

MyJMP.RunCommand (str)

Gracias por tu ayuda, Brian!

Re: Exportar los colores de Excel a la tabla de datos JMP con Visual Basic

No, si especifica un comando Abrir junto con un archivo que tiene una extensión XLSX, JMP abrirá ese archivo directamente desde el disco sin interfaces COM involucradas.  Ese mecanismo de importación podría extenderse para leer los colores de las celdas y cambiar las celdas dentro de la tabla JMP resultante.

Brian

Re: Exportar los colores de Excel a la tabla de datos JMP con Visual Basic

Gracias por tu rápida respuesta Brian!

El código anterior continúa para realizar un paquete de análisis que deseamos obtener de nuestros datos (gráficos de variabilidad, análisis de un solo trayecto, mapas de calor, etc.) por lo que me gustaría usar VB.  Esperaba que los datos de esos cuadros pudieran tener la misma coloración que el usuario ha configurado en Excel.

Cuando dice el mecanismo de importación de Excel, ¿está hablando con el complemento de Excel?

Re: Exportar los colores de Excel a la tabla de datos JMP con Visual Basic

Lo siento, pero no hay un mecanismo en este momento para poner valores RGB rectos.  Parece que podría ser mejor si el mecanismo de importación de Excel manejara la coloración de la celda por ti, en lugar de hacerlo a través de VB.  ¿Es esto cierto?

Brian Corcoran

Desarrollo JMP