マイツール便利技：項目行が曜日のカレンダーを作る

	マイツール便利技
	項目行が曜日のカレンダーを作る
ＭＷＭ編集局

マイツールのＣＡＬＥ命令を使うと、１ヶ月ごとのカレンダーを作ることができます。
ただし、データを入力するための表形式となっているので、縦長のカレンダーとなります。

今回は、市販のカレンダーのように、項目行に曜日を取ったカレンダーの作り方を説明します。

・元になるカレンダーをＣＡＬＥ命令で作る

元になるカレンダーを、ＣＡＬＥ命令で１ヶ月分作成します。その際、横の長さを１１０桁、３列目の桁数を８桁にします。

１．	ＣＡＬＥ命令を実行して、作成するカレンダーの年月を指定します。　　ＣＡＬＥ［Ｅｎｔｅｒ］

２．	とりあえず今月のカレンダーを作成する場合は、［Ｅｎｔｅｒ］キーを６回押します。　　［Ｅｎｔｅｒ］（作成する表は１カ月）　　［Ｅｎｔｅｒ］（作成するのは今年）　　［Ｅｎｔｅｒ］（作成するのは今月）　　［Ｅｎｔｅｒ］（１日から表示）　　［Ｅｎｔｅｒ］（日付と曜日を付ける）　　［Ｅｎｔｅｒ］（日付のセットは縦(列)方向）
	＊	作成する年月を指定する場合は、「作成するのは何年ですか」「作成する月は」のメッセージで、希望の年月を指定してください。

３．	横の長さを１１０桁にし、３列目の桁数を８桁にして、ＣＡＬＥ命令を終了します。　　１１０［Ｅｎｔｅｒ］（横の長さは１１０桁）　　８［Ｅｎｔｅｒ］（３列目の桁数は８桁）

・形を変える前の下準備

ＣＡＬＥ命令で作成した１ヶ月のカレンダーを、項目行に曜日を取ったカレンダーにする前に、下準備として、３列目に日にちを、１列目に週単位の連番を付けます。

１．	カレンダーの３列目に、日にちを付けます。ここでは、ＮＵＭ命令を使ってみます。　　ＮＵＭ［Ｅｎｔｅｒ］　　［Ｅｎｔｅｒ］（画面の表に連番を付ける）　　３［Ｅｎｔｅｒ］（３列目に連番を付ける）


２．	１列目に連番を付ける前に、ＤＲ命令で、小数点以下の桁数を０桁、計算結果を切り上げに変更します。　　ＤＲ［Ｅｎｔｅｒ］　　０［Ｅｎｔｅｒ］（小数点以下の桁数は０桁）　　３［Ｅｎｔｅｒ］（計算結果は切り上げ）

３．	ＳＥＱ関数を使って、１列目に週単位の連番を付けます。連番の開始番号は、１日の曜日によって変わります。　　日＝１　　月＝２　　火＝３　　水＝４　　木＝５　　金＝６　　土＝７ここでは、１日が水曜日ですので、連番の開始番号は「４」です。　　ＳＥＱ［４，１］／７＝Ｃ１［Ｅｎｔｅｒ］

	＊	開始番号を指定する変わりに、Ｚ３８変数に代入されている１日の曜日を示す数値を使うこともできます。この場合、「ＳＥＱ［Ｚ３８＋１，１］／７＝Ｃ１」と入力します。

・項目行に曜日を取った形にする

日にちと週単位の連番を付けたら、次は項目行が曜日となった形に変えます。ここでは、ＴＭ命令を使って形を変えます。

１．	ＴＭ命令を実行して、縦軸に１列目の週単位の連番を、横軸に２列目の曜日を指定し、３列目の日にちを数値集計します。　　ＴＭ［Ｅｎｔｅｒ］　　［Ｅｎｔｅｒ］（画面の表を集計）　　１［Ｅｎｔｅｒ］（縦軸は１列目）　　２［Ｅｎｔｅｒ］（横軸は２列目）　　１［Ｅｎｔｅｒ］（集計方法は数値）　　３［Ｅｎｔｅｒ］（３列目を集計）　　［Ｅｎｔｅｒ］（１行の長さは変更しない）


２．	ＤＣ・ＤＬ命令で、日付の列と合計の行・列を削除します。　　ＤＣ［Ｅｎｔｅｒ］　　Ｈ，Ｔ［Ｅｎｔｅｒ］（先頭行の「日付」と最終列の「合計」を削除する）　　ＤＬ［Ｅｎｔｅｒ］　　Ｔ［Ｅｎｔｅｒ］（最終行の「合計」を削除する）

３．	日曜日列が先頭となっていない場合は、日曜日が２列目となるようにＭＣ命令で移動します。ここでは、日曜～火曜までの列を水曜の前に移動します。　　ＭＣ［Ｅｎｔｅｒ］　　５－Ｔ［Ｅｎｔｅｒ］（６列目から最終列までを移動）　　Ｈ［Ｅｎｔｅｒ］（先頭列の前に移動）

・体裁を整えて見やすくする

ここまでの作業で、項目行が曜日となったカレンダーができました。このカレンダーを、月間予定表として使う場合は、空白行や罫線を引いておくと使いやすくなります。

１．	ＡＣＭＣ命令で、キーごとに空白行を挿入します。　　ＡＣＭＣ［Ｅｎｔｅｒ］　　［Ｅｎｔｅｒ］（計算するページは画面）　　１［Ｅｎｔｅｒ］（１番目のキー列は１列目）　　［Ｅｎｔｅｒ］（２番目のキー列は指定しない）　　［Ｅｎｔｅｒ］（計算場所は指定しない）　　Ｉ［Ｅｎｔｅｒ］（キーごとにスペース行を挿入）　　［Ｅｎｔｅｒ］（結果の書き込み先は画面）

２．	ＩＬＳ命令で、最終行の次にスペース行を１行挿入します。　　ＩＬＳ［Ｅｎｔｅｒ］　　Ｔ＋１［Ｅｎｔｅｒ］（最終行の次を指定）　　１［Ｅｎｔｅｒ］（スペース行数は１行）


３．	ＤＲＣ・ＤＲＬ命令で、縦・横の罫線を引きます。　　ＤＲＣ［Ｅｎｔｅｒ］　　［Ｅｎｔｅｒ］（すべての列の前に横罫線を引く）　　ＤＲＬ［Ｅｎｔｅｒ］　　８，１０，１２，１４［Ｅｎｔｅｒ］（８，１０，１２，１４行目の前に横罫線を引く）


４．	ＳＥＴＰ命令で、土・日の列に色を付けます。　　ＳＥＴＰ［Ｅｎｔｅｒ］　　３［Ｅｎｔｅｒ］（色の指定を行う）　　４－Ｔ［Ｅｎｔｅｒ］（項目行から最終行まで色を付ける）　　２［Ｅｎｔｅｒ］（２列目の日曜日に色を付ける）　　４［Ｅｎｔｅｒ］（文字色は「赤」）　　［Ｅｎｔｅｒ］（背景色は変更しない）　　ＳＥＴＰ［Ｅｎｔｅｒ］　　３［Ｅｎｔｅｒ］（色の指定を行う）　　４－Ｔ［Ｅｎｔｅｒ］（項目行から最終行まで色を付ける）　　１４［Ｅｎｔｅｒ］（１４列目の土曜日に色を付ける）　　３［Ｅｎｔｅｒ］（文字色は「水色」）　　［Ｅｎｔｅｒ］（背景色は変更しない）

	＊	祝日の色も変える場合は、同じようにしてＳＥＴＰ命令で変更してください。

　

上記の方法で作成したカレンダーは、担当別の行動予定表として使うと便利です。
また、複数月にわたる進捗表としてもお使いいただけます。

　

・補足
＊	ＣＡＬＥ命令について詳しくは､「命令辞典｣をご覧ください。

　

MUG Web Magazine

□前のページに戻る