【´・ω・`】:S田さんから下のような丁寧なメールを頂いた。
**************************************************************************************
初めまして。英語塾の教員をしております、S田と申します。
エクセルがこんなに活用できるのかと、目からウロコが落ちるようでした。ありがとうございます。
当座、私の塾で単語テキスト1冊分の単語テストを作る必要があり、効率的な作成法を考えていたため、
「英単語ランダム出題マクロ」が大変参考になり、ぜひ活用させていただきたく思います。
そこで、一点質問があります。
ホームページで出ているマクロはDataタブの英単語のみをMainタブに出力していましたが、
Dataタブの英単語の隣の列に日本語の意味を書き、英語と日本語の両方を一括してMainタブに出力することは可能でしょうか。
問題と同時に解答も作る必要があり、同時に出力できれば、英語に対応する日本語をそのまま解答に貼り付けることができるため、より活用できるかと考えています。
マクロの一部を改変して対応することができるのであれば、改変する方法を教えていただけると大変助かります。
お忙しい中かと存じますが、ご教授いただけますでしょうか。
よろしくお願い致します。
S田
**************************************************************************************
【´・ω・`】:さて、下が問題のファイルだ。
仕様A
(1)1000単語の中から1番の単語から50番の単語まで
というふうに出題範囲を指定することができる。
(2)(1)の出題範囲からさらに任意の数を出題することができる。
**************************************************************************************
【´・ω・`】:S田さんは英語と日本語を並べて出力したいと言っているわけだ。
(●`ε´●):そんなの簡単だ。おれが教えてやる。
【´・ω・`】:べべちゃん、VBAがわかるのか?
(●`ε´●):そんなもの知らなくても、ちょっと頭を使えばなんとでもなる。
1. DATAシートのB列(英単語の列)に・・・・・
respect@尊敬する
・・・・のように
英単語@訳語
・・・・の形で入力しておく
2. これでマクロを走らせればmainシートに英単語@訳語の形で出力されるので
たとえばmainシートのセルI2にのK列に「respect@尊敬する」と表示されているとして
K2に・・・
=LEFT(I2,FIND("@",I2)-1)
L2に・・・
=MID(I2,FIND("@",I2)+1,LEN(I2)-LEN(K2)+1)
・・・・と入力すればK2にrespect、L2に尊敬すると表示される。
【´・ω・`】:なるほど、これなら元のファイルのコードをいじらなくても済むな。
最近のコメント