<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />やあ、
JMP スクリプティングの初心者のようなものです。 私が得ることができる助けに感謝します。
これが私が達成しようとしているステップです。 まず、Excel ファイルを開き、その Excel ファイル内でシートを選択します。次に、いくつかの SQL ステートメントを適用してシートのデータのサブセットを取得し、そのデータ セットに名前を付けます。
として遵守のサブセット。それに続いて、失敗したすべてのコントロール ポイントを書き込むログを作成します。 次に、最終 CPASU 列に基づいて管理図を作成します。 ここから私の問題が始まります。
データがいずれかのテストに失敗した場合にのみ、管理図を描画したいと考えています。 つまり、データ ポイントが管理限界の 7 つのテストすべてに合格した場合、JMP にそのグラフを表示させたくありません。 何かが限界を超えている場合にのみチャートを表示する必要があります。これは、50 を超えるチャートがある場合に特に役立ちますが、ここではケースですが、他の 49 のチャート コードはすべて含めていません。
そうすることで、すべてのチャートを見るよりも、うまくいかないことだけを修正することに集中できるようになります。
どのチャートのデータポイントが間違っていたかを突き止めます。最後に、これらのグラフを HTML ファイルとしてフォルダーに保存することで、VBA でスクリプトを作成し、これらの画像を SharePoint サイトに投稿できます。このステップは正常に機能していますが、上記のステップではアイデアが不足しています。
私のコードは次のとおりです。
Open Database("DSN=Excel Files;DBQ=C:\Users\XXXXX\Documents\XXXX\JMP Analysis\XXXXX.xlsm;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;", "SELECT * FROM `'CPASU $'`","CPASU$");
//サブセットを作成する
(Data Table( "CPASU by queue$" ) << Select Where(AND(FWEEK>=201201,FWEEK!=201248, FWEEK!=201247, FWEEK!=201243, Adherence>0))<< Subset( Linked ) ;
Current Data Table( Data Table( "Subset of Adherence $" ) ));
//csv ファイルのログとセットアップ列をクリアする
ログをクリア();
Write("Queue Name,Test,Column,Data Point\!N");
// 管理図の開始
New Window( "CPASUのサブセット",
V リストボックス(
管理図(Sample Label( :FWEEK ),(Alarm Script(Write("NA Standard,",qc_test,",",qc_col,qc_sample,"\!N")),
グループサイズ( 1 ),
KSigma( 3 ),}
Chart Col( :Final CPASU, Individual Measurement(Shade Zones(1), Test 1(1)) ),Where( :Queue Name == "NA Standard" ),),);
Savelog("C:\Users\XXXX\Documents\XXXX\JMP Analysis\JMPlogs.csv");
Window(“CPASUのサブセット”) << SaveHTML (“C:\Users\XXX\Documents\XXX\JMP Analysis\HTML\CPASU.html”);
開き括弧と閉じ括弧の数に不一致がある場合は無視してください。
ねえ、アシュウィン、
これを行うにはいくつかの方法が考えられますが、最も簡単なのは、管理図をそのままスクリプト化してから、作成したログ ファイルを表として JMP で開くことだと思います。 ここからいくつかの方法がありますが、基本的には、どのブレイクアウトに障害があるかを示す表が JMP に表示されます。 「キュー名」の値の個別のリストをリスト変数にロードし、そのループを 2 番目のスクリプトのようにループさせることができます... 基本的に where(:Queue Name = "NA Standards") を Where(:Queue Name) に置き換えます= リスト) そうすれば、失敗したチャートのみをスクリプト化します。 したがって、2 番目のセクションは次のようになります。
V リストボックス(
For( i= 1, i <= N Items(LISTNAME), i++,
管理図(サンプルラベル( :FWEEK ),(アラームスクリプト(書き込み(char(LISTNAME) ,",",qc_test,",",qc_col,qc_sample,"\!N")),
グループサイズ( 1 ),
KSigma( 3 ),
Chart Col( :Final CPASU, Individual Measurement(Shade Zones(1), Test 1(1)) ),Where( :Queue Name == LISTNAME )、)、));
自然に LISTNAME をリストと呼びたいものに置き換えます。 私はこのコードをテストしていないので、微調整があるかもしれません括弧とカンマ...でも、お分かりだと思います。
