エクセル嫌いのための「趣味のエクセル」

• 最新号：2008-10-13
• 発行周期：不定期
• 読んでる人：197人
• 創刊日：2005-07-19
• Score!：-点
• コメント数 ： 0
• メルマガID：154201
• バックナンバー：全て公開
• 発行者サイト：なし
• >> 月間ランキング

「趣味のエクセル」　No.77　2007/8/15　フエル・カレンダー８

┌───┬───┬───┬───┬───┬───┬───┬───┬──
│　　　│　Ａ　│　Ｂ　│　Ｃ　│　Ｄ　│　Ｅ　│　Ｆ　│　Ｇ　│
├───┼───┴───┴───┴───┴───┴───┴───┴──
│　１　│　　　　エクセル嫌いのための「趣味のＥＸＣＥＬ」　　　　　　
├───┤
│　２　│　　　　　　　　　　　　　　　　　　NO.77　　　2007/8/15
└───┴──────────────────────────────
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
☆　表を見るだけで拒否反応を起こしてしまう文系人間にもエクセルが面白く
　なる、エクセルで遊ぶマガジンです。
☆　このメールは、等幅フォントで見てください。
☆　できたら、エクセルを立ち上げながら読んでください。
☆　最初に次のことをお断りしておきます。
（１）私が使っているエクセルはExcel97 です。2000や2002に比べるとかなり
　　機能に見劣りがします。2000以上にある機能を使えばもっと楽にできるこ
　　とを苦労してやっている場合があります。
（２）説明に「図」は使いません。全部言葉で説明しますので、少し回りくど
　　くなりますが、我慢して下さい。
（３）エクセルになれていない人を想定して、細かい説明をはさんでいます。
　　知っている人は読み飛ばしてください。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

＞＞＞　こんにちわ。このメールマガジンをご購読頂いてありがとうございま
＞＞＞　す。
＞＞＞　はじめてご覧頂くみなさん、よくいらっしゃいました。バックナンバ
＞＞＞　ーはこちらをご覧下さい。
＞＞＞　───→ http://homepage3.nifty.com/hcho/

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
今回の内容
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
　　　◎　フエル・カレンダー（８）
　　　◎　えっちょ流用語解説　「いのち」
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

　　　　　　　　　ＯＯＯ　今日のお遊び　ＯＯＯ

＊＊＊＊＊＊＊＊＊＊　フエル・カレンダー（８）　＊＊＊＊＊＊＊＊＊＊＊

★　前回までにやったこと　

（（（　カレンダーで遊ぶ　）））
（（（　 スタートリック 　）））
（（（ 暑中見舞にひと工夫 ）））「スピードくじ」を作る
（（（ 暑中見舞にひと工夫 ）））気配り案内状を作ってみる
（（（ 暑中見舞にひと工夫 ）））はがき裏表を作成する
（（（ グラフ機能を使って絵を描く ）））グラフで作る幾何学模様
（（（ グラフ機能を使って絵を描く ）））「帆船」を描く
（（（ ブロックくずしを作る ）））一時休止です。しばらくお待ち下さい。
（（（ ナンバープレースを解く ）））
（（（ ３択トレーナー　ショートカットキー・マスター ）））
（（（ 万華鏡もどき ）））
（（（ ユーザー定義の書式を拡げる ））） 選挙啓発ポスター
（（（ セイムセットを解く ）））
（（（ フエル・カレンダー ）））

　１　フエル・カレンダーとは？
　２　画面を作る
　３　カレンダーを下の方へ広げる仕掛け
　４　土日に色をつける
　５　スピンボタンに説明をつける
　６　始まりの日付を表示
　７　今日の日付を表示
　８　終了ボタンを配置する
　９　表示する暦のデータを作成する
１０　暦データの表示
１１　行動・予定データ表に変える
１２　行動・予定データ入力ツール（１）
　　　・入力モードを整理する
１３　入力シートの作成（１）
　　　・年月日の入力欄
　　　・記事の入力欄

　　はじめての方は申し訳ありませんが、バックナンバーを見てたどってみて
　ください。
                        ───→ http://homepage3.nifty.com/hcho/

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
　　　　　　　　　ＯＯＯ　今回のお遊び　ＯＯＯ

＊＊＊＊＊＊＊＊　　　　フエル・カレンダー（８）　　　　＊＊＊＊＊＊＊

９　カレンダーが広がれば何かが変わる

　ｂ　「行動記録」を表示する

　　　フエル・カレンダーを数週間繰り上げて、「ああ、この週はこんなこと
　　があったんだ」とか「あれは、映画をみた帰りだったから、○月○日のこ
　　とだ」といったことを思い出す、そんな道具に使ってみたいと思います。

　　　そのための「行動を記録するツール」に取り組んでいます。。

　　　前回は「フエルカレンダーＮＥＷ」の「記録データ入力」シートの「日
　　付入力欄」を作成し、「記事入力欄」取り掛かったところでした。

　　　　　＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

　（７）入力シートの作成

　　　・11行目と12行目に登録する記事を表示する欄を取っています。
　　　　ここは、入力したり、修正・変更した記事の最後の結果を表示して確
　　　認する場所です。

　　　　　Ｂ　セルＢ11、B12に入る式を説明する前に、入力モードについて
　　　　　　把握しておきます。

　　　　　　　データを入力するのには３つの場合があります。

　　　　　　　１）新規入力（キーワードに関連する項目を始めて入力する）
　　　　　　　　　今の場合ですとある特定の日付についての情報を始めて入
　　　　　　　　力する場合です。今日の日付が「2007/8/10」としますと、
　　　　　　　　今日の日付の記事を始めて登録する場合です。

　　　　　　　２）修正（キーワードに関連する入力済のデータの内容を変更
　　　　　　　　　　　　する）
　　　　　　　　　これには、内容を変更する場合と記事に新しい情報を付け
　　　　　　　　加える場合とがあります。どちらの場合も、記事が修正した
　　　　　　　　り追加したりできる状態で入力者に提供される必要がありま
　　　　　　　　す。

　　　　　　　３）消去（キーワードに関連する記事を取り消す）
　　　　　　　　　この場合、消してしまうと取り返しがつきませんから、必
　　　　　　　　ず操作を実行してよいかどうかを確認するステップが必要で
　　　　　　　　す。さらに最近のソフトでは、作業中のデータベースからは
　　　　　　　　取り除くが消去したデータを別のデータベースに集めておい
　　　　　　　　て、復活可能にするセーフティーネットを採用しているもの
　　　　　　　　もあります。今回はこの確認を省略していたのですが考え直
　　　　　　　　して追加しました。

　　　　　Ｃ　「ふえるカレンダーＶ２」ではこの区分にぴったり一致するも
　　　　　　のではありませんがやはり３つのモードを設定しています。

　　　　　　　１）新規・書換モード
　　　　　　　　　　これまで記事がなかった日付に初めて記事を書くとか、
　　　　　　　　　一度記事を書いて登録したけれど、それを破棄して別の記
　　　　　　　　　事に書き換えるときに使います。

　　　　　　　２）追加モード
　　　　　　　　　　一度登録した記事をそのまま残しておいて、後ろに同じ
　　　　　　　　　日の別の記事を追加するときに使います。

　　　　　　　３）消去モード
　　　　　　　　　　一度登録した記事を消してしまいたい時に使います。こ
　　　　　　　　　のとき登録データの日付だけは残るようにしています。こ
　　　　　　　　　れは、日付まで消してしまうと記事データベースの途中で
　　　　　　　　　空白行が出てしまって、検索するときに支障が出る場合が
　　　　　　　　　想定されるからです。

　　　　　Ｄ　オプションボタンでモードを選択する

　　　　　　　この３つのモードを選択するのに今回は「オプションボタン」
　　　　　　を使ってみます。

　　　　　　　１）「フォームツールバー」を表示、「オプションボタン」を
　　　　　　　　　選択します。

　　　　　　　　　「メニューバー」の「表示」→「ツールバー」→　　　
　　　　　　　　「フォーム」とクリックして「フォームツールバー」を表示
　　　　　　　　し、「◎」の真ん中が黒いアイコンをクリックします。「オ
　　　　　　　　プションボタン」作成モードに入りマウスポインターが　　
　　　　　　　　「＋」の形になります。
　　　　　　　　　　
　　　　　　　２）セルG11のところにオプションボタンを配置します。

　　　　　　　　　セルG11あたりで斜めにドラッグすると長方形が表示され
　　　　　　　　ます。指を離すと「○」とカタカナの「オ」が見える図形に
　　　　　　　　変わります。四方が小さな「○」で囲まれています（オプ
　　　　　　　　ションボタンが図形として編集可能な状態で選択されている
　　　　　　　　ということです）から、それを右の方に広げて見ると「オプ
　　　　　　　　ションボタン１」となっています。

　　　　　　　３）オプションボタンのコントロールを設定します。

　　　　　　　　　そのままの状態でポインターをオプションボタンの上に乗
　　　　　　　　せてダブルクリックすると「コントロールの書式設定」とい
　　　　　　　　う画面が開きます。

　　　　　　　　　とりあえずここでは、その中の「コントロール」だけを触
　　　　　　　　ります。

　　　　　　　　　「値」のところは、現在の状態でオプションボタンが選択
　　　　　　　　されていれば「オン」、選択されていなければ「オフ」が自
　　　　　　　　動的にマーキングされるので触りません。

　　　　　　　　　「リンクするセル」のところは「$H$11」を入れるのです
　　　　　　　　が、その方法としては、「コントロールの書式設定」の画面
　　　　　　　　をセルH11が見える場所に移動して、「リンクするセル」の
　　　　　　　　編集枠ををクリックして編集可能にした上で、ワークシート
　　　　　　　　のセルH11をクリックします。

　　　　　　　　　「３Ｄ表示」のところは、前の□をクリックしてチェック
　　　　　　　　するとボタンが立体的に表示されます。一度３Ｄにしたあと
　　　　　　　　でやめたくなったら、もう一度この画面を出して□をクリッ
　　　　　　　　クするとチェックが外れます。

　　　　　　　４）「オプションボタン１」を「新規・書換」に書き換えま　
　　　　　　　　す。

　　　　　　　　　方法はこれまで「ボタン」に名前を書いたのと同じですの
　　　　　　　　で思い出してください。単純に図形の内部をクリックして編
　　　　　　　　集可能状態にしたうえで、「オプションボタン１」の文字を
　　　　　　　　消して「新規・書換」と書き込むだけです。

　　　　　　　５）同じ手順でオプションボタンをあと二つ配置し、配置した
　　　　　　　　順番に「追加」、「消去」と名前をつけます。

　　　　　　　　　実際に試してみると分かりますが、リンクするセル（セル
　　　　　　　　H11）には、ボタンを選択すると数字が表示されるのです
　　　　　　　　が、その数字は配置した順番に数値が１ずつ増えていきま
　　　　　　　　す。ですからそれぞれのボタンには特定の数が対応している
　　　　　　　　ということになります。

　　　　　　　　　その対応関係は次のとおりです。

　　　　　　　　　「新規・書換」ボタン・・・・１
　　　　　　　　　「追加」ボタン・・・・・・・２
　　　　　　　　　「消去」ボタン・・・・・・・３

　　　　　Ｅ　登録データの作成

　　　　　　　以上のモード選択を前提にしてセルB11、B12の登録データは作
　　　　　　成されます。

　　　　　　　１）セルB11には次の式が入っています。2行に分かれています
　　　　　　　　がこれで一続きです。

=IF($H$11=3,"",IF($H$11=1,B7&"",IF(AND($H$11=2,B7=""),F7&"",
　　　　　　　　　　　　　　　　　　　　　　　　　　　　F7&"/"&B7)))

　　　　　　　最初の「IF($H$11=3,""」は選択されたのが「消去」であると
　　　　　　このセルは何もない状態にする、という意味です。

　　　　　　　次の「IF($H$11=1,B7&""」は選択したのが「新規・書換」であ
　　　　　　れば、セルB7（記録のところに書き込んだ記事）をそのままここ
　　　　　　に表示をするということを意味します。末尾の「&""」はセルB7
　　　　　　が空白の場合、「０」が表示されるのでそれを消す仕掛けです。

　　　　　　　その次の「IF(AND($H$11=2,B7=""),F7&""」は、もそ選択した
　　　　　　のが「追加」で、しかもセルB11が空白（追加する記事がない）
　　　　　　場合は、セルF7（すでに入力されている記事）をここに入れるよ
　　　　　　うになっています。
　　　　　　　追加したいのに書くことがない場合があるのだろうか、と疑問
　　　　　　になりますが、記録と予定がセットになっていますので、まだそ
　　　　　　の日が来ず予定だけが入っていて、その予定に追加したい時がこ
　　　　　　のケースになります。

　　　　　　　最後の「F7&"/"&B7)」はそれ以外の時、つまり「追加」を選択
　　　　　　して「追加する記事」が書かれているときは、二つの記事の間に
　　　　　　「/」を入れて一つのデータにします。

　　　　　　２）セルB12には次の式が入っていますが、構造はB11と全く同じ
　　　　　　　です。

=IF($H$11=3,"",IF($H$11=1,B8&"",IF(AND($H$11=2,B8=""),F8&"",
　　　　　　　　　　　　　　　　　　　　　　　　　　　　F8&"/"&B8)))

　　　　　Ｆ　修正ボタンの追加

　　　　　　　以上で基本は抑えたのですが、これだけではカバーできない
　　　　　　ケースが出てきました。

　　　　　　　一つは「消去」です。消去モードでは、登録している予定も記
　　　　　　録も消してしまいますが、実際には予定の記事は消して、記録は
　　　　　　残したいとかその反対のケースがあるかも分かりません。

　　　　　　　もう一つは記録の一部を変えたいとか、文字が一つ間違ってい
　　　　　　るのでそれを直したいといった場合ですが、そのためには全部を
　　　　　　書換えしなければなりません。

　　　　　　　これでは不便なので、既に入力済のデータが表示されたときそ
　　　　　　れを内容の修正ができる形にして、セルB7、B8に書き込み、そこ
　　　　　　で修正してから再登録するようにしました。

　　　　　　１）修正できるデータにするには。

　　　　　　　セルF7、F8に表示されている入力済のデータは、数式で検索し
　　　　　　て表示しているだけなので、これには追加も変更もできません。
　　　　　　何か文字を入力すると呼び出している式が消えてしまって、入れ
　　　　　　た文字だけが入っている状態になります。ですからこの文字を直
　　　　　　したいと思っても選択もできません。

　　　　　　　ａ　セルF7を選択してコピーします
　　　　　　　ｂ　セルB7選択して右クリックします
　　　　　　　ｃ　ドロップダウンメニューの中から「形式を選択して貼り付
　　　　　　　　け」を選びます
　　　　　　　ｄメニューの中から「値」を選びます

　　　　　　　手順はこれだけです。実際にやると今の場合はセル結合をして
　　　　　　いるためにエラーが出るのですが、次のようなプログラムにする
　　　　　　とすっとできてしまいます。

　　　　　　２）修正できるデータにするには、表示されているデータの文字
　　　　　　　列そのものの値を取得する必要があります。エクセルの範囲で
　　　　　　　は「コピー」→「値の貼り付け」でしかできませんが、ＶＢＡ
　　　　　　　はもっと単純になります。

Sub データ修正()
    Worksheets("記録データ入力").Activate
    
    Cells(11, 8).Value = 1 '新規・書換モードにする

    odtc = 6 '入力済データを表示する列
    ndtc = 2 '新規に入力するセルの列
    kdtr = 7 '記録データのための行
    ydtr = 8 '予定データのための行

    入力済記録データ = Cells(kdtr, odtc)
    入力済予定データ = Cells(ydtr, odtc)
    Cells(kdtr, ndtc).Value = 入力済記録データ
    Cells(ydtr, ndtc).Value = 入力済予定データ
    
End Sub

　　　　　　最初に「 Cells(11, 8).Value = 1 」とありますが、これはセル
　　　　　H11の値で入力モードが決まるので、ここを「１」に書き換えて、
　　　　　新規・書換モードにしています。このモードだけが、セルB7、B8の
　　　　　内容をそのまま登録データにしてくれるからです。

　以上で登録データの作成まで到達しました。次回はデータの登録とサンプル
データを作成します。

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
----------------------------------------------------------------------
◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
││││││││　え　っ　ち　ょ　流　用　語　解　説　││││││││
◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆

［［［　いのち　（１）］］］

　「いのち」という日本語を考えてみたいと思います。

　「広辞苑」にはこういう説明がされています。

　いのち【命】
　　１．生物の生きてゆく原動力。生命力。古事記中「―のまたけむ人は」。
　　　「―を失う」
　　２．寿命。古今和歌集春「春ごとに花の盛りはありなめど相見むことは―
　　　なりけり」。「―が縮む思い」
　　３．一生。生涯。伊勢物語「長からぬ―の程に忘るるは」。「はかない
　　　―」
　　４．もっとも大切なもの。命ほどに大切に思うもの。真髄。重之集「風を
　　　―に思ふなるべし」。「刀は武士の―」

　「いのち」の「い」は「生きる」、「息」などに含まれるのと同じ「い」、
「ち」は生命力を表す「き＝ち」だと思われます。つまり「いのち」とは「生
きることの根源にある生命力」をあらわす言葉でしょう。

　この言葉を分析的に解釈しようとするとどうしても同義反復となり、同じこ
とを違う言い方で言っているにしか過ぎないことに気づかされます。

　おそらく、この言葉が作られたとき、論理的産物としてではなく、本源的な
前提、一切がこれから発しているという事実から出ているからだと思われま
す。

　「いのち」という言葉の本源的な意味は「ち」の方にあると思われます。
「ち」は非常に広範な意味を持つ原理的な言葉であって、「い」という言葉で
それに限定的な意味を与えているといえます。

　以前、「き」と同値の「ち」という「生命力」を表す言葉があり、今は卑語
と化している「きんたま」、「ちんぼ」といった言葉もこれに関わる言葉であ
ろうと指摘したことがあります。これ以外にも、新しい生命の維持に欠かせな
い「ちち（乳）」も、それこそ生命そのものである「ち（血）」もまたこの系
列に属する、古来の日本語、漢語に影響される前からある土着の和語であろう
かと思われます。

　「力」と表記される「ちから」にも「ち」が入っています。「から」は
「殻」、物事の外的な形を現すもので、「ち」＝生命力が特定の形式をもって
人の目に認識される状態を「ちから」というと考えたら、「ちから」というこ
とばのもつ多様性もある程度納得できるように思います。

　「いのち」のもう一つの要素である、「い」きるという言葉は、「死ぬ」と
いう対立語を持っています。

　「死」という漢字は「し」という同じ音を「音訓」で共有する稀有な漢字で
す。もしかすると「死（し）」という漢語を日本語化したものではないかとも
考えましたが、万葉集にも出てくる言葉なので、古くから日本語として使われ
て来たことばであることは間違いなさそうです。

　日本語には「死ぬ」という事象を表現する言葉がたくさんあって、その多様
性の中に日本人の「死」に関する考え方＝「生」に対する考え方を探る手がか
りが潜んでいると考えることができます。

　昭和天皇がなくなられた時、一般人が突然思い出したのが「おかくれにな
る」という言葉でした。報道の世界では使われなかったのですが、誰が覚えて
いたのか、「天皇陛下がなくなられることを『おかくれ』というのだ」という
「日本文化」が永い眠りから目を覚ましたのです。

　日本人にとって「天皇の死」は明治以来わずかに３回目、この前の同じ出来
事から６０年以上経って、しかもその間に戦後革命という文明の大断絶をはさ
んでいたにもかかわらず、庶民の文化はその記憶をとどめていたのです。

　言葉の記憶の同じような例が「ごーそ」という言葉です。これは「兵庫の米
騒動」というマイナーな出版物で紹介されていたのですが、姫路地方で、米騒
動に参加するときに、「ごーそに行く」と言っていた（その本が今手元にない
ので正確ではないと思いますが）というのです。著者の阿部真琴氏はこの
「ごーそ」を「強訴」のことだろうと推測されています。

　現代の私たちは一般に「農民一揆」という言葉で江戸時代の農民の集団行動
を呼んでいますが、これは近代になって学問上の用語として採用された言葉で
、江戸時代の人は役人も、一般人も「強訴」、「透散（ちょうさん）」などの
言葉を使っていたことは知られています。

　米騒動のあったのは１９１８年ですが、姫路地方で記録に残っている最後の
農民一揆は徴兵制と地租改正に反対した１８７８年ごろの騒動です。それから
約４０年、新聞は「米騒動」、「米一揆」と報道した出来事に対し、姫路地方
のある村の人々は、祖先が使った「お上を恐れぬ」秘密の言葉を思い出したの
でした。

　天皇あるいはやんごとなき身分の方々がなくなったときに使われる言葉は他
にも「みまかる」、「かみさる」、「崩御」されるなどの言葉があります。

　一般でも「お亡くなりになる」、「逝く」、「逝去」などをあげることがで
きます。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
┌┌┌┌┌┌┌┌┌┌┌┌┌┌┌┌┌─┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐┐
┌┌───────────────────────────────┐┐
　│　　　　　「趣味のエクセル」ＲＥＶＩＶＡＬ（４６）　　　　　　│
└└───────────────────────────────┘┘
└└└└└└└└└└└└└└└└└─┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
　　　　　　　　　ＯＯＯ　今回のお遊び　ＯＯＯ

＊＊＊＊＊＊＊　　ナンバープレースを解く（６）　　＊＊＊＊＊＊＊＊＊

３　「ナンプレくん１号」の作成

　ｈ　ボタンとマクロ

　（１）マクロプログラムの整頓

　　　　前回貼りつけていただいたマクロプログラムは、メールマガジンの制
　　　約で、行の途中から改行されて、動作しなかったり、説明文の二行目が
　　　プログラム本文に間違われたりとかなりゴタゴタしたようです。
　　　　予定外ですが、プログラム一つ一つを説明しながら、不具合のあった
　　　プロシージャを、貼りつけても矛盾がないように修正して再掲します。

　　　Ａ　問題転送

　　　　　この部分は前回にも掲載しましたが、問題シートのセルA1：I9に展
　　　　開した問題データの内容をを、回答シートのセルA1：I9に転送してい
　　　　ます。この時問題シートでは「０」になっているセルを「空白」に変
　　　　えています。

　　　Ｂ　セル選択

　　　　　この部分は問題を選択して、問題のデータを回答シートの回答スペ
　　　　ースに転送した後、最初の空白セルを探すところです。
　　　　　空白のセルを見つけると、そのセルの行番号と列番号を回答スペー
　　　　スの下のセルに書き込んでいます。
　　　　　　＊普通のプログラムでは、この動作は、プログラム中の変数に記
　　　　　　憶させると言う方法を取るのですが、エクセルには「セル」とい
　　　　　　う膨大な記憶スペースが用意されているので、記憶用のメモリ代
　　　　　　わりに利用することにしました。この方が目に見えるので、変数
　　　　　　管理がしやすいという利点もあります。

　　　　　ついでに、この空白セルにどの数字が入るかを判定する式を判定ス
　　　　ペースに書き込む動作をここで組みこんでいます。

　　　　　「数式記入」と書いた行がありますが、これがそうです。この行の
　　　　意味は、あとで出てくる「数式記入()」というプログラムをここで実
　　　　行する、と言うことで、この動作を書き加えることで、空白セルを探
　　　　すこととそのセル用の判定式を書き込むことが一つの流れで自動化さ
　　　　れます。　　　　　

　　　Ｃ　次のセル選択

　　　　　ここは、ある空白セルに入る可能性のある数字があるかどうかを判
　　　　定し、確定・不確定の結論が出た後、次の空白セルを探す動作をして
　　　　います。
　　　　　中心となる部分は前の「セル選択」と全く同じです。違うところ
　　　　は、「セル選択」が、探す動作をセルA1からはじめるのに対し、この
　　　　「次のセル選択」は今判定したセルの次ぎのセルから探すので、動作
　　　　をはじめる前に、今まで判定していたせるの行番号、列番号を見に行
　　　　きます。
　　　　　それともうひとつやっているのは、回答スペースに空白セルが残っ
　　　　ていなかったらプログラムを実行する必要はありませんから、残って
　　　　いるかどうかを調べています。
　　　　　残っているかどうかは、セルJ3に

　　　　　=81-COUNT($A$1:$I$9)

　　　　という式を入れて調べてあります。これもマクロプログラムで調べる
　　　　ことは可能なのですが、エクセルに便利な関数があるのでそれを利用
　　　　しています。

　　　Ｄ　確定

　　　　　空白のセルに入る可能性のある数字がひとつしかない、という判定
　　　　結果が出たら、そのセルにその数字を書き込みます。このプログラム
　　　　は、回答シートのセルF11にひとつ残った数字が書きこまれているの
　　　　で、それを読みこんで調べたセルに書きこんでいます。
　　　　　セルF11 には、

　　　　　=IF(J11=1,HLOOKUP(1,$K$4:$S$5,2,0),"")

　　　　という式があります。

　　　　　もしセルJ11 が１ならセルK4：S4の中の１と表示されているセルの
　　　　１行下のセルに入っている数字を表示するという意味です。

　　　　　そしてセルJ11では
　　　　　
　　　　　=SUM(K4:S4)

　　　　という式で、条件に合う数がいくつあるかを数えています。

　　　Ｅ　問題選択

　　　　　このプログラムはいくつかの大事な動作を組み合わせています。

　　　　　１行目で「回答シートを開く」動作をしています。回答シートを開
　　　　かなければボタンがないから、実際には無駄なのですが、ボタンを作
　　　　る前にはどうしてもあったほうがよい命令です。

　　　　　乱数を使って問題番号を決めます。
　　　　　その番号を、問題シートのセルK1に書きこむと、エクセルの関数が
　　　　問題シートのセルA1：I9に問題データを展開します。

　　　　　そちらの作業はエクセルに任せておいて、マクロは「回答シート」
　　　　のセルに入っている数値をクリアします。

　　　　　そして、「問題転送」を実行し、「セル選択」を行なって、最初の
　　　　空白セルを判定します。

　　　Ｆ　はじめに作った「ナンバープレース解決ツール」はここまででした
　　　　が、調べるセルの移動が一方通行で不便なので、「ナンプレくん１
　　　号」では、上下、後戻りができるようにしました。それが「一つ戻
　　　る」、「上へ戻る」、「下へ下がる」のルーチンです。

　　　Ｇ　最後の部分が「数式記入」です。これは４３号で一度紹介している
　　　　のと同じものです。式が長いので２行に分かれてしまっていますので
　　　、もう一度掲載しなおします。

'---ここから

Sub 数式記入()

cr = Cells(11, 2)'調べるセルの行番号
cc = Cells(11, 4)'調べるセルの列番号
bcr = Int((cr - 1) / 3) * 3 + 1'３×３のブロックの左上のセルの行番号
bcc = Int((cc - 1) / 3) * 3 + 1'３×３のブロックの左上のセルの列番号

For i = 11 To 19

    Cells(1, i).FormulaR1C1 =  _
"=IF(COUNTIF(R" & cr & "C1:R" & cr & "C9,R5C)>0,0,1)"
'横の並びを調べる
    Cells(2, i).FormulaR1C1 = _ 
"=IF(COUNTIF(R1C" & cc & ":R9C" & cc & ",R5C)>0,0,1)"
'縦の並びを調べる
    Cells(3, i).FormulaR1C1 = _
"=IF(COUNTIF(R" & bcr & "C" & bcc & ":R" & bcr + 2 & _
 "C" & bcc + 2 & ",R5C)>0,0,1)"
'３×３のブロックの中を調べる
    Beep

Next i

End Sub
'−−−ここまで−−−

　（２）ボタンを配置する

　　　　マクロを適正に起動するためにボタンを使います。

　　　Ａ　フォームツールバーを表示する
　　　　　メニューバーの「表示」→「ツールバー▼」→「フォーム」を
　　　　チェックと進んでフォームツールバーを表示します。

　　　Ｂ　「ボタン」のアイコンを押す
　　　　　ボタンを作成するには、左から４つ目（たぶん）の四角い押しボタ
　　　　ンの形をしたアイコンをクリックします。（アイコンの上にマウスポ
　　　　インターを置いてしばらくすると「ボタン」と表示されますからわか
　　　　ります）

　　　Ｃ　ボタンを作成する
　　　　　ボタンのアイコンを押すと、ボタン作成モードに入り、マウスポイ
　　　　ンターの形が、オートシェイプを貼りつける時と同じ「＋」の形にな
　　　　ります。
　　　　　マウスポインターをボタンを配置したい場所に持って行き、斜めに
　　　　ドラッグまし指を離すと、小さな「□」で周りを囲まれ、「ボタン」
　　　　という文字がかかれたたボタンが表示されます。（この辺の手順は図
　　　　形を取り扱う時と同じです）
　　　　　今は「問題を表示する」ボタンを作ることにしますので、場所はセ
　　　　ルA10 のところとします。

　　　Ｄ　マクロと関連付ける
　　　　　ボタンが表示されるとすぐに「マクロの登録」ウインドウが開きま
　　　　す。
　　　　　「問題を表示する」のボタンでは「問題選択」マクロを使いますの
　　　　で、マクロの名前のリストから「問題選択」を選び、クリックしま
　　　　す。一番上の「マクロ名」の枠に「問題選択」と表示されたら「Ｏ
　　　　Ｋ」ボタンを押します。

　　　Ｅ　ボタンの名前を変える
　　　　　ボタンは今小さな「□」で周りを囲まれた状態だと思います。これ
　　　　を「選択した状態」といって、作成されたボタンにいろんな操作を加
　　　　えることができます。（もしその状態でなかったら、ボタンの上にマ
　　　　ウスポインターを持っていって右クリックした下さい。小さなメニュ
　　　　ーが出ますから、「テキストの編集」をクリックします。）
　　　　　ボタンの上には「ボタン１」のような文字が表示されています。も
　　　　し数字までが表示されていない場合は、図形と同じように、横に広げ
　　　　てやってください。
　　　　　文字列の表面をドラッグして、文字列全部を選択して下さい。
　　　　　その状態で「問題を決める」という文字を入力確定します。

　　　Ｆ　他のボタンを配列する
　　　　　フォームツールバーを表示したまま他のボタンも作成します。一つ
　　　　ボタンを作るたびに「ボタン作成モード」は終了しますので、新しく
　　　　ボタンを作るには、「ボタン」アイコンをクリックするところから始
　　　　めます。

　　　　　ボタンの名前とマクロの名前の対応関係は次の通りです。ボタンの
　　　　位置は使いやすいように自分で決めてください。位置を変えたかった
　　　　ら、図形と同じようにドラッグして移動させることができます。気を
　　　　つけなければならないのは、選択状態にするとき、普通の図形では左
　　　　側のボタンをクリックしますが、「ボタン」では、普通にクリックす
　　　　ると対応するマクロを実行してしまいますので、右クリックで選択状
　　　　態にする必要があります。

　　　　　ボタン名　　　　　　　　マクロ名
　　　　　次のセル・・・・・・・・次のセル選択
　　　　　確定・・・・・・・・・・確定
　　　　　上のセル・・・・・・・・上へ戻る
　　　　　下のセル・・・・・・・・下へ下がる
　　　　　左へ戻る・・・・・・・・一つ戻る

　　　Ｇ　全部終ったら、フォームツールバーは消しておきましょう。ツール
　　　　バーの右端にウインドウと同じように「×」のアイコンがありますか
　　　　らそれをクリックします。もし「×」のアイコンが見つからない場合
　　　　は、メニューバー「表示」→「ツールバー▼」でツールバーのリスト
　　　　を出し、「フォーム」の前についているチェックをクリックして消し
　　　　て下さい。　　

　本日はここまでとします。「ナンプレくん１号」を上書き保存しておいて下
さい。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

編集後記：最後までお読み頂きありがとうございます。

　気がつくと前に発行してから2ヵ月半が経っています。最近の月日の経過は
びっくりするほどです。といっても私に関しては、ということではあります
が。

　ぼんやりしている間にも、世の中には様々な出来事が次々と起こりました。
防衛庁が防衛省になったと思ったら初代防衛大臣が辞任し（日本の良心は健全
であった）、農林大臣が自殺したと思ったらその次の大臣も同じ病気であった
り、予告された税源委譲の中身は、事実上の増税と化して政府にうらみつらみ
が押し寄せているのを応援するかのように、社会保険庁のずさんな事務内容が
暴露され、選挙目当てに何とかしなければと思ったのか、拙速の対応策を数に
任せて強行採決ラッシュ、昔の自民党が帰ってきました。当然、天は怒り、地
は震え、あいつぐ天災の連続をバックに行われた参院選は与党の大敗となりま
した。与党内反対派としてブレーキ役を果たすべき公明党も、何の効果も発揮
しなかった以上、自民党と共に怒りの鉄槌を食らうのも当然というべきでしょ
う。

　中越沖地震では、復興支援とボランティア活動の迅速さが際立ったのと対照
的に、東京電力の刈羽原発の地震による災害の対応が全くお粗末なことが日に
日に明らかとなり、チェルノブィリの再来の恐ろしさを身近に示しました。

　それにもかかわらず、原発推進勢力は今なお、「地球温暖化」防止のために
化石燃料を使わない原子力発電を、という世迷いごとを宣伝しています。核利
用による放射能の危険と、地球温暖化は共に、現代科学技術の負の側面として
同じ射程にあることを全く意識しない、結局「地球温暖化」を何も理解してい
ないことを暴露した屁理屈にしか過ぎません。

　屁理屈といえば、「マンナン」のＣＭも自分勝手です。最近の「マンナン」
のコマーシャルは「よく噛みましょう」と歌います。ここ数年、コンニャクゼ
リーをのどにつめて死亡する事故がいくつも発生しています。よく噛まずに飲
み込もうとしてのどにつめるのだそうです。

　「板蒟蒻をのどにつめたという話は聞かない。なぜ事故が起こるのかわから
ない」というのがマンナンの言い分です。１ヶ月ほど前の新聞記事では、何の
対応策も取らない、というのがマンナン側の態度であったということでした
が、突然新しいＣＭが流れ出しました。

　工場で安全対策をやっている人なら、このＣＭは「下の下」の対策だという
ことが一目瞭然です。なぜならこの対策の底に流れているのは、のどにつめる
ほうが悪い、気をつければ事故は起こらない、といっているだけで、事故の原
因物はそのままになっているからです。少なくとも工場で事故を分析するとき
は三つの側面から観察し、それぞれの側面での改善を追及します。

　客観的に見れば、コンニャクゼリーの事故はその「容器」が主要な原因で
す。あの大きさのカップに、ゼリーのような色をつけたコンニャクをつめるこ
とによって、コンニャクを料理の食材からお菓子の領域に広げたのがマンナン
の手柄ですが、あの型の容器に入ったお菓子は、すべて口に入ると砕けてしま
うような「やわらかい」ものばかりだったのです。今でもほとんどそうです
が、あの大きさではスプーンが入りませんから、少しずつ食べるわけには行き
ませんし、逆さまにして皿にあけるのもやりにくい、口をつけてズルッと吸い
込むのが一番食べやすいのです。やわらかいゼリーですとそのまま口に入って
もすぐに砕けてのどに入ってしまうのですが、コンニャクゼリーは砕けない。
塊のままのどに入ってしまう可能性が大きいのです。

　しかもあの種のゼリー類は、どちらかといえば歯の悪い高齢者や、幼い子供
たちが好んで食べるものです。コンニャクゼリーはダイエット効果を意識す
る、若くて健康な女性を対象にしていますから、本来販売対象が違うのです
が、形だけでは区別がつかないのです。

　マンナンは、カップの形を変えるか、製品の形そのものを変えるべきです。
それをせずに「よく噛め、よく噛め」と歌っているだけでは、本質安全から程
遠く、さらに犠牲者を出す危険があります。

　　　　　　　　　＊　＊　＊　＊　＊　＊　＊

　「エクセル雑記帳」は出会い系迷惑書き込みに占領されてしまった状態（実
際には管理者で全部削除しましたが）です。ＮＹＦＴＹの掲示板が終了したの
を機会に閉鎖しようと思いましたが、思い切って復活します。今度は管理者の
チェックができませんのでかなり見苦しい状態になると思いますが、とにかく
あけてみます。あまりひどいようですと閉鎖に踏み切りたいと思います。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
エクセル嫌いのための「趣味のエクセル」
発行者：えっちょ

ご意見などはこちらへ　hcho@mbg.nifty.com
ホームページ　　　　　http://homepage3.nifty.com/hcho/
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
このメールマガジンは次のところから配信しています。登録解除、バックナン
バーの閲覧はこちらからお願いします。

メルマガ天国　　http://melten.com/m/13094.html
まぐまぐ　　　　http://www.mag2.com/m/0000109260.htm
E‐Magazine　　 http://www.emaga.com/info/hobxls.html
カプライト　　　http://cgi.kapu.biglobe.ne.jp/m/8559.html
メルマ　　　　　sub-154201@mc.melma.com （登録用）
　　　　　　　　us-154201@mc.melma.com （退会用）
　
＊＊＊　このメルマガに返信していただいても購読解除できません。
　　　　上のＵＲＬから手続きして下さい。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

Winner‘S Road

各メインレース予想はもちろん，後半のレースから１つ逆転を３連単で狙う、『３連単フォーメーションでドン！』等買い目指定で予想、読者参加型の『ワイドで勝...

聴覚障害者に安心の情報保障！「かがやきパソコンスクール」の最新ニュース

かがやきパソコンスクールは、手話、筆談等対応。難聴者・聴覚障害者にやさしいパソコンスクール。聴覚障害者ＭＯＵＳ・ＭＯＴなどの有資格者を多数誕生させる...

■＞＞〔デイトレ王〕株の秘訣!!『デイ・短期』明日の戦略は!?＞＞■

■連日ストップ高的中！■【勝率９５％をキープ！】儲かる銘柄をズバリ！タイムリーにお届け！！デイトレ〜短期、長期にも対応★★★【デイトレ王】の話題沸騰...

『超・大学受験にウカる技術』あなたは知ってますか？メルマＶＥＲ．

大学受験にウカるための効率的な勉強法や精神論をほぼ日刊で配信。毎日の勉強のモチベーションアップに是非お使いください！

【株式投資＆日経225先物】凄腕

株式投資と日経225先物システムトレードのメールマガジンです。

この記事へのコメント

■三菱東京UFJ銀行系 モビット■

【１】ネットで自動審査・来店不要！
【２】限度額300万円
【３】年利9.8％-18.0％（実質年率）

急な出費にモビット！