MI CHIAMO HORRY.

　ファイル交換ソフト「Winny（ウィニー）」がウイルスに感染して，個人情報が流出する事故が増えています。ウイルスに感染したWinnyは，使用者が知らないうちにハードディスク内のファイルをどんどん公開していくんだそうです。子ども達の名簿や成績データが流出したら大変ですね。

　原則として，学校で使うファイルは持ち出さないように指示されていますが，勤務時間中に全ての仕事を終えることは不可能です。何とかして持ち出す工夫をしているのが現状です。

　個人情報を扱う企業向けに，ニッセイ同和損害保険が，保険商品を発売しました。もしも情報が漏洩して，被害者が損害賠償金を請求してきた時に，それを補償するだけでなく，コンピューターシステムの復旧や再発防止のためにかかる社内の費用もトータルで補償するのだそうです。

　この保険商品は，個人用のPCを会社で使って情報が漏洩した場合は保障してくれません。当たり前ですが・・・。

　Winnyの作者は著作権法違反で逮捕されたんでしたっけ？作者がいれば，ウイルスに対する対策もできるのでしょうが，現状ではセキュリティーホールが開いたままのソフトだけが一人歩きしているのです。

　Winnyだけでなく，小学生にも様々な危機が訪れようとしています。ゲームソフトの中には，インターネットを通してデータをやり取りできるものや，見知らぬ人とチャットをすることができる機能をもったものもあります。ゲームの世界だけで流通する擬似通貨など，親の知らない世界で子ども達は，高度情報化社会の真っ只中に，何の武装もせずに放り出されているのです。

　こうなると，大人にWinnyを使うな！というよりも，幼児教育として情報セキュリティーを教えなければいけない世界がやってきそうです。

　Excelの関数を工夫して課題を解決するのは，まるでパズルを解くようで楽しいと思います。今日は，友人からの質問を元に，下のような課題を設定し，チャレンジしてみました。

（課題）ABCで成績が記入された下のような名簿がある。Aを５点，Bを３点，Cを１点として得点欄に合計点を表示せよ。

　ABCというのは，Excelにとっては文字です。これを得点という数値に変換しなければならないのですが，適当な関数が見つかりません。最初は，新規の列を挿入して，それぞれをIF関数を使って数値に変換して合計しようと思いました。実際にやってみると，表が美しくないのです。

　そこで，ちょっと強引ですが，COUNTIF関数を使って範囲内のA・B・Cそれぞれの個数を数えさせ，それに得点をかけて合計するという方法を考えました。セルE3に入力した関数は，以下のようになります。

=COUNTIF(B3:D3,"A")*5+COUNTIF(B3:D3,"B")*3+COUNTIF(B3:D3,"C")*1

　最後の*1は，なくてもいいのですが，配点が変わった時に対応できるようにあえて書いておきました。これを下のセルにコピーすれば出来上がりです。

　関数を以下に美しく書くかということにこだわってみるのも，おもしろいと思います。上の式をもう少しダイエットできないかな？

　新年度に向けて，学校のWebページのリニューアルを考えています。先日，保護者向けにアンケートをとりました。その結果は，まもなく公開する予定ですが，様々な意見をいただきました。
　さて，学校のWebページ（ホームページ）が充実すればするほど，子ども達の安全が脅かされるというジレンマに悩まされています。今日も，少し話し合ったのですが，
「細かい行事予定表を掲載して欲しいという意見があったので，掲載したい。」
「例えば，半日で下校する日などは，地域や家庭が十分に対応できず，子どもの安全が十分に確保できないのではないか。」
ということなのです。そのほかにも，学校公開の日が不特定多数の人に知られると，悪いことを考えている人が堂々と学校に入ることができるという心配もあります。というわけで，来年度は行事予定表などは認証を受けなければ閲覧できないようにしようかとも考えています。
　また，子どもの作品や写真の取り扱いも難しいものがあります。子どもの顔にぼかしが入っていたり，モザイクになっていたり・・・。後姿だけの学校もありますね。子どもが作った作品も名前を伏せて・・・。ホームページ上ではものすごく気にするのですが，表彰されて顔写真と名前が新聞に載ると大喜び・・・。よくわからなくなってしまいます。
　とりあえず，本校のホームページを保護者専用と一般公開用くらいには分けなければならなくなりそうです。

　我が家のテレビはアナログである。まだまだ使えるテレビを買い換える気になれない。地上波デジタルにも，それほど魅力を感じていない。というか，テレビ自体に魅力がないのだが・・・。

　教育の分野の一つに放送教育と言うのがある。学校向け放送を授業に生かすことを目的として行われてきた。歴史を紐解くと，学校向けラジオ放送から始まり，教育テレビの放送が始まった。これらの放送を録音したり，録画して使っていたのはつい最近までのことである。録音・録画機器が普及する前は，放送予定に合わせて時間割が決められていたこともある。「道徳の番組は火曜日の10時からだから，火曜の２時間目は道徳にしよう。」というように・・・。

　ここ数年，NHKの教育番組がインターネットに対応し，インターネットを使ってオンデマンドで番組を見ることができるようになった。さらに，デジタルコンテンツも使いたい時に使えるようになったのである。このおかげで「あっ！録画するのを忘れた！」ということが無くなってきたのである。

　さて，地上波デジタルになるともっと便利になるそうだ。でも，授業のことだけを考えれば，上記のシステムでも十分である。これにインターネットを組み合わせれば，たいていの情報は入手できる。わざわざテレビを使う必要もないだろう。

　さて，学校の教室にテレビがある。（最近はない学校もあるのだが）これらのテレビは，ほとんどの学校ではアナログである。アナログ放送がなくなったら，学校はどうするのだろうか。

選択１「地デジテレビを買うんじゃないの？」
　地上波デジタル対応のテレビを購入するとしても，市内全ての教室のテレビを入れ替えるのにいったいいくらかかるのだろう。地デジ専用テレビを買ってしまっても校内のテレビ放送（ＶＨＦの２，７，１１ｃｈが多い）は受信できるのだろうか。放送機器は１セット１，０００万円以上である。そんなお金があるのだろうか。

選択２「地デジチューナー内蔵のＤＶＤレコーダー購入だろ？」
　今あるテレビに，地デジチューナーをつないで放送を見る。これが一番安上がりかもしれない。しかし，市内だけで７０校，１校当たり２０台とすると１４００台，チューナーだけでなくレコーダーまでつけると１台１０万円・・・。でも，モニター部分がアナログだから，デジタルの恩恵を１００％受けられるわけではない。

選択３「この際，地デジ内蔵ＨＤレコーダー＋プラズマディスプレイだ！」
　これを導入すれば，プロジェクタ要らず，電子情報ボード要らず，テレビ要らずで便利だと思う。壁にマウントさせれば，テレビのような落下事故は格段に減るだろう。こうなるとうれしいんだけどな。全国の学校が大量に購入すれば，１台あたりの価格は相当下がるだろう。

　というわけで，Ｈｏｒｒｙは３番がお勧めである。（ま，夢のまた夢）でも，全国の学校からテレビがごみとして出される日は，もうすぐそこまで来ているのだ。

　年度末になってきました。明日は学習参観と学級懇談会があります。卒業式まであと１ヶ月余りですね。

　さて，明日の学級懇談会に備えて，４月から今までの児童の写真を使ったスライドショーを作りました。使ったソフトはMicrosoft社のPhotostory３です。これは，WindowsXP用の無料ソフトウエアで，WindowsXPのホームページからダウンロードできます。（使っているXPが正規版かどうかのチェックがあります。不安な人はやめた方がいいかも・・・）(^_^;)

　このソフトのウィザードは優秀で，初めて使っても５分もあれば一つの作品を作り上げることができます。もっとも，機能を深く知り，凝った作品にしようとすれば，それなりの時間がかかりますが・・・。（と言っても，１００枚くらいの写真を使った作品でも３０分あれば完成できそうです。）

　普通のスライドショーと違う点は，写真にズームやパン，チルトなどの効果を加えることで，静止画に動きがあるように感じさせる作品を作れると言うことです。また，ＢＧＭをつけるのも簡単です。さらに，出来上がったファイルはＷｉｎｄｏｗｓMediaVideo（拡張子wmv）形式で保存されるので，WindowsMediaPlayerがあれば，再生するのは簡単です。

　WMVになるということで，学校にとってはよい効果があります。例えば，スライドショーを保護者の方が欲しがった場合，写真一つ一つが分離できる形で渡すと，他の子の写真まで渡すことになってしまい，流出等の管理が大変だと思います。Videoファイルなら，一つ一つの写真を取り出すことは素人には難しいことです。また，例え流出したとしてもキャプチャーした画像の解像度が悪いので，悪用される可能性が減ると思います。

　ただ，保護者の方に渡すとしたら，特に注意することがあります。

1. 写っている人全員の承諾を得る。（肖像権の確認）
2. 使っている写真の著作権を確認する。
3. BGMを使う場合も，著作権の確認及び処理を適切に行う。
4. 配布したファイルの使用制限を徹底する。

　４については，例えば「勝手に自分のホームページにアップしない。」とか，「家庭内でのみ楽しむこと。」とか，「再配布禁止」とか・・・。やっぱり，いろいろな問題が出てきますね。他にもたくさんあるでしょうね。

　卒業式に向けて，卒業生バージョンも作成します。フリーソフトを使ったり，パワーポイントを使ったりしてきましたが，今年はこれで行きます。卒業生の入場を待つ間，会場に流してみたいと思っています。昨年までの経験から，６年生から１年生に戻っていく構成の方が，感動していただけるような気がします。

　自分でも作ってみたいという先生のために，テキスト作りも始めなければ・・・。

　今日はPCに向かう時間があったので，５月６日の処理に取り組みました。

　５月６日が（振り替えられた）休日になるのは，月・火・水のいずれかの曜日になった時です。ですから，５月６日の曜日が入っているセル（D9）を参照して，判断すればいいことになります。ですから，５月６日の行事予定を表示するセルに以下の関数を入れました。

　=IF(D9=2,"休日",IF(D9=3,"休日",IF(D9=4,"休日","")))

　この関数を翻訳すると，「もし（ＩＦ）セルＤ９が２（月曜日を表すシリアル値）の時は休日と入力しなさい。そうでない場合，もし（ＩＦ）セルＤ９が３（火曜日）の時は休日と入力しなさい。そうでない場合，もし（ＩＦ）セルＤ９が４（水曜日）の時は休日と入力しなさい。そうでない場合は，何も入力しません。」となります。

　ＩＦ関数を３回使ってやっと実現できました。でもまだ春分･秋分は・・・。

　ついでに時数管理をするＥｘｃｅｌのシートを作り始めました。本校は，３学期制ですが，時数集計は３つないし４つに分けられた「期」ごとに行います。１期は４月～６月末とか，○月１週までとか，結構ばらばらです。この分け方は，４月の職員会議を待たなければ確定しませんので，今は集計の仕方を考えているだけです。

　時数を数えるには，COUNTIF関数を使えばいいのですが，範囲指定が面倒なので，少しだけ工夫が必要でしょうね。

　今日は，閏年の処理を考えてみました。閏年には，様々な規則があります。私の記憶が確かならば・・・。

1. 西暦が４で割り切れる年は閏年
2. 西暦が１００で割り切れる年は閏年ではない
3. 西暦が４００で割り切れる年は閏年

だと思います。

　直近では西暦２０００年が，３の条件に当てはまるので閏年でした。さて，これら３つの条件を数式で表すのは，とっても面倒です。今年は２００６年ですよね。条件２に当てはまるのは，なんと９４年後です。今作っているファイルが，あと９０年以上使われるはずはありません。（その時までのExcelのバージョンアップは想像すらできません）

　そこで，２月２９日の曜日を表示するセルに，特別に式を入れることにしました。

=IF(MOD(B1+1,4)=0,WEEKDAY(DATE(B1+1,2,29),1),"")

という感じです。セルＢ１には，西暦が入ります。２月は新しい年なので１を足してます。

　上の式を翻訳すると，「もし（ＩＦ），Ｂ１の数値に１を足したものを４で割った余り（MOD）が０であることが正しければ，セルにB1+1年２月２９日の曜日を表すシリアル値を入力しなさい。正しくなければ，何も入力しません。」ということになります。

　行事予定を入れるセルの「条件付き書式」も少々加工します。「条件３」に，「曜日のセルが空白ならグレーの網掛けをしなさい。」という指定をしておきます。すると，閏年には曜日が出現するのでグレーの網掛けはなくなります。

　あとは，入力した行事予定を，月別行事予定表に反映させれば，ほとんど終わります。マクロを使わないので，印刷指定などが手作業になってしまうのが残念です。次はマクロの勉強でも始めますかね。

　実は，今回作ったファイルには，大きな欠点（バグではなく穴）があります。現行の祝日法では，国民の祝日が日曜日に重なった時，次の月曜日が休日になるのです。来年からは，次の祝日でない日だとかなんだとか，条件が難しくなります。これに対応するのが難しいのです。

　ハッピーマンデーの祝日は月曜日なので，何の指定もいりません。また，固定されている祝日（みどりの日[現行：来年から昭和の日]，こどもの日，文化の日，勤労感謝の日，天皇誕生日，元日，建国記念の日）は，翌日のセルに月曜なら「休日」と表示する数式を入れておけばいいですよね。でも，移動する祝日（春分の日，秋分の日）は，指定できないのです。

　また，来年からは，振替休日の指定方法が変わるのだそうです。

　内閣府のサイトの「国民の祝日について」には，以下のように書かれています。

************以下引用

■ 「昭和の日」について

　国民の祝日に関する法律の一部を改正する法律（平成17年法律第43号）が公布され、「国民の祝日」として、新たに「昭和の日」を加え、「みどりの日」を５月４日とすることになりました。

昭和の日 ４月２９日 激動の日々を経て、復興を遂げた昭和の時代を顧み、国の将来に思いをいたす。
みどりの日 　５月４日 自然に親しむとともにその恩恵に感謝し、豊かな心をはぐくむ。

　また、「国民の祝日」が日曜日に当たるときは、その日後においてその日に最も近い「国民の祝日」でない日を休日とすることになりました。
　なお、この改正は、平成１９年１月１日から施行されます。

************引用ここまで（下線はHorryがつけました）

例えば，

• ５月３日が日曜日なら，４日（月），５日（火）が「国民の祝日」なので，６日（水）が休日になる。
  →土曜を入れて５連休！
• ５月４日が日曜日なら，６日（火）が休日になる。
  →４連休
• ５月５日が日曜日なら，６日（月）が休日になる。
  →４連休

　また，前日と翌日が「国民の祝日」である日は休日とする。という条文が現行法にあります。これによって，５月４日が休日になっていたのですが，５月４日は正式な「国民の祝日」に昇格しますので，もう使えないのでしょうか。いえいえ，この条文は，毎年ではありませんが，時々役立つ条文なのです。それは，９月にやってきます。（トリビアでやったそうですが）

• ９月の第３月曜日は「敬老の日」
• ９月の秋分日が「秋分の日」

　実は，２００９年の「敬老の日」は２１日（月），「秋分の日」は２３日（水）になる予定なのです。ということは，「国民の休日」にはさまれた２２日（火）は，休日になるはずです。１９日（土）から２３日（水）までの５連休が出現します。

　こんなに複雑な条件に対応するのは，もはや関数だけでは不可能です。（きっと）やっぱりVBAでも使わないと，本当の自動化はできないのでしょうか。VBAの勉強が進むまで，このシリーズはお休みになるかな？それとも，まだExcelで遊べるかな？

　何だかシリーズ化してきてしまいました。(^_^;)今回は，春分の日，秋分の日をどうするかということです。

　まず，春分・秋分というのは，「太陽が赤道上を通る日」「太陽が真東から上って真西に沈む日」「昼と夜の長さが同じ日」ですね。地球の自転，公転は数学的にきっちりした回転ではなく，人類の考える数値体系では，いまいちすっきりしないものです。ですから，太陽と地球の位置関係で決まる春分・秋分は年によって移動します。

　さて，年によって移動する日をシート上で自動入力するためには，どうすればいいのか。偶然見つけたサイトが解決してくれました。そのサイトは，「AddinBox」と言います。その中の「祝日について」の中段に「春分日／秋分日の算出法」という記事がありました。そこに出ている数式を参考にして，関数を作ってみることにしました。

　まず，上記サイトに出ていた式を使って春分／秋分の日を算出します。行事予定表としては，３月（春分）と９月（秋分）の日付を参照して，同じ数字だった場合に「春分の日」や「秋分の日」というテキストを挿入することにしました。

　それを関数の式で表すと，=IF(M26=INT(23.2488+0.242194*($B$1-1980)-INT(($B$1-1980)/4)),"秋分の日","")　となります。これが正しければ，あと数十年の秋分の日は２２日か２３日ということになります。しかし，本当の春分日／秋分日は官報に公示されて初めて決まる日だそうです。ですから，変わってしまうこともあります。

　とりあえず，２２日前後の数日にコピーしておけば大丈夫でしょう。と思ったら，敬老の日がハッピーマンデーなんですね。一番遅い敬老の日は２１日という可能性があります。一つのセルに二つの式を入れることはできないので，どうしようかと思ったのですが，秋分の日が２１日になることはないようなので，何とかクリアできました。

　AddinBox さんの中に書いてあったのですが，２００９年９月には，おもしろい現象が現れるのだそうです。２００９年の秋分の日は２３日（水）です。なんと敬老の日は２１日（月）ということになります。祝日法では，祝日と祝日に挟まれた日は休日とすることになっていますね。（だから５月４日は休みです：来年からはみどりの日で祝日？）というわけで，学校では，１９日（土），２０日（日），２１日（月），２２日（火），２３日（水）という５連休が出現します。やっぱり運動会は１９日に実施でしょうね。こんなに休んだら練習したことをみんな忘れられてしまうし・・・。

　次々と出てくる課題の中で，２月２９日の処理をどうするか。これが次回のテーマです。

　行事予定表の土日に網掛けをすることができるようになりました。でも，祝日はまだですね。ここだけ手入力というのは情けない。というわけで，今回は祝日を自動入力する関数（なんていえるほどモノもではないが）です。

　祝日は，「国民の祝日に関する法律（祝日法）」によって定められています。Horryが子どもの頃は移動する祝日は春分の日と秋分の日だけでした。しかし，ハッピーマンデーのおかげで，移動する祝日が増えてしまいました。今回は，これが問題になります。移動しない祝日は，テキストを入れて，セルに網掛けしておけばいいのです。これは簡単。でも，移動してしまう休日はどうすればいいのでしょうか。そのHorry流解決方法。

　例えば「成人の日」は，「１月の第２月曜日」と定められています。だから，第２月曜をさがして，その右隣のセルに「成人の日」とテキストを表示し，セルに網掛けをすればいいのです。

　第２月曜の見つけ方は，単純な方法をとりました。第２月曜というのは，８日から１４日までの間にだけ出現します。この期間の曜日のセルの値が２（月曜を表す）だったら，行事予定のセルに「成人の日」と入力すればいいのです。ですから，８日のセル（Ｙ12）に　=IF(X12=2,"成人の日","")　と入力しました。これを14日までコピーすればOKです。

　セルの網掛けは，条件付き書式を使います。条件付き書式で指定できる第３の条件に，「セルの値が」「成人の日」のとき「網掛けする」ようにすればいいのです。

　こうして，ハッピーマンデーには対応できました。ところが，この方法には大きな欠点があります。例えば，来年の成人の日は８日ですが，９日に「始業式」と入力してしまうと，そのセルの関数が消えてしまうのです。来年度以降，このブックを修正して使おうとすると，文字を入力したセルの関数は消えてしまっているのです。やはり関数だけでは無理があるようですね。

　さらに，移動しない祝日が日曜日になった場合に，月曜日が休みになる処理も必要ですね。移動しない祝日の次の日のセルにも，ちょっとした細工が必要ですね。

　２００９年の９月には，敬老の日が２１日（月），秋分の日が２３日（水）となる予定です。そうすると，祝日にはさまれた日は休日になるという規程があるので，２２日（火）も休日になります。ここの処理が難しい！こうなったらVBAを使わなくてはできないでしょうね。

　次回は，勝手気ままに？移動する祝日「春分の日」「秋分の日」の処理について書こうと思います。

　今回は，「条件付き書式」を使ってセルに色をつけたり網掛けをしたりする方法です。
　年間行事予定表の「曜日」が自動で設定されたので，それを参照して土日ならセルに薄い赤色で網掛けするようにしましょう。

　D５のセルに曜日（シリアル値）が入っていて，Ｅ５のセルに色をつけたい時

1. 条件付き書式を設定したいセルを選択（とりあえず一つ）
2. 「書式」→「条件付き書式」を選択
3. 「条件１」のところが，「セルの値が」になっているので，「数式が」に変更
4. 右のテキストボックスに　=D5=7　と入力（７は土曜日を表します）
5. 「書式」ボタンを押して，「パターン」のタブから色とパターンを選択→「ＯＫ」
6. 「追加」ボタンをクリック（次は日曜日の分）
7. 「条件２」も「数式が」に変更
8. 今度の式は，　=D5=1　（１は日曜日）
9. 「書式」をそろえる
10. 「ＯＫ」をクリック
11. Ｅ５セルの上で右クリック→「コピー」
12. 貼り付けたいセルの範囲を指定（次の月まで行く時には，Ｃｔｒｌキーを押しながらドラッグです）
13. 選択した範囲の上で右クリック→「形式を選択して貼り付け」→「書式」を選択→「ＯＫ」

　これで，土曜日と日曜日に自動的に網掛けがつきます。（本当は斜線を引きたかったのですが，条件付き書式だけでは無理みたいで・・・）

　だんだんそれらしくなってきました。あとは，祝日の処理ですね。「条件付き書式」が指定できるのは３つの条件だけ。残りの一つをどう使うのか。ちょっと工夫が必要です。