トップページ | ひとつ上のページ | 目次ページ | このサイトについて | ENGLISH

２次データ作成のサンプル（Excel編）

１次データから２次データを作成するための具体的な手順は、イメージしにくいと思います。

リンク先は、簡単なケースの例です。 Excel上で、VBAを使って加工しています。「データ1次」というシートのデータを加工して、「データ2次」というシートに出力するためのマクロです。マクロに書かれているプログラムの主要な部分は、下記のようなものです。

２次データの作成のポイント

ポイントがいくつかあります。

バッチの切れ目の判断

リンク先の例では、バッチの切れ目は、「モード」という列の情報でわかります。

「モード」のような便利な列がある時は、楽です。ない場合は、例の場合なら、「温度が50.1℃の上か下かで判断する。」という方法でも、ほぼ同じ解析ができます。

「モード」のような列がない場合は、いろいろな情報を駆使する必要があります。

時間の計算

時刻と時間の扱い方の知識が必要です。このプログラムでは、「分」の単位で集計したかったので、24と60をかけて、「分」に換算しています。

停止時間の計算

このプログラムで難しい部分のひとつは、前バッチの終わりと、次のバッチの開始の間の時間（停止時間）の出し方です。新しいバッチでのEndtimeを記憶する前に、計算するのがポイントです。

停止時間は、解析の目的によっては不要ですが、チョコ停やドカ停の解析のように、工場の解析では重要なもののひとつです。

最高温度の計算

最高温度は、Excelの関数を使って求めています。

関数でできる場合は、簡単に書けてしまいますが、例えば、「最高温度に達するまでの時間」等、ものによっては、求めるためのプログラムを自分で考える必要もあります。

２次データの作成の主要部分

OutputGyo = 2 '出力先の行の初期値

For i1 = 2 To 10000 '2行目から10000行目までを順に見て行く

If Worksheets("データ1次").Cells(i1, 1) = "" Then Exit For 'i1行の、1列目が空白なら、ループを出る。

If Worksheets("データ1次").Cells(i1, 2) = 0 And Worksheets("データ1次").Cells(i1 + 1, 2) > 0 Then '2列目を使って、バッチの開始行を抽出
StartTime = Worksheets("データ1次").Cells(i1 + 1, 1) 'バッチの開始時刻を記憶
StartGyo = i1 'バッチ開始行を記憶
End If

If Worksheets("データ1次").Cells(i1, 2) > 0 _
And Worksheets("データ1次").Cells(i1 + 1, 2) = 0 Then '2列目を使って、バッチの終了行を抽出

If OutputGyo > 2 Then '前のバッチの終了からの時間を出力するが、最初のバッチは前バッチがないので、出力しない
Worksheets("データ2次").Cells(OutputGyo, 4) = (StartTime - EndTime) * 24 * 60 '前のバッチの終了からの時間（分単位に換算）
End If

EndTime = Worksheets("データ1次").Cells(i1, 1) 'バッチの終了時刻を記憶
EndGyo = i1 'バッチの終了行を記憶

Worksheets("データ2次").Cells(OutputGyo, 1) = StartTime 'バッチ開始の時刻を出力
Worksheets("データ2次").Cells(OutputGyo, 2) = EndTime　 'バッチ終了の時刻を出力
Worksheets("データ2次").Cells(OutputGyo, 3) = (EndTime - StartTime) * 24 * 60 'バッチの時間（分単位に換算）を出力

Worksheets("データ2次").Cells(OutputGyo, 5) _
= WorksheetFunction.Max( _
Range(Worksheets("データ1次").Cells(StartGyo, 3), Worksheets("データ1次").Cells(EndGyo, 3)))
'バッチの間の最高温度を出力
OutputGyo = OutputGyo + 1 'データの出力先の行を次の行にする
End If
Next i1