Excel Maniacs

★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）