10120_fr-FR

liliconcom

Exporter des couleurs Excel vers un tableau de données JMP avec Visual Basic<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

J'ai une table de données dans Excel que j'exporte vers JMP en utilisant VBA.  Je peux appliquer des couleurs aux lignes de données JMP via la fonction SetSelectedRowsColor, mais je ne peux appliquer que des couleurs JMP par défaut (jmpColorBlue, jmpColorGreen, etc.).  Un exemple de ce que je fais est:

     Dim MyJMP As JMP.Application

     Dim JMPdoc en tant que JMP.Document

     Définir MyJMP = CreateObject ("JMP.Application")

     MyJMP.Visible = True

     Définir JMPdoc = MyJMP.OpenDocument (ThisWorkbook.FullName)

     Dim JMPdt As JMP.DataTable

     Définir JMPdt = JMPdoc.GetDataTable

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

     JMPdt.SetSelectedRowsColor (jmpColorBlue)

J'aimerais plutôt utiliser les couleurs du tableau Excel et les appliquer aux lignes JMP.  Existe-t-il un moyen d'appliquer la cellule RVB intérieure de la cellule Excel aux lignes de JMP?

Merci

Objet: Exporter des couleurs Excel vers un tableau de données JMP avec Visual Basic

Cela fonctionne très bien!

Voici le code final, où le numéro de condition que je colore est dans la colonne A

Dim MyJMP As JMP.Application

Définir 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 As Range

Définir cl = ThisWorkbook.ActiveSheet.Range ("A2")

Dim rgbstr As String

Dim cond As Integer

Do Until cl.Value = ""

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

        Définir cl = cl.Offset (1)

    Boucle

    cond = cl.Value

     'Trouver la valeur RVB de la cellule 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 << Sélectionnez le lieu (numéro de condition ==" & cond & ") << colors (" & rgbstr & ");"

    str = str & str2

   

    Définir cl = cl.Offset (1)

Boucle

MyJMP.RunCommand (str)

Merci pour votre aide, Brian!

Objet: Exporter des couleurs Excel vers un tableau de données JMP avec Visual Basic

Non, si vous spécifiez une commande Open avec un fichier ayant une extension XLSX, JMP ouvrira ce fichier directement à partir du disque sans aucune interface COM impliquée.  Ce mécanisme d'importation peut éventuellement être étendu pour lire les couleurs de cellule et modifier les cellules dans la table JMP résultante.

Brian

Objet: Exporter des couleurs Excel vers un tableau de données JMP avec Visual Basic

merci pour votre réponse rapide Brian!

Le code ci-dessus effectue ensuite un ensemble d’analyses que nous voulons extraire de nos données (diagrammes de variabilité, analyses à sens unique, cartes thermiques, etc.), raison pour laquelle j’aimerais utiliser VB.  J'espérais que les données de ces graphiques pourraient avoir la même couleur que l'utilisateur a configurée dans Excel.

Lorsque vous parlez du mécanisme d'importation Excel, parlez-vous du complément Excel?

Objet: Exporter des couleurs Excel vers un tableau de données JMP avec Visual Basic

Je suis désolé, mais il n’existe actuellement aucun mécanisme permettant de définir des valeurs RVB droites.  Il semblerait qu'il serait préférable que le mécanisme d'importation Excel se contente de gérer la coloration des cellules pour vous, plutôt que de vous le faire via VB.  Est-ce vrai?

Brian Corcoran

Développement JMP