EXCELの関数を使ったテスト作成

Question

EXCEL2003で作った英単語と意味のデータを番号1～50までと指定した範囲をランダムで20問選んで、印刷したいんですけど、どうやったらいいか教えて下さい。
毎回手作業でやらずに自動化して、Wordの文書に貼り付けしたいんですが、出来ますか？教えて下さい。よろしくお願いします。

Wendy02 · Accepted Answer

こんにちは。Wendy02です。

最初に、

お礼側と補足側の書き込む順序は、逆にしてくださいね。
補足側では、こちらに連絡が来ないので、見過ごしてしまうことがあります。お礼側に入れると、こちらも安心してしまうし、だいたい、ここのカテゴリの2割ぐらいの質問者さんは、そのままになってしまいますので、私などでも、ある程度は、見切ってしまいます。

ただし、私の場合は、一応、気になるもので、閉められていないものは、期間を3ヶ月に区切って、こちらではすべてチェックしています。

今回は、大丈夫ですが、あまり間を明けるような場合は、お礼側に入れれば、相手は、それなりの反応を示します。

>Eの列が全て0になっており、
まず、一番、可能性があるのは、F列で、範囲を指定していないことですね。
全体数以内なら、範囲を決めて入力してください。
例：F1: 10, F2: 40 
何も入れていないと、E列は、すべて0になり、後G列以降の項目は表示しません。

kakkysan · Answer

例えばこんな方法はいかがでしょうか
空いた列に
=ROUND(RAND()*100,0)
と入れて、５０行目までコピー（０から１００までの乱数を発生させています）
これをソートして、上位（下位）２０番目までを選択
ただし、「ツール」「オプション」で「計算方法」を「手動」に設定しておいて下さい。（再計算させる時はF9を押します）

Wendy02 · Answer

こんばんは。

私自身、うまくいくとは思わなかったです。
本来は、全部自動化というのは、マクロのことでしょうけれども、全体のお話の状況からすると、とても、掲示板で、個人のために無償で作成という範囲は超えてしまうように思います。（一応、製作依頼というのは、ここでは禁止されております。）

もちろん、ご質問者さんが取り掛かっているという問題で、回答者が、アドバイスをするというのは別ですが。

今回は、設問が前にやったものが出てくるという問題は、抜きにしてあります。

まず、都合、便宜的なタイトル行は、なしにしてありますので、1行目からです。
(私の使っている単語帳の一部から抽出しましたが、これは、Alc のSVL　ランク11 と、P-DIC+英辞郎により作られたものです。）

　　A　　　　　　B
abiding　　　　不変の
accomplice　　共犯（者）,従犯者
acronym　　　　頭字語,頭文字
affable　　　　愛想の良い
aggrieved　　　法的に侵害を受けた,虐げられた
50行まで

C1:　乱数を発生しています。
=RAND()

これを下にコピー(C50 まで）

※なお、一回きりなら、このRAND()の数式を範囲をコピーして、右クリック－形式を選択して貼り付け－値にすると、後は、動くことはありません。

D1:　順位が重なることは、ほぼ皆無です。
=RANK(C1,$C$1:$C$50)

これを下にコピー(D50 まで）

E1:
=INT(RAND()*10^2)*10^2+D1

これを下にコピー(E20まで）

F1:
=RIGHT(SMALL($E$1:$E$20,ROW(A1)),2)*1

これを下にコピー(F20まで）

----------------------------------------------
この抽出場所は、別の印刷用のシートに移してもよいと思います。
----------------------------------------------

G1:英単語
=INDEX($A$1:$A$50,D1,1)

これを下にコピー(G20まで）

F1:訳語
=INDEX($B$1:$B$50,F1,1)

これを下にコピー(F20まで）

----------------------------------------------

>それをすべて自動化してWordで作ったテンプレート(単語テスト解答用紙)に貼り付けたいんですが、どのようにしたらいいでしょうか？

Word側は、EXCELのオブジェクトを貼り付けるようにすればよいのかと思います。フィールドや差込印刷ですと、きれいにはいくのですが、Word自体を不安定にするのと、作業が複雑になります。オブジェクトの場合は、どの程度、レイアウトに収まるのかは、あまり確約出来ません。

とりあえずは、EXCELまでの完成とします。

wisemac21 · Answer

＞あと1～50だけでなく、20～40など任意に設定を変えることは簡単に出来ないでしょうか？
RANDBETWEEN()関数を使えば指定した数字の範囲内での乱数を得ることができます。

noname#79209 · Answer

> もし可能でしたら一致するようにしていただけたら幸いです。
これは、「丸投げ依頼」ともとれる文言ですね。
「Vlookupを使えば可能です。」とだけお答えしておきましょう。

Wendy02 · Answer

こんにちは。#2のWendy02です。 >抽出した英単語と訳語が一致しないのですが、二つを一致することは可能でしょうか？テスト問題だから、英単語と訳が別々になるのではなかったのでしょうか？わざと、バラバラになるようにしたのです。それで、線を引いて、一致させるという方法で、これは良い!と思ったのですが……。残念です。(というか、もし、訳語が並べ替えせずに済むなら、すでに、そういうソフトウェアがあると思います。最初、私は、VBAで作っていたのですが、良いものがあるので、開発はやめてしまいました。"P-Study" というソフトです。個人でお使いになる分には、フリーソフトウェアです。）今度は、VLOOKUPを使います。 A列は、1～50 まで番号が振ってあります。 B列は、英単語が、B1～B50があり、 C列は、訳が、C1～C50まであります。 D列は、同じく D1からD50まで =RAND() E列は、 E1から、E50 まで、 =IF(AND(RANK(D1,$D$1:$D$50)>=$F$1,RANK(D1,$D$1:$D$50)<=$F$2),RANK(D1,$D$1:$D$50),0) F列に、[単語番号の範囲]を入れます。仮に、ここでは、 F1　20 F2　40 G列は、 G1から、G50まで、 =IF((ROWS($E$1:$E$50)-COUNTIF($E$1:$E$50,0))>=ROW(A1),INDEX($E$1:$E$50,SMALL(INDEX(($E$1:$E$50<>0)*ROW($E$1:$E$50),,),COUNTIF($E$1:$E$50,0)+ROW(A1)),1),"") ------------------------------------------------------- 出力部分 H列 H1:～ =IF(ISNUMBER(G1),VLOOKUP(G1,$A$1:$C$50,2),"") I列 I1:～ =IF(ISNUMBER(G1),VLOOKUP(G1,$A$1:$C$50,3),"") ---------------------------------------------------------- 完成図(Alc-SVL 11+英辞郎+P-DICによる）例　G　　H　　　　　　　　I 10　　alumnus　　【名】男子の卒業生,同窓生 30　　bastion　　【名】（城の）稜堡 27　　backlash　　【名】反発,反動 19　　archipelago　【名】群島,列島 21　　aspen　　　　【名】<植>アスペン 23　　aura　　　　【名】オーラ,独特の雰囲気なお、入力の式が入れ終わってから、挿入やレイアウトを整えるとよいです。そのほうが分かりやすいかと思います。もし、別のシートに[出力部分]を移動する場合は、範囲を選択して、Alt キーを押しながら、ドラッグすると、シートタブが選択できますので、それで、別のシートに数式を壊さずに移動が可能です。計算部分は、どれほど汚くても、出力部分さえ、きれいで出せればよいので、上手に作れば、Wordでなくてもよいかもしれません。なお、これは、私が、数年してきたことの延長上にありますので、お答えさせていただきました。

EXCELの関数を使ったテスト作成

例えばこんな方法はいかがでしょうか

この回答への補足

こんばんは。

この回答への補足

＞あと1～50だけでなく、20～40など任意に設定を変えることは簡単に出来ないでしょうか？

> もし可能でしたら一致するようにしていただけたら幸いです。

こんにちは。

この回答への補足

こんにちは。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング