使用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开发
