Visual Basicを使用してExcelの色をJMPデータテーブルにエクスポートする<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />VBAを使用してJMPにエクスポートしているという優れたデータテーブルがあります。 SetSelectedRowsColor関数を使用してJMPデータ行に色を適用することはできますが、デフォルトのJMP色(jmpColorBlue、jmpColorGreenなど)しか適用できません。 私がやっていることの例は、次のとおりです。
MyJMPをJMP.Applicationとして薄暗くする
JMPドキュメントとしてJMPドキュメントを薄暗くする
MyJMP = CreateObject( "JMP.Application")を設定します。
MyJMP.Visible = True
JMPdoc = MyJMP.OpenDocument(ThisWorkbook.FullName)に設定します。
薄暗いJMPdtをJMP.DataTableとして
JMPdt = JMPdoc.GetDataTableを設定します。
rws_bool = JMPdt.SelectRowsWhere( "条件"、rowSelectEquals、rowSelectClearPrevious、"1")
JMPdt.SetSelectedRowsColor(jmpColorBlue)
代わりに、Excelテーブルの色を使用してそれらをJMP行に適用したいと思います。 内部のExcelセルRGBをJMPの行に適用する方法はありますか?
ありがとう
再:Excelの色をVisual BasicでJMPデータテーブルにエクスポートそれは素晴らしい作品です!
これが最終コードです。色付けしている条件番号がA列にあります。
MyJMPをJMP.Applicationとして薄暗くする
MyJMP = CreateObject( "JMP.Application")を設定します。
MyJMP.Visible = True
文字列として薄暗いstr
文字列として薄暗いstr2
"str =" dt = Open( "&" "" "&ThisWorkbook.FullName&" "" "" ";"
暗いrgbvalue、rvalue、gvalue、bvalue
範囲として薄暗いcl
cl = ThisWorkbook.ActiveSheet.Range( "A2")を設定します。
Dim rgbstrを文字列として
整数としての薄暗い条件
cl.Value = ""まで実行
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
b値=(rgb値/ 65536 Mod 256)/ 255
rgbstr = "{"&rvalue& "、"&gvalue& "、"&bvalue& "}"
str2 = "dt <<場所を選択(条件番号=="&cond& ")<< colors("&rgbstr& ");"
str = str&str2
cl = cl.Offset(1)に設定します。
ループ
MyJMP.RunCommand(str)
ブライアン、どうもありがとう。
再:Excelの色をVisual BasicでJMPデータテーブルにエクスポートいいえ、XLSX拡張子を持つファイルと一緒にOpenコマンドを指定した場合、JMPはCOMインターフェイスを使用せずにディスクからそのファイルを直接開きます。 そのインポートメカニズムは、セルの色を読み取り、結果のJMPテーブル内のセルを変更するように拡張できる可能性があります。
ブライアン
再:Excelの色をVisual BasicでJMPデータテーブルにエクスポート素早い対応をありがとうBrian!
上記のコードは、私たちのデータから必要な分析のパッケージ(変動グラフ、一方向分析、ヒートマップなど)を実行するために続きます。そのため、私はVBを使用したいのです。 これらのグラフのデータは、ユーザーがExcelで設定したものと同じ色を付けることができると期待していました。
エクセルインポートメカニズムと言えば、エクセルと言えばアドインですか?
再:Excelの色をVisual BasicでJMPデータテーブルにエクスポートすみませんが、まっすぐなRGB値を入れるメカニズムは今のところありません。 Excelを使ってセルの配色を処理するのではなく、Excelのインポートメカニズムで処理したほうがよい場合があります。 これは本当ですか?
ブライアン・コーコラン
JMP開発