10120_de-DE

liliconcom

Exportieren Sie Excel-Farben in eine JMP-Datentabelle mit Visual Basic<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Ich habe eine Datentabelle in Excel, die ich mit VBA in JMP exportiere.  Ich kann mit der SetSelectedRowsColor-Funktion Farben auf die JMP-datatable-Zeilen anwenden, kann jedoch nur Standard-JMP-Farben (jmpColorBlue, jmpColorGreen usw.) anwenden.  Ein Beispiel für das, was ich mache, ist:

     Dim MyJMP As JMP.Application

     Dim JMPdoc als JMP.Document

     Setze MyJMP = CreateObject ("JMP.Application")

     MyJMP.Visible = True

     Setze JMPdoc = MyJMP.OpenDocument (ThisWorkbook.FullName)

     Dim JMPdt As JMP.DataTable

     Legen Sie JMPdt = JMPdoc.GetDataTable fest

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

     JMPdt.SetSelectedRowsColor (jmpColorBlue)

Ich möchte stattdessen die Farben in der Excel-Tabelle verwenden und diese auf die JMP-Zeilen anwenden.  Gibt es eine Möglichkeit, das innere Excel-Zellen-RGB auf die Zeilen in JMP anzuwenden?

Vielen Dank

Re: Exportieren Sie Excel-Farben mit Visual Basic in eine JMP-Datentabelle

Es funktioniert super!

Hier ist der abschließende Code, in dem sich die Bedingungsnummer, nach der ich färbte, in Spalte A befindet

Dim MyJMP As JMP.Application

Setze 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

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

Dim rgbstr As String

Dim cond As Integer

Do bis cl.Value = ""

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

        Setze cl = cl.Offset (1)

    Schleife

    cond = cl.Value

     'RGB-Wert der Excel-Zelle suchen

    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 << Select Where (Bedingungsnummer ==" & cond & ") << colors (" & rgbstr & ");"

    str = str & str2

   

    Setze cl = cl.Offset (1)

Schleife

MyJMP.RunCommand (str)

Danke für deine Hilfe, Brian!

Re: Exportieren Sie Excel-Farben mit Visual Basic in eine JMP-Datentabelle

Nein. Wenn Sie einen Open-Befehl zusammen mit einer Datei mit der Erweiterung XLSX angeben, öffnet JMP diese Datei direkt von der Festplatte, ohne dass COM-Schnittstellen beteiligt sind.  Dieser Importmechanismus kann möglicherweise erweitert werden, um die Zellenfarben zu lesen und die Zellen in der resultierenden JMP-Tabelle zu ändern.

Brian

Re: Exportieren Sie Excel-Farben mit Visual Basic in eine JMP-Datentabelle

Danke für deine schnelle Antwort, Brian!

Der obige Code führt ein Analysepaket aus, das wir aus unseren Daten heraus benötigen (Variabilitätsdiagramme, Einweganalysen, Wärmekarten usw.), weshalb ich VB verwenden möchte.  Ich hatte gehofft, dass die Daten in diesen Diagrammen die gleiche Farbe haben könnten, die der Benutzer in Excel eingerichtet hat.

Wenn Sie den Excel-Importmechanismus sagen, sprechen Sie mit dem Excel-Add-In?

Re: Exportieren Sie Excel-Farben mit Visual Basic in eine JMP-Datentabelle

Es tut mir leid, aber es gibt momentan keinen Mechanismus, um gerade RGB-Werte einzugeben.  Es scheint, als wäre es vielleicht besser, wenn der Excel-Importmechanismus nur die Zellfärbung für Sie erledigt hätte, anstatt Sie über VB zu erledigen.  Ist das wahr?

Brian Corcoran

JMP-Entwicklung