”SD”で作ったコールリストの加工

No.

手順

操作

図（クリックで拡大）

１

 Wordで読み込む 　ﾌｧｲﾙ(F)−開く(O)で「ﾌｧｲﾙを開く」の画面が出ますが、”SD”のﾌｫﾙﾀﾞ内をさがしｸﾘｯｸしても、そのままでは何も表示されません。Wordの画面下の方にある「ﾌｧｲﾙの種類(T)」の▼をｸﾘｯｸして「全てのﾌｧｲﾙ(*.*)」をｸﾘｯｸするとﾌｫﾙﾀﾞ内のﾌｧｲﾙ全部が表示され、その中にsequense.xxのﾌｧｲﾙがあります。
　これをｸﾘｯｸすると右図のような画面になります。”SD”のインプット画面では赤と青のグラフィックスが表示されますが、ファイルを読みこんだ場合はグラフィックスはなく、ダンサーの絵もテキストのみで表示されています。タイトルや空白行をDeleteｷｰで詰めるとﾍﾟｰｼﾞが無駄になりません。（Excelに読み込んで空白行を詰める方法：第４項参照）
　とりあえずこの画面をWordで印刷すれば使えます。

図１

２

 Wordから切り取り 　以下は１ページに多く印刷したり、判り易く絵表示にする方法です。
　Wordの画面で、編集(E)−すべて選択(L)、で文字全部が反転し選択画面になります。次に、編集(E)−切り取り(T)、で切り取り（ｸﾘｯﾌﾟﾎﾞｰﾄﾞへ取り込み）ます。		 　

３

 Excelへ貼付け 　Excelの新しいﾜｰｸｼｰﾄを開き、ここで、編集(T)−貼り付け(P)、で右図のようにｸﾘｯﾌﾟﾎﾞｰﾄﾞからExcelの表に貼り付けます。Wordでは１列だけですが、1行の文字数を予めWordで調整しておけば、ExcelにはA4の１ﾍﾟｰｼﾞに 3列程度貼り付けることができます。
　なおWordで切り取ったあとは、Wordの画面に何も残りませんが、この状態で上書き保存します。切り取らずｺﾋﾟｰをしてExcelに貼りつけ、Wordの画面に残したまま終了すると、Sequence.xxにも残ったままとなり、次にSDを起動した場合残った構成に続けて書き込まれていきますので、注意が必要です。

図３

４

 行間の詰めをExcelで行う 　WordでDelete ｷｰを押せば、行間は詰まりますが、1行づつｽｸﾛｰﾙしながら ｷｰを押さねばならず大変面倒です。これをExcelで自動的に詰めるようにしてみました。右図にその例を示します。
　A列：B列の文字が無い時 0とし、文字が有るときは 1から順に番号をつける
　B列：この列にWordから切り取ったﾃｷｽﾄを貼りつける
　C列：単なる一貫番号，D列：B列の文字数，E列：単なる一貫番号
　F列：VLOOKUP関数でA列の番号の横にある B列ｾﾙの内容をE列の番号の横にある F列ｾﾙに表示する
　第7行目の各ｾﾙの計算式を第3行に記載しておきましたので、参考にしてください。なお他の行は第7行の計算式をｺﾋﾟｰすればOKです。
　VLOOKUP関数を使う時はﾘｽﾄの部分を名前で定義しておく必要があります。この例では$A$6から$b$1004の範囲をListという名前で定義しています。
　F行の計算結果を［編集］−［ｺﾋﾟｰ］して他のｼｰﾄに貼りつけますが、貼りつけるときは、［編集］−［形式を選択して貼りつけ］−［値］をｸﾘｯｸして貼りつけます。単なる貼りつけでは参照位置が変わってしまいますので、各ｾﾙに 0しか表示されません。
行間詰めﾌｧｲﾙ例

図４

５

 ダンサー表示を文字から絵に変える

連絡先
藤岡

 　ﾀﾞﾝｻｰの表示を文字から右図のような絵にすると判り易くなります。これには外字を作り、置換するわけですが、ﾀﾞﾝｻｰが男４組×４方向、女４組×４方向あり、置換するにしても32回繰り返す必要があります。けれどもこの操作はExcelのﾏｸﾛにしておけばﾜﾝﾀｯﾁで置換できます。
　なお当然のことですが、この図はそのｺﾝﾋﾟｭｰﾀにﾀﾞﾝｻｰ絵表示の外字が登録されていないと表示されません。他のｺﾝﾋﾟｭｰﾀにﾌｧｲﾙをｺﾋﾟｰする時は注意が必要です。単にExcelのﾌｧｲﾙをｺﾋﾟｰしただけでは外字の絵は表示されず、［・］が表示されるだけです。

　私が作った外字及びﾏｸﾛ（外字ﾌｧｲﾙはなぜかｱｯﾌﾟﾛｰﾄﾞできません）
　以下この外字ﾌｫﾝﾄとﾏｸﾛﾌｧｲﾙのｲﾝｽﾄｰﾙについて記します。

図５
　
・ 1) ﾌｧｲﾙのｺﾋﾟｰ
上記外字及びﾏｸﾛのﾌｧｲﾙを適当なﾌｫﾙﾀﾞへｺﾋﾟｰします。

2) 外字ﾌｫﾝﾄ EUDC.TTE とEUDC.EUFのｲﾝｽﾄｰﾙ：
　[ｽﾀｰﾄ]→[設定]→[ｺﾝﾄﾛｰﾙﾊﾟﾈﾙ]→[ﾌｫﾝﾄ ｱｲｺﾝ]をﾀﾞﾌﾞﾙｸﾘｯｸします。上方のﾒﾆｭｰで[ﾌｧｲﾙ]→[新しいﾌｫﾝﾄのｲﾝｽﾄｰﾙ]をｸﾘｯｸし、追加します。
　なおこのとき「EUDCを作成または置換できません：共有違反がありました。送り側または受け側のファイルは使用中かもしれません。」などとエラーメッセージが出てコピーできない場合があります。この場合はｺﾏﾝﾄﾞ ﾌﾟﾛﾝﾌﾟﾄを使うとｺﾋﾟｰできます。
　・まずEUDC.TTEとEUDC.EUFのﾌｧｲﾙをC:ﾄﾞﾗｲﾌﾞのﾙｰﾄﾃﾞｨﾚｸﾄﾘ（ﾌｫﾙﾀﾞ内ではないところ）にｺﾋﾟｰしておきます。
　・［ｽﾀｰﾄ］→［すべてのﾌﾟﾛｸﾞﾗﾑ］→［ｱｸｾｻﾘ］→［ｺﾏﾝﾄﾞﾌﾟﾛﾝﾌﾟﾄ］とｸﾘｯｸして起動します。
　・黒い画面が出たら > の右へ次のように入力します。[Enter]は[Enter]ｷｰを押すという意味です。
　　cd \[Enter]
　　copy eudc.* windows\fonts[Enter]
　これでWindow\Fontsﾌｫﾙﾀﾞ内にｺﾋﾟｰされます。ｺﾋﾟｰ（ｲﾝｽﾄｰﾙ）後、ｴｸｽﾌﾟﾛｰﾗｰで確認しても見えない場合がありますが、[eudc]をｷｰで検索してみて有ればインストールできています。なおこれが完了するまで外字ｴﾃﾞｨﾀｰは起動しないほうがよいです。
　
3) MS Excel ﾏｸﾛﾌｧｲﾙ Personal.xls の自動起動：
　Personal.xls を C:\Program Files\Microsoft Office\Office11\xlstartのﾌｫﾙﾀﾞｰ内へｺﾋﾟｰします。
　なお、Office11ﾌｫﾙﾀﾞｰはﾊﾞｰｼﾞｮﾝにより異なりますがxlstartﾌｫﾙﾀﾞがある場所です。
　
・ 4) 外字の登録
　・ [ｽﾀｰﾄ]−[ﾌﾟﾛｸﾞﾗﾑ(P)]−[ｱｸｾｻﾘ]−[外字ｴﾃﾞｨﾀ]、とｸﾘｯｸし、外字ｴﾃﾞｨﾀを立ち上げます。
　・ [ﾌｧｲﾙ(F)]−[ﾌｫﾝﾄのﾘﾝｸ(F)]−[◎全てのﾌｫﾝﾄにﾘﾝｸする]、をｸﾘｯｸします。[OK]、をｸﾘｯｸします。[編集(E)−ｺｰﾄﾞの選択]、で出た画面にﾀﾞﾝｻｰ絵表示の外字が表示されれば、ﾀﾞﾝｻｰ絵表示の外字は使用できます。
　
・ 5) ﾏｸﾛの実行
　外字登録後、Excelの図４表示状態で［Ctrl］ｷｰを押しながら［E］ｷｰを押すと（［Shift］ｷｰは押さない）、ﾏｸﾛが実行されて順に置換され、図５のようになります。
　なおこの操作をしたら元へ戻すことはできないので注意が必要です。ﾜｰｸｼｰﾄのｺﾋﾟｰを作っておき、置換するのがよいと思います。ﾜｰｸｼｰﾄのｺﾋﾟｰを作るには ［Cｔｒｌ］ｷｰを押しながらﾜｰｸｼｰﾄのﾀﾌﾞをﾄﾞﾗｯｸﾞします。ｺﾋﾟｰのﾜｰｸｼｰﾄで置換を実行すれば元のﾜｰｸｼｰﾄには置換してないものが残ります。

　以上

先頭に戻る

最終更新日 : 2012/4/12

inserted by FC2 system