Visual Basic을 사용하여 Excel 색상을 JMP 데이터 테이블로 내보내기<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />VBA를 사용하여 JMP로 내보내는 Excel 테이블이 있습니다. SetSelectedRowsColor 함수를 통해 JMP 데이터 테이블 행에 색상을 적용 할 수 있지만 기본 JMP 색상 (jmpColorBlue, jmpColorGreen 등) 만 적용 할 수 있습니다. 내가하는 일의 예가있다.
JMP.Application으로서의 Dim MyJMP
JMP.Document로서의 희미한 JMPdoc
MyJMP = CreateObject ( "JMP.Application") 설정
MyJMP.Visible = True
JMPdoc 설정 = MyJMP.OpenDocument (ThisWorkbook.FullName)
JMP.DataTable으로서의 희미한 JMPdt
JMPdt = JMPdoc.GetDataTable 설정
rws_bool = JMPdt.SelectRowsWhere ( "조건", rowSelectEquals, rowSelectClearPrevious, "1")
JMPdt.SetSelectedRowsColor (jmpColorBlue)
Excel 테이블에서 색상을 사용하고 JMP 행에 색상을 적용하고 싶습니다. 내부 Excel 셀 RGB를 JMP의 행에 적용 할 수 있습니까?
감사
Re : Visual Basic으로 Excel 색상을 JMP 데이터 테이블로 내보내기그것은 위대한 작품!
다음은 마지막 코드입니다. 여기서 내가 채색하고있는 조건 번호는 A 열에 있습니다.
JMP.Application으로서의 Dim MyJMP
MyJMP = CreateObject ( "JMP.Application") 설정
MyJMP.Visible = True
문자열로 어둡게 str
문자열로 어둡게 str2
str = "dt = Open ("& "" ""& ThisWorkbook.FullName & "" "&"); "
희미한 rgbvalue, rvalue, gvalue, bvalue
Dim cl As 범위
Set cl = ThisWorkbook.ActiveSheet.Range ( "A2")
String으로 희미한 rgbstr
정수로 희미하다.
할 때까지 cl.Value = ""
할 때까지 .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 << 장소 선택 (조건 번호 =="& cond & ") << colors ("& rgbstr & ");"
str = str & str2
세트 cl = cl.Offset (1)
고리
MyJMP.RunCommand (str)
도와 줘서 고마워, Brian!
Re : Visual Basic으로 Excel 색상을 JMP 데이터 테이블로 내보내기XLSX 확장자를 가진 파일과 함께 열기 명령을 지정하면 JMP가 COM 인터페이스가없는 디스크에서 직접 파일을 엽니 다. 이 가져 오기 메커니즘을 확장하여 셀 색상을 읽고 결과 JMP 테이블 내의 셀을 변경할 수 있습니다.
브라이언
Re : Visual Basic으로 Excel 색상을 JMP 데이터 테이블로 내보내기빠른 응답 주셔서 감사합니다 Brian!
위의 코드는 VB에서 사용하고자하는 데이터 (가변성 차트, 일원 분석, 히트 맵 등)에서 원하는 분석 패키지를 수행합니다. 이러한 차트의 데이터가 사용자가 Excel에서 설정 한 것과 동일한 색상을 사용할 수 있기를 기대했습니다.
Excel 가져 오기 메커니즘을 말할 때 Excel에 말하고 있습니까?
Re : Visual Basic으로 Excel 색상을 JMP 데이터 테이블로 내보내기죄송 합니다만 지금 RGB 값을 곧바로 입력 할 수있는 메커니즘이 없습니다. Excel 가져 오기 메커니즘이 VB를 통해 셀 색상을 처리하기보다는 오히려 더 나은 것처럼 보입니다. 사실입니까?
브라이언 코코 란
JMP 개발
