使用Visual Basic將Excel顏色導出到JMP數據表<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />我在excel中有一個數據表，我使用VBA導出到JMP。 我可以通過SetSelectedRowsColor函數將顏色應用於JMP數據表行，但我只能應用默認的JMP顏色（jmpColorBlue，jmpColorGreen等）。 我正在做的一個例子是：
Dim MyJMP作為JMP.Application
Dim JMPdoc作為JMP.Document
設置MyJMP = CreateObject（“JMP.Application”）
MyJMP.Visible = True
設置JMPdoc = MyJMP.OpenDocument（ThisWorkbook.FullName）
Dim JMPdt作為JMP.DataTable
設置JMPdt = JMPdoc.GetDataTable
rws_bool = JMPdt.SelectRowsWhere（“Condition”，rowSelectEquals，rowSelectClearPrevious，“1”）
JMPdt.SetSelectedRowsColor（jmpColorBlue）
我想改用Excel表中的顏色並將其應用於JMP行。 有沒有辦法將內部Excel單元格RGB應用於JMP中的行？
謝謝
Re：使用Visual Basic將Excel顏色導出到JMP數據表它很棒！
這是最終的代碼，其中我著色的條件號在A列中
Dim MyJMP作為JMP.Application
設置MyJMP = CreateObject（“JMP.Application”）
MyJMP.Visible = True
Dim str As String
Dim str2 As String
str =“dt = Open（”＆“”“”＆ThisWorkbook.FullName＆“”“”＆“）;”
昏暗的rgbvalue，rvalue，gvalue，bvalue
Dim cl As Range
設置cl = ThisWorkbook.ActiveSheet.Range（“A2”）
Dim rgbstr As String
Dim cond As Integer
直到cl.Value =“”
Do Until cl.Offset（1）.Value <> cl.Offset.Value
設置cl = cl.Offset（1）
環
cond = cl.Value
'找到Excel單元格的RGB值
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 <<選擇Where（條件數==”＆cond＆“）<< colors（”＆rgbstr＆“）;”
str = str＆str2
設置cl = cl.Offset（1）
環
MyJMP.RunCommand（str）
謝謝你的幫助，Brian！
Re：使用Visual Basic將Excel顏色導出到JMP數據表不，如果您指定一個Open命令以及一個具有XLSX擴展名的文件，JMP將直接從磁盤打開該文件而不涉及COM接口。 可以擴展該導入機制以讀取單元格顏色並更改生成的JMP表中的單元格。
布賴恩
Re：使用Visual Basic將Excel顏色導出到JMP數據表謝謝你的快速反應布萊恩！
上面的代碼繼續執行我們想要的數據分析（可變性圖表，單向分析，熱圖等），這就是我想使用VB的原因。 我希望這些圖表中的數據能夠與用戶在Excel中設置的顏色相同。
當你說Excel導入機制時，你在說Excel加入嗎？
Re：使用Visual Basic將Excel顏色導出到JMP數據表對不起，但現在沒有機制可以輸入直接的RGB值。 如果Excel導入機制只是為您處理單元格著色，而不是讓您通過VB執行它，似乎可能會更好。 這是真的？
Brian Corcoran
JMP開發
