Excel Maniacs

★Word VBA（教員お役立ちツール）★漢字書き取り問題作成マクロⅡ

no iframe

漢字書取問題作成マクロⅡ…の巻

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 免責　このマクロの使用によっていかなる損害が生じようと、 　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - マクロ名　「漢字書取問題作成Ⅱ」 機能　　選択した漢字を番号付きの読み仮名に置換する。 　　　　尚、同じ漢字は全て同じ番号の読み仮名に置換する。

実行法　 　　１．漢字を全角の（）で囲む。 　２．マクロを作用させたい範囲を選択 　３． 「ツール」「マクロ」「マクロ」「Main」を実行 例１）　問題文を用意し、問にしたい漢字を全角の（）で囲む。

範囲選択をする。

メニューをツール、マクロ、マクロと辿りダイアログボックスを出し「Main」を実行する。 前バージョンと違い今回は読みの候補が自動的に表示される。そのままの読みでよければ「OK」をクリックする（または「ENTER」を押下する）。括弧をつけた漢字の数だけ繰り返す。 　読みが表示された候補と違うならば読みを修正して「OK」をクリックする（または「ENTER」を押下する）。

すると指定された漢字が(番号＋読み仮名）に変換されて漢字書取問題が作成される。

★漢字書き取り問題作成マクロⅡ： WORD_KAKITORI2をダウンロード

メモ　　括弧の数は２０個まで。 　　　　　マクロはツールバーに登録すると便利。 ※このマクロを実行するためにはエクセルがインストールされていなければなりません。 　お使いの方は掲示板にでもご感想・ご意見でも書き込んで頂ければうれしいです。

以上

もどる

★Word VBA（教員お役立ちツール）★漢字書き取り問題作成マクロ

漢字書取問題作成マクロ…の巻

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 免責　このマクロの使用によっていかなる損害が生じようと、 　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - マクロ名　「漢字書取問題作成」 機能　　選択した漢字を番号付きの読み仮名に置換する。 　　　　尚、同じ漢字は全て同じ番号の読み仮名に置換する。

実行法　 　　１．漢字を全角の（）で囲む。 　２．マクロを作用させたい範囲を選択 　３． 「ツール」「マクロ」「マクロ」「Main」を実行 例１）　問題文を用意し、問にしたい漢字を全角の（）で囲む。

範囲選択をする。

メニューをツール、マクロ、マクロと辿りダイアログボックスを出し「Mainを実行」を実行する。

漢字の読み仮名を入力する。

「OK」をクリックする（または「ENTER」を押下する）。括弧をつけた漢字の数だけ繰り返す。

）★漢字書き取り問題作成マクロ： Word_Kakitoriをダウンロード

メモ　　選択部分に他のフィールドがあるのは不可。 　　　　括弧の数は２０個まで。 　　　　　マクロはツールバーに登録すると便利。 　お使いの方は掲示板にでもご感想・ご意見でも書き込んで頂ければうれしいです。

以上

★Word VBA（教員お役立ちツール）★化学式整形処理マクロ

化学式整形処理マクロ…の巻

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 免責　このマクロの使用によっていかなる損害が生じようと、 　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - マクロ名　「化学式整形処理」 機能　　化学式の整形処理をする。

実行法　 １．マクロを作用させたい範囲を選択 ２． 「ツール」「マクロ」「マクロ」「Chemi_Macro」を実行 例１）　下のような化学反応式を用意する。

範囲選択をする。

メニューをツール、マクロ、マクロと辿りダイアログボックスを出し「Chemi_Macro」を実行」を実行すると以下のようになる。

例２）　下のような化学反応式を用意する。

範囲選択をする。

メニューをツール、マクロ、マクロと辿りダイアログボックスを出し「Chemi_Macro」を実行」を実行すると以下のようになる。

）★化学式整形処理マクロ： Word_Chemiをダウンロード

メモ　　選択部分に他のフィールドがあるのは不可。 　　　　　マクロはツールバーに登録すると便利。 　　　　　全角アルファベットにも対応（2006/09/27） 　お使いの方は掲示板にでもご感想・ご意見でも書き込んで頂ければうれしいです。

以上

★Word VBA（教員お役立ちツール）★簡易数式作成マクロⅣ

簡易数式作成マクロⅣ…の巻

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 免責　このマクロの使用によっていかなる損害が生じようと、 　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - マクロ名　「積分書式整形」 機能　　積分の書式にする。 書式 aを下端、bを上端、f(x)を被積分関数としてカンマで区切る。

a,b,f(x)

実行法　 １．マクロを作用させたい範囲を選択 ２． 「ツール」「マクロ」「マクロ」「Integral」を実行 例１）　下のような数式を用意する。

範囲選択をする。

メニューをツール、マクロ、マクロと辿りダイアログボックスを出し「Integral」を実行すると以下のようになる。

例２）　下のような数式を用意する。

範囲選択をする。

メニューをツール、マクロ、マクロと辿りダイアログボックスを出し「Integral」を実行すると以下のようになる。

）★簡易数式作成マクロⅣ： WORD_Integralをダウンロード メモ　　簡易数式作成マクロの機能も併せ持つ。 　　　　　選択部分に他のフィールドがあるのは不可。 　　　　　マクロはツールバーに登録すると便利。 　お使いの方は掲示板にでもご感想・ご意見でも書き込んで頂ければうれしいです。

以上

★Word VBA（教員お役立ちツール）★簡易数式作成マクロⅢ

簡易数式作成マクロⅢ…の巻

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 免責　このマクロの使用によっていかなる損害が生じようと、 　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - マクロ名　「分数整形」 機能　　分数の書式にする。 書式 分子と分母を半角カンマで区切る。 A,BとするとAが分子に、Bが分母になる。 実行法　 １．マクロを作用させたい範囲を選択 ２． 「ツール」「マクロ」「マクロ」「fraction」を実行 例１）　下のような数式を用意する。

範囲選択をする。

メニューをツール、マクロ、マクロと辿りダイアログボックスを出しfractionを実行すると以下のようになる。

例２）　下のような数式を用意する。

範囲選択をする。

メニューをツール、マクロ、マクロと辿りダイアログボックスを出しfractionを実行すると以下のようになる。

例３）　下のような数式を用意する。

範囲選択をする。

メニューをツール、マクロ、マクロと辿りダイアログボックスを出しfractionを実行すると以下のようになる。

★簡易数式作成マクロⅢ： Word_fractionをダウンロード メモ　　簡易数式作成マクロの機能も併せ持つ。 　　　　　選択部分に他のフィールドがあるのは不可。 　　　　　マクロはツールバーに登録すると便利。 　お使いの方は掲示板にでもご感想・ご意見でも書き込んで頂ければうれしいです。

以上

★Word VBA（教員お役立ちツール）★簡易数式作成マクロⅡ

簡易数式作成マクロⅡ…の巻

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 免責　このマクロの使用によっていかなる損害が生じようと、 　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - マクロ名　「根号整形」 機能　　根号を付ける。 実行法　 １．マクロを作用させたい範囲を選択 ２． 「ツール」「マクロ」「マクロ」「Root」を実行 例１）　下のような数式を用意する。

範囲選択をする。

メニューをツール、マクロ、マクロと辿りダイアログボックスを出しRootを実行すると以下のようになる。

更に範囲選択し

Rootを実行すると以下のようになる。

例２）　下のような数式を用意する。

範囲選択をする。

メニューをツール、マクロ、マクロと辿りダイアログボックスを出しRootを実行すると以下のようになる。

更に範囲選択し

Rootを実行すると以下のようになる。

★簡易数式作成マクロⅡ: WordMacro004をダウンロード メモ　　簡易数式作成マクロの機能も併せ持つ。 　　　　　選択部分に他のフィールドがあるのは不可。 　　　　　マクロはツールバーに登録すると便利。 　お使いの方は掲示板にでもご感想・ご意見でも書き込んで頂ければうれしいです。

この歌詞訳せますか~？ 第32回 「幸せ」

これはバクナンの歌なんですが、Uruさんのカバーが

絶品です。切ない気持ちになってしまいます。

 

さて、前回が難しかったということなので、今回は

簡単な部分を選びました。これなら高校生でも簡単にできるでしょう。

 

【問】下の歌詞の下線部を英訳しなさい。

でも　私があなたを好きなくらい

あなたも想っているなら

私じゃやっぱりダメだね

 

★幸せ　日本語歌詞

★この歌詞訳せますか～？・過去問一覧

【解答例】
I'll never stand a chance against her
If you love her as much as I love you

【教室呈示用解答例】
It's impossible for me to win your love
If you love her as much as I love you

【考察】
実際に教室で出題できるような問題にしてみた。
馴染みのある単語でも、上手く料理するとこうなるというところを示したい。

まるっきり、手も足も出ないようなものであると白けるので
英検2級ぐらいの腕前があるならば取り敢えずは答えが
出せるようなものにしてみた。

(●`ε´●):おいらにも出来たぜ！！
If you love her as deeply as I love you
Of course, I'm NG.

【´･ω･`】：前半はいいけど、I'm NGはヘンだよ。

(●`ε´●):なんで？！　NGには「ダメ」という意味があると辞書に出ていたぞ！！

【´･ω･`】：I'm NGじゃ、通じないよ。

(●`ε´●):？？？
【´･ω･`】：ここで言う「私じゃ、やっぱりダメだね」というのは、私がダメな人という意味じゃない。私があなたを想うように、あなたが彼女を想うのならばどんなことが起きても（譬えあなたがわたしの気持ちに気づいたとしても）私には可能性は無いよね、ということなんだ。

(●`ε´●):なるほど、すると後半はいろいろ考えられるな。
No way for me to win your heart
If you love her as much as I love you

You'll never change your mind no matter what happens
If you love her as much as I love you

You'll never choose me for ever
If you love her as much as I love you

I have no hope for being loved by you if you love her as much as I love you

★Word VBA（教員お役立ちツール）★

      

No	お題	備考	初出年月日
0	マクロをツールバーに登録	教員支援　Wordマクロ（番外）	2006/03/07
1	括弧穴埋め問題作成システム	ワードVBA　処女作です。	2006/03/04
2	簡易数式作成マクロ	係数が整数の整式なら、結構いけるかも。	2006/03/13
3	整序問題作成マクロ	並べ替え問題はこれで一発！！	2006/03/14
4	簡易数式作成マクロⅡ	根号の整形処理に（習作です）	2006/03/15
5	簡易数式作成マクロⅢ	分数の整形処理に（習作です）	2006/03/17
6	簡易数式作成マクロⅣ	積分の整形処理に（習作です）	2006/03/18
7	化学式整形処理マクロ	簡易数式作成マクロの変形版です	2006/09/27
8	漢字書取問題作成マクロ	括弧穴埋め問題作成マクロの変形版です	2006/03/25
9	漢字書取問題作成マクロⅡ	自動的に漢字書取問題を作成します。	2006/11/02
10	漢字書取問題作成マクロⅡ改 Word_Kanji_Kakitori2_Kaiをダウンロード	Word版、回答を文末に表示。ExcelをWordから操作。	2007/02/06
11	括弧交互入力マクロWord版 Word_Kakko_Kougo_Nyuryokuをダウンロード	開き括弧と閉じ括弧をマウスクリックで交互入力	2007/02/06

 

 

この歌詞訳せますか~？ 第31回 「なごり雪」

今回のお題は伊勢正三の「なごり雪」からです。

これは１９７４年３月１２日に発表された曲です。

映画の１シーンを思わせるような曲でイルカによるカバーが有名です。

 

【問】下線部を英訳しなさい。

なごり雪も　降る時を知り

ふざけ過ぎた季節の後で

今　春が来て　君はきれいになった

去年よりずっと　きれいになった

 

【解答例】

Not until my happiest days have gone and a new spring has come

Have I known how beautiful you are

 

【考察】

「ふざけ過ぎた季節」について：

「君」と共に過ごした青春の日々。「ぼく」は本当はその幸せに感謝するべきだったにもかかわらず

失う時までその価値、あるいは「君」が如何に大切な存在であるかに気づかずに過ごしてしまった。

my happiest days と最上級を使って訳してみた。

>my happiest days have gone

祭りは賑やかであればあるほど、それが終わった後は淋しい。「君」と共に過ごした日々が素晴らしければ素晴らしいほど「君」のいない日々はつらい。

ユーミンも「１４番目の月」のなかで「つぎの夜から欠ける満月より１４番目の月が一番好き」と歌っている。満月はその後は欠けていくだけなのだ。

 

英文に関して：

I have not known how (precious) you are (to me) until my happiest days（with you） have  gone and a new spring (without you) has come.

散文的に表現すれば、上記のようになるだろうか。主に上記のかっこ内を調整した。蛇足ではあるが、否定を示す語句を文頭に出したので、倒置になる。

 

【蛇足】

(●`ε´●):おい、「否定を示す語句を文頭に出したので、倒置になる。」ということだが・・・

                I have never seen such a beautiful lady as you.

              ・・・を

             Never have I seen such a beutiful lady as you.

　　　　　・・・とやるやつか？

【´･ω･`】：うん。

(●`ε´●):ならば・・・

＞Not until my happiest days have gone and a new spring has come

＞Have I known how beautiful you are

・・・では

＞Have I known how beautiful you are

・・・が倒置しているが・・・

Not until have my happiest days  gone and・・・

・・・になるんじゃないのか？

【´･ω･`】：そうじゃないんだよ。倒置するのは主節の部分なんだ。

 

なごり雪　日本語歌詞

この歌詞訳せますか～？・過去問一覧

★Word VBA（教員お役立ちツール）★ マクロをツールバーに登録する…の巻

(●`ε´●)：マクロをツールバーに登録するにはどうやったらいいんだ？ 【´･ω･`】：実はぼくもよく知らなかったんだ。 (●`ε´●)：なんだ、偉そうな顔をしてても何も知らないんだな。 【´･ω･`】：だってエクセルのマクロをツールバーに登録したことなんてなかったんだもん。 (●`ε´●)：言い訳はいいから何とかしろ！ 【´･ω･`】：わかったよ。（と言って近くの本屋に向かった…何やら立ち読みをしている…）

-----------------　　　　暫くして　　　　　-----------------

【´･ω･`】：調べてきたよ。下のようにする手順を説明するよ。ツールバーにマクロを登録しやすいように括弧穴埋め問題作成システムのファイルを改訂したから、前にダウンロードした人はもう一度ダウンロードして欲しい。

１．括弧穴埋め問題作Ⅱ.docを開く。 ２．メニューをツール、マクロ、Visual Basic Editor と辿り、VBエディターを起動する。 ３．プロジェクトエクスプローラーに注目。もし見あたらなかったら、メニューを表示、プロジェクトエクスプローラーで表示させる。

４．Project（括弧穴埋め問題作成Ⅱ）のUserForm(上図ではUserFormKumaになっていますが…）をNormalにドラッグ & ドロップ。 ５．Project（括弧穴埋め問題作成Ⅱ）のKumaModule1をNormalにドラッグ & ドロップ。 ６．VBエディターを閉じてワードに戻る。 ７．メニューをツール、ユーザー設定と辿り、ユーザー設定ダイアログボックスを表示。

８．コマンドタブから。分類はマクロ、コマンドは括弧穴埋め問題作成（上図ではNormal.NewMacros.括弧穴埋め問題となっているが実際にはNormal.KumaModule1.括弧穴埋め問題作成になっている）、保存先はNormal.dotに設定。 ９．Normal.KumaModule1.括弧穴埋め問題作成をツールバーにドラッグ & ドロップ。

１０．文字が表示される。「選択したボタンの編集」をクリック。「ボタンのイメージの変更」から好みのアイコンを選ぶ。

１１．もう一度、「選択したボタンの編集」をクリック。「規定のスタイル」をクリック。 ★括弧穴埋め問題作成システムのダウンロードはこちら 　お使いの方は掲示板にでもご感想・ご意見でも書き込んで頂ければうれしいです。

以上

この歌詞訳せますか~？ 第30回 「最後の春休み」

今回のお題はユーミンの「最後の春休み」からです。

この歌は１９７９年の歌です。ちょうど今から４０年前の歌です。

いつも思うけど、やっぱりユーミンは天才です。

 

【問】次の歌詞を英訳しなさい。

目立たなかった私となんて

交わした言葉　数えるほど

アルファベットの　名前順さえ

あなたはひどく　離れてた

 

「最後の春休み」日本語歌詞

★この歌詞訳せますか～？・過去問一覧

【解答例】

I had so few chances to talk with you as to count them all with one hand

Since I was  just one out of many other classmates to you

You were just as far away from me as your name on the roll book was from mine

 

【考察】

(●`ε´●):おい、「アルファベットの名前順」はどこに行ったんだ？

【´･ω･`】：無いよ。直訳しなかったから。

(●`ε´●):？？？

【´･ω･`】：「アルファベットの名前順」というのは出席簿の名前ということだろ。

(●`ε´●):なるほど。

　　＞アルファベットの　名前順さえ

　　＞あなたはひどく　離れてた

　　　・・・というのは簡単に言えば、出席簿の名前が離れていたということか。

【´･ω･`】：うん。インターナショナル・スクールならともかく、日本ではアルファベット順には名簿は作らないからね。

 

 

【蛇足】

(●`ε´●):もう一つ。

＞You were just as far away from me as your name on the roll book was from mine

　これは「あなたは私から遠かった。ちょうど出席簿の私とあなたの名前のように」という意味になると思うんだが？

【´･ω･`】：うん。

(●`ε´●):じゃあ、ヘンだろ。

【´･ω･`】：どうして？

(●`ε´●):出席簿の名前なんて、どんなに離れていても同じページに載っているんだからぜんぜん、遠くないじゃないか？！

【´･ω･`】：読みが浅すぎるな。国語の点、悪いだろ、べべちゃん？

　　　　　　　私------あなた------（同じ）教室

　　　　　　私の名前-----あなたの名前------出席簿（同じページ）

　　　　　　・・・という関係だよ。私とあなたは同じ教室にいたけど、話す機会はほとんど無いほど

　　　　　　あなたは、遠い存在だった。声をかけようと思えばいつでも声をかけられるところに彼はいるんだけれど、それができない。

               She was so shy that she couldn't talk to him.

(●`ε´●):この女の子にとって彼は、たとえ身近にいても遠い存在なのか・・・　

【´･ω･`】：　言いたいことは、中2行を飛ばして「（目立たなかった）私と（なんて）　あなたはひどく　離れてた」ということかな。

　　　　　＞You were just as far away from me 　・・・・

　　　　　・・・ということで上のようにしてみた。

循環参照入門 （5）循環参照で複数条件に合致するデータ数を求める

循環参照を極める

（5）循環参照で複数条件に合致するデータ数を求める 　 下準備： １．メニューを「ツール」「オプション」と辿り、ダイアログボックスをだす。「計算方法」タブを選択。 ２．「計算方法」タブを選択し「反復計算」にチェックをし、「最大反復回数」を１００にして「OK」をクリック。 ３．下図のようにB2に=IF(A1,A2+1,0)と入力する。 ４．チェックボックスをワークシートに貼り付けて「コントロールの書式設定」から「リンクするセル」をA1にする。

【´･ω･`】：CountIf関数では設定できる条件の数はひとつなので60点以上の者の数を求めることはできるが60点以上70点未満の者の数を求めることはできない。そこでよくある手は多少、トリッキーだがSumProduct関数を使う手がよく用いられる。 (●`ε´●):こんな感じだ。セルE2に

=SUMPRODUCT(((C2:C43)>=60)*((C2:C43)<70))

何て式を入力する。他には配列数式を使って

｛=SUM(((C2:C43)>=60)*((C2:C43)<70))｝

・・・とする。蛇足だが配列数式の｛｝は手入力しない。=SUM(((C2:C43)>=60)*((C2:C43)<70))　とセルに入力して確定時にShift＋Ctrl＋ENTERを同時に押下する。

【´･ω･`】：そして第三の手が循環参照による反復計算。SumProductや配列数式は質問掲示板でよく見かけるが循環参照はまだ珍しいと思う。下が循環参照による数式だ。

=IF(A1,IF(AND(INDIRECT("C" & $A$2)>=60,INDIRECT("C" & $A$2)<70),D2+1,D2),0)

【´･ω･`】：これでチェックボックス「実行」にチェックをいれれば複数条件に合致するデータ数が求められるはずだ。

サンプルファイルはこちら：Ref_CountIfsをダウンロード

（初出　2007/03/11）

循環参照入門 （４）循環参照でデータ数・最大値・最小値を求める

循環参照を極める

（3）循環参照でデータ数・最大値・最小値を求める 　 下準備： １．メニューを「ツール」「オプション」と辿り、ダイアログボックスをだす。「計算方法」タブを選択。 ２．「計算方法」タブを選択し「反復計算」にチェックをし、「最大反復回数」を１００にして「OK」をクリック。 ３．下図のようにB2に=IF(A1,A2+1,0)と入力する。 ４．チェックボックスをワークシートに貼り付けて「コントロールの書式設定」から「リンクするセル」をA1にする。

４．データ数をカウントするためにセルD2に=IF(A1,IF(INDIRECT("C" & A2+1)<>"",D2+1,D2),0)と入力する。 ５．最大値を求めるためにセルE2に=IF(A1,IF(INDIRECT("C"&D2+1)>E2,INDIRECT("C"&D2+1),E2),C2)と入力する。 ６．最小値を求めるためにセルF2に=IF(A1,IF(INDIRECT("C"&D2+1)<F2,INDIRECT("C"&D2+1),F2),C2)と入力する。

【´･ω･`】：これでチェックボックス「実行」にチェックをいれればデータ数・最大値・最小値が求められるはずだ。

サンプルファイルはこちら： Maxをダウンロード

（初出　2007/03/10）

循環参照入門 （3）１から１０までの整数の和を求める

循環参照を極める

（3）循環参照で１から１０までの整数の和を求める 　 下準備： １．メニューを「ツール」「オプション」と辿り、ダイアログボックスをだす。「計算方法」タブを選択。 ２．「計算方法」タブを選択し「反復計算」にチェックをし、「最大反復回数」を１０にして「OK」をクリック。 ３．下図のようにB2に=IF(A1,B2+1,0)と入力する。

４．下図のようにB3に=IF(A1,B3+B2,0)と入力する。

【´･ω･`】：これでA1に0以外の数を入力すると１から１０までの整数の和がB3に表示されるはずだ。

(●`ε´●)：0以外の数？なんでだ？ 【´･ω･`】：IF関数の第一引数はTRUEかFALSEの真偽値を判定する。実はFALSEは数字で言えば0と同じで、それ以外がTRUEと同じだから。 ★サンプルファイルはこちら (●`ε´●)：ふ～ん。 【´･ω･`】：それでは式の解説をしよう。まずはB2の式から。B2の式はA1が真ならB2+1を実行せよ。そうでなければ０と表示せよ、という意味だ。 (●`ε´●)：それはわかる。 【´･ω･`】：ここで大事なのはB2自身にB2+1と書き込まれている点だ。 (●`ε´●)：循環参照になっているというわけだな？ 【´･ω･`】：B2の初期値が０だとするとさっき「最大反復回数」を１０にしたから…。 (●`ε´●)：1回の反復でB2にプラス１されるわけだから、０に10回、１を足して１０になるというわけだ。 【´･ω･`】：そういうこと。それでは次にまずはB３の式=IF(A1,B3+B2,0)。下の表を見てほしい

B2の値 B3の値 ＝B3+B2 1回目 1 1 =0+1 2回目 2 3 =1+2 3回目 3 6 =3+3 4回目 4 10 =6+4 5回目 5 15 =10+5 6回目 6 21 =15+6 7回目 7 28 =21+7 8回目 8 36 =28+8 9回目 9 45 =36+9 10回目 10（終了値） 55（答え） =45+10

(●`ε´●)：なんだB2が変数i、B3が変数Ansだと思えば前回の表と同じじゃないか。 【´･ω･`】：そう。発想が同じだからね。以上で大事なところは終わり。あとは本質的なことではないけれどＡ１の値を直接書き換えるよりもチエックボックスを使った方がちょっと見栄えがいいかな。チェックを入れると計算が行われ、チェックをはずすとリセットされるよ。

（初出　2006/03/21）

循環参照入門 （2）１から１０までの整数の和を求める

循環参照を極める

（１）１から１０までの整数の和を求める 　 　循環参照を使わないとしたらどのような手が考えられるだろうか？ 方法１） 　　　　手順 　　　　１．オートフィルを利用してA列に１から１０までの整数を入力。 　　　　２．適当なセルに=SUM(A1:A10)と入力。 方法２）　１からｎまでの整数の和を求める公式を利用する。 　　　　参考：（１からｎまでの整数の和）=n(n+1)/2 方法３）VBAを使う。例えばForループを使うならば以下のようなコードが考えられる。

(●`ε´●)：おい、循環参照がテーマなのになんで関係ない方法を挙げたんだ？ 【´･ω･`】：実は方法３のVBAによるやり方と同じ考えを使うからなんだ。 (●`ε´●)：おいら、VBAのForループなんて知らないぞ！！ 【´･ω･`】：じゃあ、簡単にこのコードの意味を説明しておこう。こんどは説明の便宜上、行番号をふっておいた。

【´･ω･`】:：1行目はマクロの名前。この1行目と9行目のEnd　Subに挟まれた部分がマクロの本体だ。基本的にはマクロは上に書いてあるコードから、下に向かって順番に実行される。2行目、3行目はマクロの中で使う変数の定義だ。2行目ではiという変数を整数値として使いますよ、と宣言しているわけだ。 (●`ε´●)：じゃあ、３行目ではAnsという変数を整数値として使いますよ、と宣言しているというわけか？ 【´･ω･`】：うん、そういうこと。このAnsを答えを入れる入れ物（変数）にするつもりで、このコードを書いた。まず、４行目でこの入れ物の中に０を入れた。入れ物の中を空にしたわけだ。 (●`ε´●)：それから？ 【´･ω･`】：次は５行目。ここからが肝心だ。５行目のForループの書式は以下のようになる。

【´･ω･`】：上の図とコードの５～７行目をよく見比べてほしい。 (●`ε´●)：変数がi、開始値が１、終了値が１０、（何かのコード）がAns=Ans+iというわけだな？ 【´･ω･`】：VBAではこのようなコードを記述すると、変数を開始値から終了値まで、変数の値を１ずつ増やしながら、ForとNextの間のコードを繰り返し実行する。 (●`ε´●)：具体的に言うとどういうことだ？ 【´･ω･`】：iを1から始めて１０まで、つまり1,2,3,4,5,6,7,8,9,10と変化させながら、Ans=Ans+iを繰り返し実行するわけだ。 (●`ε´●)：ということはAns=Ans+iが10回繰り返されるということだな？ 【´･ω･`】：そう。ところでここでAns=Ans+iに触れておくけどここでの「=」は等号じゃないからね。 (●`ε´●)：？？？ 【´･ω･`】：ここでの「=」は代入記号なんだ。 (●`ε´●)：？？？ 【´･ω･`】:例えばこのAns=Ans+iが実行される前のAnsの値が３、ｉの値が2だったとしよう。Ans=Ans+iが実行されるとまず、式の右辺が処理される。つまり、３＋２が計算される。そして次にその計算結果の５が左辺のAnsに代入され、実行前に３だったAnsの値が実行後は５になるというわけだ。 　ここで5行目から7行目までの動きを表に示しておく。本当にここが肝心！！ここがわかれば後は楽！！

iの値 左辺のAnsの値 ＝Ans+i 右辺のAnsの値 1回目 1（開始値） 1 =0+1 0（初期値） 2回目 2 3 =1+2 1 3回目 3 6 =3+3 3 4回目 4 10 =6+4 6 5回目 5 15 =10+5 10 6回目 6 21 =15+6 15 7回目 7 28 =21+7 21 8回目 8 36 =28+8 28 9回目 9 45 =36+9 36 10回目 10（終了値） 55（答え） =45+10 45

【´･ω･`】：8行目は答えを表示しているだけ。 (●`ε´●)：Forループの仕組みはわかったけど、これと循環参照との関係はどうなっているんだ？ 【´･ω･`】：今回はここまで。それは次回ね。

（初出　2006/03/14）

循環参照入門 （１）循環参照とは？

循環参照を極める

（１）循環参照とは？ 　だいぶ古いCMにこんなものがあった・・・。

丸井はどこ？ 駅のそば！！ 駅はどこ？ 丸井のそば！！

これでは質問が堂々巡りになってしまい、結局丸井がどこにあるのかわからない。エクセルでも事情は同じで下表のように入力すると注意を促すダイアログボックスが表示される。

セル番地 A1 B1 C1 数式 =B1 =C1 =A1

↓

（２）循環参照をテクニックとして利用するには？ 　このようなダイアログボックスが表示されると何か悪いことでもしてしまったかのような気分になってしまうが、この循環参照をテクニックとして利用するといろいろと役に立ち面白いことができる。ただこれを利用するには「丸井はどこ?」の堂々巡り（循環参照）をどこかで断ち切らねばならない。本当に放っておけば永遠にこの無限ループから抜け出ることができない。だから何回繰り返したら、堂々巡りをやめるという設定をするのだ。そのための下準備として予め以下の手順で設定をしておく。 １．メニューを「ツール」「オプション」と辿り、ダイアログボックスをだす。「計算方法」タブを選択。 ２．「計算方法」タブを選択し「反復計算」にチェックをし、「OK」をクリック。

尚、「最大反復回数」が堂々巡りの回数となる。上の設定では１０になっているので、10回で堂々巡りは終わりとなる。 　これで循環参照を利用する下準備ができた。 　それではセルA1に=A1+1と入力してみてほしい。１０と表示されるはずである。これはどのような理屈からだろうか。 　下の表を見ながら考えてほしい。

A1の式（=A1+1） A1の値 初期値 0 0 1回目 =0+1 1 2回目 =1+1 2 3回目 =2+1 3 4回目 =3+1 4 5回目 =4+1 5 6回目 =5+1 6 7回目 =6+1 7 8回目 =7+1 8 9回目 =8+1 9 10回目 =9+1 10

式=A1+1を入力する前は当然A1は空欄である。そして空欄の初期値は０である。そこに式=A1+1を入力した瞬間に第1回目の循環が始まる。つまり初期値の０に１を加える演算である。この演算によってA1の値は０から１になる。次に第２回目の循環が始まり、現在のA1の値１にまた1を加える。そして第2回目の循環が終わるとA1の値は２となる。こういうことを順次繰り返していくと10回目の循環が終わったときにA1の値は10となる。 　これが循環参照のもっとも大事な基本となる。

次回は循環参照を利用して１から１０までの和を求めてみよう。

（初出　2006/03/12）

サンプルファイル 備考 １ 円周率を求める： Sample15をダウンロード 循環参照バージョン 2 できたての小ネタ１３： Sample014をダウンロード 暗号解読・循環参照バージョン 3 文字列から特定の文字の数を求める： CH_1_02をダウンロード チャレンジ問題１・ノンマクロ・循環参照バージョン 4 10進数→２～２９進数に変換： Sample012をダウンロード ノンマクロ・作業セル無し・循環参照バージョン 5 データ数・最大値・最小値： Maxをダウンロード ノンマクロ・作業セル無し・循環参照バージョン 6 複数条件に合致するデータ数を求める： Ref_CountIfsをダウンロード 循環参照・SumProduct・配列数式の比較