Excel2007 でつくる１００マス計算表 第１章
乱数を使って問題を作る 「１桁問題」
乱数を使って作成した１００マス問題、脳力トレーニングにもなるので挑戦してみよう。 お孫さんの計算ドリル用としても役に立つかもしれません。 最初は、１桁同士の足し算表をつくる。解答時間は２分以内が目標。 今回使用する関数 ＲＡＮＤ関数 ０～１未満の乱数を発生させる関数 ＝ＲＡＮＤ（） ＩＮＴ関数 切捨てにより実数を整数化する関数 ＝ＩＮＴ（Ａ２＊１０） ＲＡＮＫ関数 数値の順位を求める関数 ＝ＲＡＮＫ（Ａ２，Ａ＄２：Ａ＄１１，１） ＴＲＡＮＳＰＯＳＥ関数 配列で指定した範囲のデータの行列変換を行なう関数 ＝ＴＲＡＮＳＰＯＳＥ（１）自動再計算をオフにする。
・Office ボタンから「新規作成」をクリックして新しいブックを開く。再び Office ボタンをクリッ クし、「Excel のオプション」を選択する。 ・「Excel のオプション」から「数式」を選び、「計算方法の設定」の欄で「手動」を選択し、「ブック の保存前に再計算を行う」のチェックをはずしてから「ＯＫ」ボタンで画面を閉じる。２）０～９の乱数を表示させる。
・項目名部分を含めてＡ１～Ｃ11 セルを選択し、下端をポイントしてマウスポインタが四方矢印に変 わってから［Ctrl］キーを押しながら右へ３列分ドラッグする。 ・再計算が済んでいないセルがあるため、画面下に「再計算」と表示されている。「再計算」をクリッ クして再計算し、新しい乱数を発生させる。［Ｆ９］キーで再計算してもよい。 ・再計算後のシート例。乱数を10 倍して単に整数化したＢ列とＥ列は同じ数字のダブりがあるが ＲＡＮＫ関数で計算したＣ列とＦ列はダブりがないことが分かる。 =INT(A2*10) =RAND() =RANK(A2,A$2:A$11,1)-1
３）乱数を縦横に表示させる。
・Ｃ２～Ｃ11 セルを選択して「ホーム」タブの「クリップボード」グループにある｢コピー｣ボタンを クリック。続けて、シート見出しの「Sheet２」をクリックする。 ・まっさらな「Sheet２」が開いたらＡ２セルを選択し、同じく「クリップボード」グループにある｢貼 り付け｣ボタンの▼をクリックして｢リンク貼り付け｣を選ぶ。 ・「Sheet２」のＡ列に乱数が転記された。列幅を狭めるためにＡ１セルの左上の四角をクリック してシート全体を選択し、いずれかの境界を左にドラッグ。ここでは「幅 3.13（30 ピクセル）｣ まで縮めた。 ドラッグ・Ｂ１～Ｋ１セルをドラッグして選択し、半角で「＝ＴＲＡＮＳＰＯＳＥ（ 」とキー入力。 （＝ＴＲまで入力すると候補が表示されるので該当部をダブルクリックすると簡単） 「Ｅｎｔｅｒ」キーを押さずに続けて「Sheet１」をクリックし、シートを切り替える。 ・Ｆ２～Ｆ11 セルをドラッグ。数式バーに図の数式が入力されたら、[Ctrl]＋[Shift]＋[Enter]キー を押す。 ・「Sheet１」で縦に並んでいた数値が「Sheet２」では横に表示された。数式バーを見ると配列数式 が入力されているのが分かる。 ドラッグして[Ctrl]+[Shift]＋[Enter]
４）計算表の体裁を簡単に整える。
・表の全体（Ａ１～Ｋ11 セル）をドラッグして選択し、配置グループの｢中央揃え｣ボタンをクリック。 さらにフォントグループの｢罫線｣ボタン横の▼をクリックして｢格子｣を選択する。 ・Ａ１～Ａ11 セルを選択後、[Ctrl]キーを押しながらＢ１～Ｋ１セルをドラッグして同時選択する。 「Ｂ（太字）」ボタンをクリックし、さらに｢塗りつぶしの色｣ボタン横の▼をクリックして開いた色一 覧から｢薄い緑｣を選ぶ。 ・足し算だと分かるように、Ａ１セルに全角の「＋」（「ぷらす」で変換）を入力する。これで簡単な １００マス計算表が完成。「Ｆ９」キーを押すたびにあらたな乱数が発生する。 Ａ１～Ｋ11 セルをドラッグ１００マス計算表 第２章
印刷の設定を行い、正解表を作る
１）用紙一杯に印刷するように設定。
・第１章終了文書の「Sheet２」を開き、「印刷プレビュー」をクリックする。 ・プレビュー画面が開いたら、「ページ設定」ボタンをクリックする。 ・ 「ページ設定」ダイアログボックスの「ページ」タブで「印刷の向き」は「横」を選び、「拡大／ 縮小」欄の「100％」を「300%」に書き換える。「用紙サイズ」は「Ａ４」に。 ・ 続けて「余白」タブをクリックする。「ページ中央」欄の「水平」と「垂直」の両方にチェックを 入れて「ＯＫ」ボタンで設定画面を閉じる。 ・用紙一杯に印刷されるようになった。このまま「印刷」ボタンをクリックするとプリントアウトさ る。ここでは「印刷プレビューを閉じる」ボタンでプレビュー画面を閉じる。２）シート見出しを付ける。
・シートに戻ったら「Sheet２」シートのタブをクリック。ボタンを押し続けて暫くすると、マ ウスポインタの先に用紙のアイコンが現れる。［Ctrl］キーを押しながら（用紙アイコンに＋がつ く）右へ少しドラッグする。 ・「Sheet２」タブと「Sheet３」の間でマウスボタンを離すと「Sheet２」が複製された「Sheet２（２）」 が現れる。 ・「Sheet２（２）」をダブルクリックして反転状態になったら「正解」と上書き入力。［Enter］キー で確定する。同様にして「Sheet１」を「乱数」、「Sheet２」を「問題」にそれぞれ 変更する。 「用紙」アイコンが現れたら［Ctrl］キーを押しながらやや右へドラッグ ダブルクリック３）足し算の正解を求める。
・「正解」シートを開き、Ｂ２セルに半角で「＝Ｂ＄１＋＄Ａ２」と入力。[Enter]で確定した後、同 セルを選択して右下隅にマウスポインタを合わせ、＋に変わったら右へＫ２セルまでドラッグする。 ・数式がＫ２セルまでコピーされたらマウスポインタを一度離し、Ｂ２～Ｋ２セルが選択された状 態のままＫ２セルの右下隅を今度は下へＫ11 までドラッグする。 ・表の全てのマスに数式がコピーされたら、「Ｆ９」キーを押してシートを再計算する。画面のように あらたな乱数が発生して、その足し算の正解が表示される。４）正解シートの正解欄に名前を付ける。
・「正解」シートを開き、Ｂ２～Ｋ１１セルを選択、「名前ボックス」をクリックして「Ｂ２」を 反転状態にする。 ・そのまま「正解」と上書き入力して、[Enter]キーを押し、名前を確定する。名前ボックスの中央に 「正解」と表示される。 ドラッグ※１桁足し算の「乱数・問題・正解」を保存しておく場合は、ここで一度「名前をつけて保存」 （例えば「１桁足し算表」として）をしてください。
１００マス計算表 第３章
画面上で誤答を赤く表示する。
画面上で答を入力する場合、間違った答を入力するとそのセルに色がつくようにしたい。 そのためには「条件付書式」を使用する。 今回使用する関数 ＩＳＢＬＡＮＫ関数 引数のセルが空白の場合に真を返す関数 ＝ＩＳＢＬＡＮＫ（Ｂ２） ＩＮＤＥＸ関数 引数を順に設定してセル範囲の左上から○行○列 の値を返す関数 ＝ＩＮＤＥＸ（正解,ＲＯＷＳ（＄Ｂ＄２：Ｂ２）, ＣＯＬＵＭＮＳ（＄Ｂ＄２：Ｂ２）） ＲＯＷＳ関数及びＣＯＬＵＭＮＳ関数 引数に指定したセル範囲の行数と列数を返す関数 ＝ＲＯＷＳ（＄Ｂ＄２：Ｂ２） ＝ＣＯＬＵＭＮＳ（＄Ｂ＄２：Ｂ２）１）条件付書式で誤答の入ったセルに色をつける。
・第２章終了文書を開き、問題」シートに切り替え、Ｂ２～Ｋ11 セルを選択して、「ホーム」タブ、 「スタイル」グループの「条件付書式」の▼メニューから「ルールの管理」を選ぶ。 ・「条件付書式ルールの管理」ダイアログボックスが表示されるので、「新規ルール」をクリック。 ・まず、セルが空白の場合は誤答と見なさないで、セルをそのままにしておくためのルールを数式で 設定する。・「新しい書式ルール」ダイアログボックスが表示されるので、「数式を使用して、書式設定するセル を決定」を選び、ルールの編集欄に半角で「＝ＩＳＢＬＡＮＫ（Ｂ２）」と数式を入力。続けて 「ＯＫ」ボタンをクリックする。 ・再び「条件付書式ルールの管理」ダイアログボックスが表示され、先の数式が入力されている。 ・次に、答えとして入力した値が正解と一致しないときにセルに色がつくように、ルールを数式で設 定する。 ・先ほどと同様に「新規ルール」をクリックし、同様の手続きで編集欄に「＝ＩＮＤＥＸ（正解,ＲＯ
・「セルの書式設定」ダイアログボックスの「塗りつぶし」タブをクリックして、「その他の色」を選 択し、適当な色を選んで「ＯＫ」。セルの書式設定画の「サンプル」で色を確認して、順に「ＯＫ」 で閉じていく。
・「条件付き書式ルールの管理」画面に戻るので、数式や書式を確認して「適用」ボタンをクリック。 「適用」ボタンが薄くなり無効になる。
・先の条件が適用になって問題の空白セルに色がついているのがわかる。「矢印」ボタン↓で行の上下 位置を変え、「数式=ISBLANK…」の行を選択する。 ・「適用」ボタンをクリックすると、色はなくなる。「ＯＫ」ボタンで設定画面を閉じる。
２）入力欄以外を保護する。
・Ｂ２～Ｋ11 セルが選択された状態のまま、［Ctrl］キーを押しながらＡ１セルをクリックして同時 選択。「セル」グループの「書式」ボタン横の▼をクリックして「保護］欄の「セルの書式設定」を 選ぶ。 ・「セルの書式設定」ダイアログボックスの「保護」タブの画面を開き、「ロック」のチェックをはず して「ＯＫ」ボタンをクリックする。 色が付いているのに注目！ ［Ctrl］+クリック チェックを確認・「校閲」タブの「変更」グループから「シートの保護」を選択してクリックする。
・「シートの保護」ダイアログボックスで「ロックされたセル範囲の選択」のチェックをはずす。 その下のチェックは残したまま「ＯＫ」ボタンを押してウインドウを閉じる。
