10120_it-IT

liliconcom

Esportare i colori di Excel nella tabella dati JMP con Visual Basic<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Ho una tabella di dati in Excel che sto esportando in JMP utilizzando VBA.  Sono in grado di applicare colori alle righe di dati JMP tramite la funzione SetSelectedRowsColor, ma sono solo in grado di applicare i colori JMP predefiniti (jmpColorBlue, jmpColorGreen, ecc.).  Un esempio di ciò che sto facendo è:

     Dim MyJMP As JMP.Application

     Dim JMPdoc As JMP.Document

     Imposta MyJMP = CreateObject ("JMP.Application")

     MyJMP.Visible = True

     Imposta JMPdoc = MyJMP.OpenDocument (ThisWorkbook.FullName)

     Dim JMPdt As JMP.DataTable

     Imposta JMPdt = JMPdoc.GetDataTable

     rws_bool = JMPdt.SelectRowsWhere ("Condition", rowSelectEquals, rowSelectClearPrevious, "1")

     JMPdt.SetSelectedRowsColor (jmpColorBlue)

Vorrei invece utilizzare i colori nella tabella Excel e applicarli alle righe JMP.  C'è un modo per applicare la cella interna di Excel RGB alle righe in JMP?

Grazie

Ri: Esporta i colori di Excel nella tabella dati JMP con Visual Basic

Funziona alla grande!

Ecco il codice finale, in cui il numero di condizione che sto colorando è nella colonna A

Dim MyJMP As JMP.Application

Imposta MyJMP = CreateObject ("JMP.Application")

MyJMP.Visible = True

Dim str As String

Dim str2 As String

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

Dim rgbvalue, rvalue, gvalue, bvalue

Dim cl Come Range

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

Dim rgbstr As String

Dim cond As Integer

Do Until cl.Value = ""

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

        Imposta cl = cl.Offset (1)

    Ciclo continuo

    cond = cl.Value

     'Trova il valore RGB della cella 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 << Seleziona dove (Condition Number ==" & cond & ") << colors (" & rgbstr & ");"

    str = str & str2

   

    Imposta cl = cl.Offset (1)

Ciclo continuo

MyJMP.RunCommand (str)

Grazie per il tuo aiuto, Brian!

Ri: Esporta i colori di Excel nella tabella dati JMP con Visual Basic

No, se si specifica un comando Apri insieme a un file che ha un'estensione XLSX, JMP lo aprirà direttamente dal disco senza interfacce COM interessate.  Tale meccanismo di importazione potrebbe essere esteso per leggere i colori della cella e modificare le celle all'interno della tabella JMP risultante.

Brian

Ri: Esporta i colori di Excel nella tabella dati JMP con Visual Basic

grazie per la tua rapida risposta Brian!

Il codice sopra riportato continua a eseguire un pacchetto di analisi che vogliamo estrarre dai nostri dati (grafici di variabilità, analisi su strada, mappe di calore, ecc.) Ed è per questo che vorrei utilizzare VB.  Speravo che i dati in quei grafici potessero avere la stessa colorazione che l'utente ha impostato in Excel.

Quando dici meccanismo di importazione Excel, stai parlando con l'aggiunta di Excel?

Ri: Esporta i colori di Excel nella tabella dati JMP con Visual Basic

Mi dispiace, ma al momento non esiste alcun meccanismo per inserire valori RGB dritti.  Sembra che potrebbe essere meglio se il meccanismo di importazione di Excel gestisse semplicemente la colorazione della cella per te, piuttosto che farti fare attraverso VB.  È vero?

Brian Corcoran

Sviluppo JMP