マイツール便利技

１件１ページに分かれたデータをひとつの表にまとめる

ＭＷＭ編集局

　

マイツールは通常は、1件1行の形で表を作成しますが、次の表のように、顧客ごとに1件1ページのデータとしての保存も可能です。この表は、営業担当者が顧客別の情報を１件ずつ収めたものです。

このような表が複数あって、１件１行の表にまとめるには、次のような方法があります。
ここでは、得意先ファイルの１〜２５ページに書込まれた得意先ごとのデータを使ってみます。

　

１．

１件１行の表にするデータを１ページ、Ｒ命令で読み込みます。

　　Ｒ［Ｅｎｔｅｒ］
　　得意先／１［Ｅｎｔｅｒ］　　　（読み込むのは得意先ファイルの１ページ）

　

２．

元表は、顧客の情報を１６個の項目に分けて、２列目に書込まれています。
また、２列目の桁数は、入力されているデータの長さに合せて、ページごとに異なっています。
そこで、基になるフォーマットを作成して、裏画面に置きます。
ここでは、画面の１ページ目のデータの２列目をＣＦ命令で３０桁にし変更して、Ｘ命令で裏画面と入れ替えます。

　　ＣＦ［Ｅｎｔｅｒ］
　　２［Ｅｎｔｅｒ］　　　（２列目の桁数を変更）
　　３０［Ｅｎｔｅｒ］　　（新しい桁数は３０桁）

　　Ｘ［Ｅｎｔｅｒ］　　　（裏画面と入れ替える）

　

３．

１行１件の表にする前に、ＲＦ命令を使って２５件分のデータを１行１データの形でひとつにします。

　　ＲＦ［Ｅｎｔｅｒ］
　　得意先／２−２５［Ｅｎｔｅｒ］　（得意先ファイルの２〜２５ページをまとめる）
　　［Ｅｎｔｅｒ］　　　　　　　　　　　　（裏画面の表をフォーマットの基にする）
　　［Ｅｎｔｅｒ］　　　　　　　　　　　　（結果は画面に書込む）
＊ 結果の書き込み先に画面を指定した場合、データの量によっては画面に書ききれないことがあります。
大量のデータを処理する場合は、あらかじめ、ＳＥＴＣ命令の「１０‥ページの拡張」の設定を「２‥拡張」または「３‥指定拡張」に変更して、ページ拡張できるようにしてください。
ここでは、「３‥指定拡張」で100ページを設定して、ページ拡張できるようにしておきました。

４．

１行１件の表にするには、ＴＭ命令を使います。ＴＭ命令で集計するには、縦軸・横軸にする列、集計する列が必要です。この表には縦軸にする列がないので、ＩＣＳ命令で空白列を挿入します。

　　ＩＣＳ［Ｅｎｔｅｒ］
　　１［Ｅｎｔｅｒ］　　　　（１列目の前に空白列を挿入）
　　３［Ｅｎｔｅｒ］　　　　（桁数は３桁）
　　［Ｅｎｔｅｒ］　　　　　（空白列の挿入を終了）

　

５．

挿入した縦軸にする列に、ＳＥＱ関数を使って、１６個ずつの連番をふります。

　　ＤＲ［Ｅｎｔｅｒ］
　　０［Ｅｎｔｅｒ］　　（小数点以下は表示しない）
　　３［Ｅｎｔｅｒ］　　（端数は切り上げ）

　　ＳＥＱ［２，１］／１６＝Ｃ１　　（１列目に１６個ずつの連番をふる）

６．

ＴＭ命令で、１行１件の表にします。

　　ＴＭ［Ｅｎｔｅｒ］
　　［Ｅｎｔｅｒ］　　　　（画面の表を集計）
　　１［Ｅｎｔｅｒ］　　　（縦軸は１列目）
　　２［Ｅｎｔｅｒ］　　　（横軸は２列目）
　　５［Ｅｎｔｅｒ］　　　（文字を集計）
　　３［Ｅｎｔｅｒ］　　　（集計するのは３列目）
　　６００［Ｅｎｔｅｒ］　（新しい１行の長さは６００桁）

７． ここまでで、１行１件の表になりましたが、列の桁数をデータに合せて変更し、頭をそろえて、見やすくします。また、表題も「得意先情報」に変更します。

　　ＳＲ［Ｅｎｔｅｒ］
　　［Ｅｎｔｅｒ］　　　　（全部の列のデータを右に寄せる）

　　ＣＦ［Ｅｎｔｅｒ］
　　［Ｅｎｔｅｒ］　　　　（全部の列を選択）
　　Ｐ［Ｅｎｔｅｒ］　　　（列幅をデータ長さにピッタリ揃える）

　　ＣＦ［Ｅｎｔｅｒ］
　　［Ｅｎｔｅｒ］　　　　（全部の列を選択）
　　＋２［Ｅｎｔｅｒ］ 　（列幅を２桁増やす）

　　ＳＬ［Ｅｎｔｅｒ］
　　３−T［Ｅｎｔｅｒ］ （３列目〜最終列のデータを左に寄せる）

　　ＣＴ［Ｅｎｔｅｒ］
　　得意先情報［Ｅｎｔｅｒ］ （新しい表題は「得意先情報」）

以上の手順で、１行１件の表が完成します。

　

・補　足
＊ マイツール便利技のＮｏ.１８「連番の付け方いろいろ」で、「・７件ずつまとめて同じ番号の連番を付ける。」方法として、

　

１． ＤＲ命令で、小数点以下の桁数を0桁、切り上げに設定します。
　　　ＤＲ[Enter]
　　　０[Enter]　　　　（小数点以下の桁数は0桁）
　　　３[Enter]　　　　（計算結果は切り上げ）
２．

　

１列目の「連番」に、ＳＥＱ関数を使って７件ずつの連番を付けます。
　　　ＳＥＱ［１，１］／７＝Ｃ１[Enter]
と、１から始まって１ずつ増える連番を、７で割る計算式を入力すると、７件ずつ同じ番号の連番が付けられます。

　

という方法を紹介しましたが、この方法で１０行以上に同じ番号の連番を付けると、先頭行が「０」となって、連番が正しく付けられません。
今回のように１０行以上に同じ番号の連番を付ける場合は、本文で紹介したように、

ＳＥＱ［２，１］／１６＝Ｃ１

とすると、正しく連番が付けられます。

　

MUG Web Magazine

□前のページに戻る