Excel Maniacs

Excel + OCR + 自動採点（選択問題）--- 第4回 ---

★小テスト自動採点

（●｀ε´●）：選択問題を自動採点するというのはわかった。

　　　　　　しかし、このような形式の試験はたぶん、小テストだろうな。

 

【´･ω･`】：うん。小テストを想定している。

 

（●｀ε´●）：小テストは定期試験とは違って生徒が出席番号順に座っていないことが多い。

 

【´･ω･`】：うん。連番画像データを作るために答案用紙を回収してから出席番号順に並べ直さなければならない。

 

（●｀ε´●）：小テストは回数が多いし、いちいち並べ直すのは面倒だな。

 

【´･ω･`】：でも、それが「採点斬り」系のプログラムのお約束だから。

                       そこで、今回は解答用紙を工夫して、出席番号順に並べ直さなくてもいいようにした。

 

（●｀ε´●）：出席番号をOCRで読み取るようにしたわけか？

 

【´･ω･`】：うん。

 

★準備

　回収した解答用紙を連続スキャンしてJPEG画像ファイルを作る。出席番号順に並べる必要はない。当然ながら欠席者の解答用紙を補う必要もない。ただし、模範解答は一番若い番号になるようにする。

 

★手順：　お試し用サンプルファイルを使って実際にやってみましょう。

　1.　サンプルファイルが連番になっているので、フォルダorignal_filesにファイルを10枚全てコピーします。

　2.　ToraScan.exeを実行するとフォームが表示されます。後は「ファイル」メニューを上から順番にやっていきます。

　　　まずは「サイズ適正化」をクリックします。

3.ダイアログが表示されるので模範解答のファイルを選択し、開きます。

4.　フォームに模範解答が読み込まれます。

 

5.「枠斬り開始」をクリック。マウスでドラッグして領域指定。適切に指定出来たら「ENTER]を押下。

今回は「氏名」を最初に、次に「出席番号10の位」、「出席番号1の位」領域指定し、その後に１問から１０問までを処理する。

 

6.　領域指定が済んだら「枠斬り終了」をクリック。

　　領域指定した部分に赤枠が表示されます。

7.　「猫を呼ぶ」をクリック。ウィンドウ「猫の手」が表示される。

解答用紙の数（模範解答を含む）は10枚なので「用紙枚数」は10に、領域指定は13か所なので「切り取り枠数」は13にする。入力する数字は半角。

「フォルダQ000内のSeito000を選択」をクリック。フォルダQ000はToraScan.exeと同じ場所にあります。

 

8.ダイアログが表示されるのでSeito000.Jpgを選択し、開く。

9.　ウィンドウ「猫の手」に戻り、「(=^・^=)：読み取るにゃ！！」をクリックする。

猫が仕事をしてExcelに結果が表示される。

10. ToraFinish.exeを起動し「答案処理」をクリックする。

 

＜メモ＞

　★B・C列に出席番号が表示されているので、それらを基準にソートすれば出席番号順になる。

　★D列からは選択された解答の番号が並ぶ。１行目の模範解答と比較すれば簡単に正誤判定ができる。

＜ヒント＞

　★小テストはだいたい、毎回形式が決まっているので得点集計・分析用のワークブックを作っておけば成績処理が一瞬でできるようになるだろう。

　★この方式は小テストだけでなく、アンケートにも利用できる。エクセルのワークシート関数を使えば集計・分析は容易であろう。

 

Excel_OCR_04をダウンロード

 

 

 

Excel + OCR + 自動採点（選択問題）--- 第3回 ---

【´･ω･`】：前回はスキャンした結果をエクセルに出力するところまでだった。

（●｀ε´●）：具体的にはどう出力されるんだ？

【´･ω･`】：一行に解答用紙一枚分、連番順だ。

（●｀ε´●）：1行目に模範解答、2行目に出席番号１番、3行目に出席番号2番、・・・ということか？

【´･ω･`】：そう。列は枠斬りした順になる。

（●｀ε´●）：A列に氏名、B列に１問目、C列に2問目、D列に3問目、・・・ということだな？

【´･ω･`】：そう。だから、解答の正誤判定は１行目の模範解答と比較すればいい。

（●｀ε´●）：L1に「　=--(B$1=B1)　」と入力して必要な部分にコピペすれば模範解答と等しければ1に、そうでなければ0になるな。

 

Sample20230321をダウンロード

 

'参考VBA

’-----------------------------------------

Sub 自動採点()

　問題数 = 1
　Do While Cells(1, 問題数) <> ""
        　問題数 = 問題数 + 1
　Loop

　解答用紙 = 1
　Do While Cells(解答用紙, 1) <> ""
       　 解答用紙 = 解答用紙 + 1
　Loop

　For x = 1 To 問題数 - 1
        　For y = 1 To 解答用紙 - 1
                　If x = 1 Then
                       　 Cells(y, 問題数 + x) = Cells(y, x)
                　Else
                        　If Cells(y, x) = Cells(1, x) Then
                                　Cells(y, 問題数 + x) = 1
                       　 Else
                                　Cells(y, 問題数 + x) = 0
                       　 End If
                　End If
        　Next
　Next

End Sub

 

 

 

 

Excel + OCR + 自動採点（選択問題）--- 第2回 ---

【´･ω･`】：ToraScan.exeを変更した。

（●｀ε´●）：どう変えたんだ？

【´･ω･`】：認識率を高くしたが、画像サイズの適正化を外したんでマウスでの領域指定が多少、やりにくくなった。そこは勘弁してほしい。

 

★準備

       同一フォルダ内に、フォルダ（orignal_files、src_test）とファイル（ToraSCan.exe、ToraOCR.exe）が在るのを確認する。

 

★手順：　お試し用サンプルファイルを使って実際にやってみましょう。

　1.　サンプルファイルが連番になっているので、フォルダorignal_filesにファイルを11枚全てコピーします。

　2.　ToraScan.exeを実行すとフォームが表示されます。後は「ファイル」メニューを上から順番にやっていきます。

　3.メニュー「ファイル」から「サイズ適正化」をクリック。

4.ダイアログから0710_10_000.jpgを選び、開く。

0710_10_000.jpgは模範解答である。

5.　「枠斬り開始」をクリック。マウスでドラッグして領域指定。適切に指定出来たら「ENTER]を押下。

今回の練習では「採点斬り」の作法に従い「氏名」を最初に領域指定し、その後に１問から１０問までを処理する。

6.　11か所の領域指定が済んだら「枠斬り終了」をクリック。

7.　「猫を呼ぶ」をクリック。ウィンドウ「猫の手」が表示される。

解答用紙の数は11枚なので「用紙枚数」は11に、領域指定は11か所なので「切り取り枠数」は11にする。入力する数字は半角。

8.「フォルダQ000内のSeito000を選択」をクリックする。

ダイアログが表示されるのでSeito000.jpgを選択し開く。

フォルダQ000はTraScan.exeと同じフォルダに作られている。

9.　ウィンドウ「猫の手」の「(=^・^=)：読み取るにゃ！！」をクリックする。猫が仕事をしてExcelに結果が表示される。

【´･ω･`】：今日はここまでね。ここまでできれば自動採点はできたも同然。

（●｀ε´●）：ここで出てきたファイルは下の圧縮ファイルに入っているから良かったら遊んでくれ。

 

Excel_OCR_02をダウンロード

 

 

Excel + OCR + 自動採点（選択問題）--- 第１回 ---

　表題通りなのですがExcel と OCR を組み合わせて選択問題の 自動採点をやってみました。使うプログラムは以前、紹介した「画像連続キャプチャー、そして文字をスキャン」です。これは「(=^・^=)：採点にゃんこ2022（ニャン・ニャニャン）」の試作段階で作ったプログラムです。「(=^・^=)：採点にゃんこ2022（ニャン・ニャニャン）」程の機能は無いので操作は至ってシンプルです。

 

★「画像連続キャプチャー、そして文字をスキャン」

 　機能：  同一書式の複数の画像ファイルからマウスで領域を指定して、文字をテキスト化しエクセルに一括出力する。

 

（●｀ε´●）：たった、これだけの機能か？

【´･ω･`】：そう、それだけ。

 

★使用法（準備）

1.  スキャナーで用紙（ヨコ長）の連番JPGファイルを作る。
2. 同一フォルダ内(ToraScan)に、フォルダ（orignal_files、src_test）とファイル（ToraSCan.exe、ToraOCR.exe）が在るのを確認する。
3. フォルダorignal_filesに連番JPGファイルをコピーする。

　　※連続スキャンできるスキャナーが必要です。

 

★使用法：　準備ができたらお試し用サンプルファイルを使って実際にやってみましょう。

　1.　サンプルファイルが連番になっているので、フォルダorignal_filesにファイルを３枚全てコピーします。（連番の頭の部分は任意）

　2.　ToraScan.exeを実行すとフォームが表示されます。後は「ファイル」メニューを上から順番にやっていきます。

　3.メニュー「ファイル」から「サイズ適正化」をクリック。

　　一番若い番号の連番ファイルを選択して開く。

「OK」をクリック。

    4.　「枠斬り開始」をクリック。マウスでドラッグして領域指定。適切に指定出来たら「ENTER]を押下。

今回の練習では「出席番号」と「氏名」の２か所を領域指定する。

作業後にはファームの右上に、２か所分の座標等のデータが表示される。

5.　「枠斬り終了」をクリック。指定した領域すべてが赤枠で囲まれて表示される。

「OK」をクリック。

5.　「猫を呼ぶ」をクリック。ウィンドウ「猫の手」が表示される。

（1）今回は解答用紙（連番ファイル）の数は３枚なので「用紙枚数」は3に、領域指定は２か所なので「切り取り枠数」は2にする。入力する数字は半角。

（2）「フォルダQ000内のSeito000を選択」をクリックする。ダイアログが表示されるのでSeito000.jpgを選択する。フォルダQ000はTraScan.exeと同じフォルダに作られている。

（3）「(=^・^=)：読み取るにゃ！！」をクリックする。

 

猫が仕事をしてExcelに結果が表示される。

【´･ω･`】：今日はここまでね。今回の処理はたったの３人分だけど何百人分でも手間は同じだ。

（●｀ε´●）：ここで出てきたファイルは下の圧縮ファイルに入っているから良かったら遊んでくれ。

Excel_OCR_01をダウンロード

 

 

 

 

(=^・^=)：採点斬り2022 自動採点機能あり

(=^・^=)：採点にゃんこ2022（ニャン・ニャニャン）

 

★はじめに

        ・島守睦美さんの「採点斬り」、phys-kenさんの「採点斬り2021」の真似をして、同一問題を目視一括採点するソフトを作ってみました。

        ・しかし、単なる人まねでは全く意味が無いので簡易OCR機能を組み込んで自動採点機能も実装しました。

　　・ただ、自動採点するのは、うちの飼い猫のとらなのでとても気まぐれです。ですから見直し・修正が必要ではありますが・・・

        ・また、この手のフリーソフトのお約束事ではありますが、このソフトにより生じた損害について何も保証できません。

        ・ファイルの再配布は不可です。

※自動採点：　丸数字による択一問題。3B以上の鉛筆でマークシートのように塗りつぶす。サンプル解答用紙の問1～問10参照。

★準備

1.　答案をスキャナーで読み込み、連番のJPGファイルを作る。模範解答を連番の先頭にする。欠席者がいた場合は名前を書いた答案をその者の出席番号の位置に挟んでおく。

2.フォルダorignal_filesに解答用紙の連番JPGファイルをコピーする。

3.　Excelで作業していたら、終了する。

4.　付属のSaitenFighterTora.xlsmを「マクロ有効」で開く（他のExcelファイルは開かない）。

       「採点にゃんこ2022」の作業中は唯一のExcelファイルとしてSaitenFighterTora.xlsmに接続するので、他にExcelが実行されているとエラーになる。

 

5.　配点と氏名を入力する。（コピペ可）

6.　マクロ「初期設定終了」を実行して、念のため上書き保存。

 

 

★使用法（枠斬り）

1.　ToraSaiten.exeを実行する。スプラッシュスクリーンの表示後、「エクセルに接続」をクリック。

 

 

2.「サイズを確認」し、状況に応じて「サイズはそのままでリネームだけ」、「サイズ縮小（タテ長）」、「サイズ縮小（タテ長）」のいずれかをクリック。自動採点をする場合は、「サイズはそのままでリネームだけ」を選ぶ。

 

 

 

3.　「サイズはそのままでリネームだけ」を選んだとして話を進める。ダイアログボックスが現れ、基準ファイルを選ぶよう指示されるので模範解答を選択する。これにより、フォルダsrc_testにTEST000からTESTｘｘｘの連番ファイルが作られる。

 

 

 

4.　枠斬り開始→メニュー「枠斬り」から「枠斬り開始」をクリック。

マウスでドラッグして切り取り枠を設定（赤い四角形）。ENTER押下で決定。尚、最初に氏名欄の枠斬りをする。後は必要な分だけ繰り返す。

終わったら、「枠斬り完了」をクリック。フォルダQ000からQｘｘｘが作られて、その中に枠斬りした分のJPGファイルが保存される。

尚、枠斬りのデータはエクセルファイルの「設定」シート（非表示）のAからE列に記録されている。失敗したら失敗したところまでを消去してやり直し　(T_T)。面倒なので枠斬りは慎重にやる・・・とは言っても枠斬りはENTERを押して確定なので、ENTERを押さなければマウスの領域指定は何度失敗しても大丈夫なので、それほど緊張する必要はありません。むしろ、ENTERの押し忘れの方がヤバいです。

私もよく忘れます。(^^ゞ

 

★使用法（採点）

 

1.（自動採点対応設問があれば。無ければ２に）「自動採点」をクリックする。エクセルがいったん、保存終了されて、ウィンドウ「猫の手」が表示される。

「自動採点開始」をクリック。ダイアログボックスが表示されるので再び、SaitenFighterTora.xlsmを選択して開く。SaitenFighterTora.xlsmの「猫の手」（非表示シート）にデータが読み込まれるのでマクロ「猫の手を借りる」を実行して保存。ウィンドウ「猫の手」を閉じる。SaitenFighterTora.xlsmは閉じない。

 

2.　再び、「エクセルに接続」をクリック。「目視採点」をクリック。

すでに自動採点問題はで採点されている。目視採点問題は「1（正答）」になっているので・・・

 

・・・で確認・修正する。

 

・「＞＞」をクリックすると次の問題に進み、「＜＜」をクリックすると前の問題に戻る。

・「判定」欄の「1」は正答、誤答は「0」。適宜、修正する。

・部分点を与えたい時は「判定」を「0」にして「部分点」欄に直接、部分点を入力する。

 

一問全員分の採点をしたら「採点を保存」をクリックする。忘れやすいです。私もしょっちゅう忘れます。　(^^ゞ

作業を全問分、繰り返して「採点終了」をクリックする。

 

3．メニュー「採点」から「採点終了」をクリック。フォルダdest_testに採点済みの画像ファイルが作られる。

 

 

4.メニュー「採点」→「Wordに出力」をクリック。採点済みの答案はWordの機能を使って印刷すればよい。採点結果の数値はSaitenFighterTora.xlsmに出力されている。

 

 

 

★同じ形式の解答用紙を採点するには？

（準備）

1.  スキャナーで解答用紙の連番JPGファイルを作る。その際、模範解答は一番若い番号にする。欠席者の解答用紙のダミーを作り、欠番を作らないようにする。
2. ToraSaiten.exeが実行中ならば終了してフォルダ（orignal_files、src_test、dest_test）内を空にする。フォルダQ000からQｘｘｘを（中身のファイルを含めて）削除する。
3. フォルダorignal_filesに新しい解答用紙の連番JPGファイルをコピーする。
4. SaitenFighterTora.xlsmをマクロ有効で開く。「データ入力欄」の配点はそのまま。生徒氏名を新たに入力（コピペ可）。そしてマクロ「同形式の採点で再利用」を実行。以前の採点結果は消去される。

使用法（枠斬り）

1.　ToraSaiten.exeを実行する。スプラッシュスクリーンの表示後、「エクセルに接続」をクリック。

2.　前のパターンと同じもの（「サイズはそのままでリネームだけ」、「サイズ縮小（タテ長）」、「サイズ縮小（タテ長）の中から）をクリック。

3.　メニュー「枠斬り」から「枠斬り終了」をクリック。（前のデータを利用するので実際に枠斬りをする必要はない）

4.　後は同じ。

 

開発環境

Windows11

Microsoft Visual Studio Community 2022 (64 ビット) --VB.NET・C#

Microsoft Excel 2021 (64 ビット)

Microsoft Word 2021 (64 ビット)　

 

実行環境

Windows 10以上　（Windows 8.1なら動くかも）

Excel2007　,  Word 2007　以上

 

自動採点機能を使わなければWindows Vista　でも大丈夫かも・・・

 

実際には試していません。スイマセン　(^^ゞ

 

採点にゃんこ2022: ToraSaiten001をダウンロード

 

※Excel+OCRで自動採点に興味がある方はこちらもご覧ください。m(__)m

Excel Maniacs: Excel + OCR + 自動採点（選択問題）---　第１回　--- (typepad.jp)

Excel Maniacs: Excel + OCR + 自動採点（選択問題）---　第2回　--- (typepad.jp)

Excel Maniacs: Excel + OCR + 自動採点（選択問題）---　第3回　--- (typepad.jp)

Excel Maniacs: Excel + OCR + 自動採点（選択問題）---　第4回　--- (typepad.jp)

画像連続キャプチャー、そして文字をスキャン

   ★ 機能

        同一書式の複数の画像ファイルから、マウスで領域を指定して、その部分の文字を連続してテキスト化する。

例えば下のような書式の画像ファイル・・・・

 

 

・・・から、氏名、住所などを抜き出し名簿を作る時に使えるかも・・・。

尚、「千葉県立高校学校データ」は公式ホームページなど、一般に向けて公開されているものを参考にして作成しました。

 

 

使用法（準備）

1.  スキャナーで用紙（ヨコ長）の連番JPGファイルを作る。
2. 同一フォルダ内に、フォルダ（orignal_files、src_test）とファイル（ToraSCan.exe、ToraOCR.exe）が在るのを確認する。
3. フォルダorignal_filesに連番JPGファイルをコピーする。

 

 

使用法（枠斬り）－－－ToraSCan.exeを実行する－－－

 

 

1. 　画像ファイルのサイズ最適化→メニュー「ファイル」から「サイズ適正化」をクリック。これにより、フォルダsrc_testにTEST000からTESTｘｘｘの連番ファイルが作られる。
2. 枠斬り開始→メニュー「ファイル」から「枠斬り開始」をクリック。マウスでドラッグして切り取り枠を設定（赤い四角形）。ENTER押下で決定。後は必要な分だけ繰り返す。
3. メニュー「ファイル」から「枠斬り完了」をクリック。フォルダQ000からQｘｘｘが作られて、その中に枠斬りした分のJPGファイルが保存される。
4. メニュー「ファイル」から「猫を呼ぶ」をクリック。下のウインドウが開く。

　　5.「フォルダQ000内のSeito000を選択」をクリックしてフォルダQ000内のSeito000.jpgを選択し、「用紙枚数」と「切り取り枚数」に数字（半角）を入力して「(=^・^=)：読み取るにゃ！！」をクリックする。

　　6.  Excelにデータが出力される。

 

★この手のフリーソフトのお約束事ではありますが、このソフトにより生じた損害について何も保証できません。

        ファイルの再配布は不可です。

 

★開発環境

Windows11

Microsoft Visual Studio Community 2022 (64 ビット) --VB.NET・C#

Microsoft Excel 2021 (64 ビット)

Microsoft Word 2021 (64 ビット)　

 

★動作環境

　実際に確認してはいないのですが、Windows 10ならば、そのまま動くと思います。

　Excel 2013以下では動かないと思います。

 

ToraScanをダウンロード

 

 

 

 

 

Wordマクロ ：下線に記号 改良版

【´･ω･`】：前回、Wordで下線に記号を振るマクロを書いたんだけれど

　　　　　　線種が一つだったんで、ちょっと淋しかった。

　　　　　　・・・ということで同時に処理可能な線種を増やしてみた。

 

★Wordマクロ

マクロ名：下線に記号

機能：下線（下例に示す下線） に丸数字の番号等を振ります。

下線を増やしたり、減らしたりするとそれに合わせて丸数字等を振り直します。

ただし、各下線の数は20本まで。

 

　　使用可能な下線

1. 一重下線（太）
2. 二重下線
3. 波線

★使用法

1．必要な下線を引く。

 

2．マクロを作用させたい部分をマウスで選択してマクロ「下線に記号」を実行する。

 

WdUnderLIne02をダウンロード

 

 

Wordマクロ ：下線に記号

【´･ω･`】:試験問題を作る時に

　　　　　問題文に下線を引いて番号をつけて・・・

　　　　　でも、後から考えたら・・・

　　　　　下線を増やしたい、減らしたい

　　　　　なんていうのは、よくあること・・・

　　　　　でも・・・

　　　　　下線に番号を振り直すのは面倒だし、よく間違える・・・

 

（●｀ε´●）：間違えるのはおまえだけだろ？！

 

 

Wordマクロ

マクロ名：下線に記号

機能：下線（下例に示す下線） に丸数字の番号等を振ります。

下線を増やしたり、減らしたりするとそれに合わせて丸数字等を振り直します。

ただし、下線の数は20本まで。

 

★使用法

マクロを作用させたい部分を選択してマクロ「下線に記号」を実行する。

WdUnderLIne01をダウンロード

 

★同時に処理できる下線の種類を増やした改良版を公開しました。（2022／05／17）

Excel Maniacs: Wordマクロ ：下線に記号　改良版 (typepad.jp)

 

参考：一太郎版　Excel Maniacs: 教員のためのコンピュータ活用術　No.5 　下線に丸数字 (typepad.jp)

さらに戯れてExcel・・・漢字-かな-ローマ字変換マクロ

　【´･ω･`】：調子に乗って漢字からローマ字に変化するマクロを作ってみた。

（●｀ε´●）：どうせ、入力するときにローマ字で入力して、それを漢字に変換しているんだもんな。

　　　　　　誰でも考えつきそうなことだな。

 

1．B列に氏名を漢字入力する。

 

 

　　例えばB2に「羽生　善治」と入力すると、C2に「ハブ　ヨシハル」、D2に「Habu　Yoshiharu」と表示される。

 

（●｀ε´●）：おい、「阿部　光瑠（こうる）」とか、キラキラネームはどうするんだ？

 

【´･ω･`】：変換候補に「光瑠（こうる）」が出てこないね。

　　　　　　そうゆう時は「光（ヒカリ）」と「瑠（ル）」を別々に入力して・・・

 

（●｀ε´●）：・・・

 

（●｀ε´●）：「アベ　コウル(Kouru)」じゃなくて「アベ　ヒカリル(Hikariru)」になってるじゃないか？！

 

 

【´･ω･`】：　そういう風に入力したのだから仕方がない。

　　　　　　　「ヒカリル」を「コウル」に直すと・・・

 

 

【´･ω･`】：すると「Hikariru」が「Kouru」になる。

　　　　　　名前の読みが変換候補に出てこないときは仕方がない。

　　　　　　それでも「漢字-ローマ字変換マクロ」を使えば入学時に氏名（漢字・ふりがな）データを作るときに、

　　　　　　同じ手間でローマ字氏名データもつくれるはずだ。

 

Kanatoroman_ver3.xlsをダウンロード

戯れてExcel・・・かな-ローマ字変換マクロ

 

 

【´･ω･`】：　暇だったので「かな-ローマ字変換マクロ改訂版」で作ったマクロを弄ってバリエーションを増やしてみた。

（●｀ε´●）：ほんとうにヒマなやつだな。

 

1．かなローマ字変換_語頭大文字

　平仮名・カタカナをローマ字にして語頭を大文字にする。「かな-ローマ字変換マクロ改訂版」と同じ。　

 

 

2．かなローマ字変換_語頭大文字_全角

　平仮名・カタカナを全角ローマ字にして語頭を大文字にする。

 

 

3．かなローマ字変換_全部大文字

　平仮名・カタカナをローマ字（大文字）にする。

 

 

4．かなローマ字変換_全部大文字_全角

平仮名・カタカナをローマ字（全角大文字）にする。

 

 

★使用法

1．氏名（全角ひらがな・全角カタカナ）を選択する。

2．マクロを実行する。

3．氏名（全角ひらがな・全角カタカナ）の右側にローマ字氏名が表示される。

（注）　氏名（全角ひらがな・全角カタカナ）の右側はローマ字氏名で上書きされる。

 

Kanatoroman_ver2.xlsをダウンロード

Excel ドット絵コンバーター

明けましておめでとうございます。

画像ファイルを読み込んでExcel(エクセル)のセルの背景色を使ってドット絵を描くプログラムを作りました。

対象画像ファイルはJpeg, BMP, PNG, GIFです。

 

★使用法

0.　何かエクセルで作業していたらエクセルを終了

1.　ドット絵コンバーター（DotConverter.exe）を起動

2.「作成開始」ボタンをクリック

3.　画像ファイルを選択して「開く」をクリック。

4.Excelが起動してドット絵作成。

  サンプル：Kohanをダウンロード

DotConverter.exeをダウンロード

 

★関連リンク　Excel Maniacs: 動くドット絵

エクセルのドット絵です。

エクセルのセルに色を付けてドット絵を作ってみました。

うちの飼い猫の「トラ」です。

Toraをダウンロード

Excel, Wordによる所見文自動点検(2)

(●`ε´●)：さて、いよいよ公開だな。

【´･ω･`】：使い方は以下の通りだよ。

１．Proofreading.xls, Proofreading.docを立ち上げる。その際、Excel、Wordともに

　VBAを使っているので両方ともマクロを有効にする。（エクセル・ワードともに他の

ファイルは開かない）

２．エクセルファイルのワークシートMainをアクティブにして生徒氏名と所見を入力する。

　　（もちろん、コピー＆ペーストで構わない）

３．Excelファイルのマクロ「開始」を実行する。

　　すると誤りの候補が下のような一覧表にまとめられる。

 

　　　　　　　　　　　　　　　　　　　　　　　　　以上

 (●`ε´●)：Wordとエクセルを使っているというのはわかったが、いったい何をやっているんだ。

【´･ω･`】：Excel　VBAでワードにデータを送り、ワードの校正機能を使う。そしてその結果を

　　　　　　Word VBAでExcelに書き戻しているんだ。一口で言うならExcelとWordの連携なのだが

　　　　　　かなり、濃い味に仕上がっていると思う。

(●`ε´●)：ワードの校正機能を使っていると言うことは、ワードの設定を変えれば校正する項目を

　　　　　　変更できると言うことだな。

【´･ω･`】：その通り。ただワードの校正機能には甘いところがあるので、それがそのまま

　　　　　　この自動点検システムの弱点にもなっている。ワードの校正機能については

　　　　　　このサイトを参照してくれ。

(●`ε´●)：ワードではなくて一太郎の校正機能を利用すればよかったんじゃないか？

【´･ω･`】：それも当然、考えたんだがJustsystemは一太郎マクロを放置しているんだ。

　　　　　　だから残念だけど一太郎マクロでは校正機能を動かすことができないんだ・・・

 

*********************************************************************

【´･ω･`】：指導要録でも通知票でもあゆみでも所見ならば何でも使えるから

　　　　　　試してみてくれ。よろぴく！！

Proofreadingをダウンロード(Excel)

Proofreadingをダウンロード(Word)

※自動点検するにはExcelファイルとWordファイルの両方が必要です。

 

 

PCによる所見文自動点検

(●`ε´●)：おい、くまぷー！おまえは調査書の自動点検なんて言っていたが

　　　　　　もっと踏み込んだこと（汎用的なこと）はできないのか？！

【´･ω･`】：と言うと？

(●`ε´●)：例えば、下のような所見があったとして・・・

No	生徒	所見１年	所見２年	所見３年
1	徳川	3歳の頃、水野忠政没後　の水野氏当主・水野信元（於大の兄）が尾張国の織田氏と同盟したため、織田氏と敵対る今川氏の庇護を受けていた広忠は於大を離縁した。そのため竹千代は幼くして母と生き別れになった。	6歳の頃、広忠は織田氏に対抗するため駿河国の今川氏に従属し、竹千代は今川氏の人質として駿府へ送られることとなった。しかし、駿府への護送の途中に立ち寄った田原城で義母の父・戸田康光の裏切りにより、尾張国の織田氏へ遅られた。しかし広忠は今川氏への従属を貫いたため、そのまま人質として尾張国に留め置かれた。この時に織田信長と知り合ったと言われるが、どの程度の仲だったのかは不明。	2年後に広忠は家臣の謀反によて殺害された。今川義元は織田信秀の庶長子・織田信広（前年の天文18年（1549年）、安祥城を太原雪斎に攻められ生け捕りにされている）との人質交換によって竹千代を取り戻す。しかし竹千代は駿府（『東照宮御実紀』では少将宮町、武徳編年集成』では宮カ崎とされている）に写され、岡崎城は今川氏から派遣された城代(朝比奈泰能や山田景隆など)により支配された。
2	織田	織田やかで落ち着いた言動は、多くの生徒から信頼されている。サッカー部に所属し熱心に取り組んだ。     理系の進学を希望している。     『道徳』を学ぶ時間の学習に取り組んだ。	協調性があり、社交的で友人を大切にするやさしい人柄である。生活態度は極めて良好で、責任感が強く、クラスでの役割も真面目に最後までやり遂げる。。サッカー部に所属し熱心に活動した。	協調性があり、常に相手の気持ち、立場を思いやった行動ができる。時・場所・事柄に応じて、自ら判断し対応していく主体的な能力を持っている。吹奏楽部に所属し、部長として熱心に活動した。

 

(●`ε´●)：ミスがあったら生徒別・項目別に抜き出してくれるプログラムがほしい！！

【´･ω･`】：下のような感じか？

NO	生徒	項目	問題箇所	疑問点
1	徳川	所見１	3歳の頃、水野忠政没後　の水野氏当主・水野信元（於大の兄）が尾張国の織田氏と同盟したため、織田氏と敵対る今川氏の庇護を受けていた広忠は於大を離縁した。	入力ミス？
1	徳川	所見２	しかし、駿府への護送の途中に立ち寄った田原城で義母の父・戸田康光の裏切りにより、尾張国の織田氏へ遅られた。	入力ミス？
1	徳川	所見３	2年後に広忠は家臣の謀反によて殺害された。	入力ミス？
1	徳川	所見３	しかし竹千代は駿府（『東照宮御実紀』では少将宮町、武徳編年集成』では宮カ崎とされている）に写され、岡崎城は今川氏から派遣された城代(朝比奈泰能や山田景隆など)により支配された。	入力ミス？(多め設定時)
2	織田	所見１	織田やかで落ち着いた言動は、多くの生徒から信頼されている。	入力ミス？
2	織田	所見２	生活態度は極めて良好で、責任感が強く、クラスでの役割も真面目に最後までやり遂げる。。	句読点の連続。

(●`ε´●)：そうだ。こんな感じだ。こんなふうに１クラス分くらいまとめて点検できれば

　　　　　いうことない。

【´･ω･`】：１クラス分どころか、何百人分でも一瞬だよ。

(●`ε´●)：大勢の教員が束になって人海戦術でやっていたのが夢のようだな。

【´･ω･`】：かなり、楽になると思うよ。

(●`ε´●)：もうできているのか？

【´･ω･`】：うん。

(●`ε´●)：早く公開しろよ。

【´･ω･`】：もうちょっと待ってね。同じようなことをやってみようかという

　　　　　　物好きが現れるかもしれないから・・・

※くまぷー版は間違いのある文を抜き出すだけで上の表にあるように間違い箇所の

　　文字の色を変えることはできません。

エクセルで４択問題

EXCELで４択問題テンプレートを作りました。マクロは使わず、そのかわりに戯れで

循環参照を使っています。遊ぶときには他のブックを開かないで下さい。

 

★使い方

０.　エクセルで何か作業をしていたら、いったんエクセルを終了して本ファイルを開く。

１．チェックボックスをクリックしてマークを外すと初期状態になります。

    そしてそれからマークを入れるとゲームのスタートです。

 

２．ラジオボタンをクリックすると答えの正誤が判定され、それに

　　応じて正答率が変化します。尚、正当だと思われるラジオボタンが

　　既に選択されている場合はクリックする代わりにShiftを押下しながら

　　F9キーを押します。

 

備考：データはDATAシートに入っています。シートタブが非表示になっているだけなので

　　　　それを再表示させれば自由に問題を入れ替えることが出来ます。

 

参考ファイル： HistoryQuizをダウンロード

追加：ExcelでTOEIC４択

Excel Maniacs: Excel で 4択 第１回　TOEIC（1-50） (typepad.jp)

Excel Maniacs: Excel で 4択 第2回　TOEIC（51-100） (typepad.jp)

Excel Maniacs: Excel で 4択 第3回　TOEIC（101-150） (typepad.jp)

Excel Maniacs: Excel で 四択 第4回　TOEIC（151-200） (typepad.jp)

Excel Maniacs: Excel で 四択 第5回　TOEIC（201-250） (typepad.jp)

Excel Maniacs: Excel で 4択 第6回　TOEIC（251-300） (typepad.jp)

Excel Maniacs: Excel で 4択 第7回　TOEIC（301-350） (typepad.jp)

Excel Maniacs: Excel で 4択 第8回　TOEIC（351-400） (typepad.jp)

Excel Maniacs: Excel で 4択 第9回　TOEIC（401-450） (typepad.jp)

Excel Maniacs: Excel で 4択 第10回　TOEIC（451-667） (typepad.jp)

エクセルで百人一首

ある高校の先生から下の内容のメールを頂きました。

----------------------------------------------------------------------------------

  アットランダムに上の句が自動的に表示されて

 それに対応する下の句がバラバラに下に 出るようにしたいのです。

できれば○×も出れば最高なんですが…。

なんとなく乱数とかまでは出るように考えたのですが、

それをどう表示させ、下の句をばらすかが 思い付きません。

１００首のうち５０首を 出したいのですが…。

 九九のところは参考にさせていただいたのですが  

やはりよくわかりません。

いちおう作りかけというか全然ダメな

 ファイルを添付しておきましたので  

ご教授願えればと思います。

よろしくお願いします。  

--------------------------------------------------------------------------------------------------------

 【´･ω･`】：ということで作ってみたよ。一応、言われたことはみんなもりこんだつもりだけど…。

 

★使い方  

１．F9を押すと新しい問題が出題される。  

２．上の句にあう下の句の番号を入力する。

 ３．Shiftを押しながらF9を押すと自動的に採点される。

 

ダウンロードはこちら(50題バージョン） HyakuninIssyu_50をダウンロード

ダウンロードはこちら（10題バージョン） HyakuninIssyu_10をダウンロード

 

(●`ε´●):おいらは高校一年の夏ぐらいまでに自発的に百首全部暗記したよ。

                あれを暗記しておけば、古文に対する勘が働くようになっていいぜ。

 【´･ω･`】：古文と言えば小西甚一先生の著書がおいらはすきだったな。

(●`ε´●)：根性のあるやつは「古文研究法」、文法が嫌いなやつは

                「国文法ちかみち」なんてのがいいな。

エクセルで九九の練習

　Excelの標準関数だけで九九の練習シートを作りました。

目玉は解答所要時間を計測表示することが出来ます。

イメージは下のような感じです。

参考ファイルを用意しました。ダウンロードしていじってみて下さい。

ランダムにNの段の問題をだすこともできますし（但し、Nは１から９までの正の整数）

Nの値を指定することもできます。

 

★使い方

１．まずはランダムの場合。あらかじめ下図のように
      セルG10からG19までを選択しておきます。

 

２．「F9」キーを押すと赤枠の部分がランダムに変化
　　します。

 

３．答を入力します。

 

４．「Shift」キーを押しながら「F9」キーを押すと解答の
　　正誤判定が自動的になされ、得点が表示されて
     さらに解答に要した時間が表示されます。

      「Delete」キーを押して「F9」キーを押すと解答や
　　　○、×、「かかった時間」がクリアーされて２の
　　　　状態に戻ります。

５．Nを指定する場合

　セルF３を クリックするとドロップダウンリストが現れます。
　そこでNを指定して「F9」キーを押すと指定した
　Nの段の問題が表示されます。ドロップダウンリストで数字を選択せずに「***」を選択すると
　問題がランダムに選ばれます。

   　後の手順はランダムの場合と同じです。

 

参考ファイル： Kukuをダウンロード

 

エクセルで動詞の活用

　今回はEXCELを使って教材を作ってみました。VBAを一切使わずにエクセル標準
のワークシート関数だけを使っています。

具体的には英語の不規則動詞の変化を学習させるための教材「動詞変化表」です。

★「動詞変化表」仕様

                １．ランダムに問題が出される。

                ２．自動的に正誤判定がなされる。

　実装したのはたったの２点です。VBAを使えば全く簡単に実現できることばかりなのですが

VBAを使わないとちょっとした工夫が必要でした。

イメージは下図のようなカンジです。

                １．ランダムに動詞が選ばれる。
                ２．１で選ばれた動詞の原形、過去形、過去分詞のどれかが、さらにランダムに選ばれる。
                ３．生徒は解答欄に解答する。
                ４．自動的に正誤判定する。

 

　ランダムに出題するのでRAND関数の使い方がポイントになります。

簡単なようですがRAND関数はクセがあるのでけっこう面白いかも？

 

★使い方

１．B6,C6,D6の3セルをまとめて選択する。

２．５行目に表示されている動詞の原形を入力してEnterキーを押下。

３．５行目に表示されている動詞の過去形を入力してEnterキーを押下。

４．５行目に表示されている動詞の過去分詞形を入力してEnterキーを押下。

５．Shiftキーを押しながらF9キーを押下。解答の正誤が自動判定される。

６．Deleteキーを押下。解答が削除される。

７．F9キーを押下。新しい問題が出される。２に戻る（あとは好きなだけくり返し）

Conjugationをダウンロード

英文整序問題作成VBS マイクロソフト・ワード対応

【´･ω･`】：学年主任のリクエストに応えて英文整序問題作成VBS（マイクロソフト・ワード対応版）を

　　　　　　作ったよ。

(●`ε´●)：前のKingSoft_Writer版をほんのちょっといじっただけだろ？！

【´･ω･`】：うん、ほとんど同じ。全然、手間はかかっていない。

　　　　　　だから、使い方も同じだ。例えば・・・

 

　　　　　　Live as if you were to die tomorrow.

 

　　　　　　・・・という英文の

 

　　　　　　Live as if you were to die tomorrow.

 

　　　　　　･･･出題部分をマウスで選択し（赤字の部分とすると）・・・

　　　　　　VBS（Word_Order15_05_03）ファイルをダブルクリックすると選択部分が

　　　　　　ランダムにシャッフルされて下のようになる。

                

                Live   <  1.  to / 2.  if / 3.  you / 4.  were / 5. as  >  die tomorrow.

 

  Word_Order15_05_03をダウンロード

-----------------------------------------------------------------------------------------------------------------

＊単語に番号が付かないものを追加します。

　下のようになります。　（2015/5/11）

Live <if/ die/ to/ as/ were/ you> tomorrow.

Word_Order15_05_11をダウンロード

 

トーナメント表自動作成 Knockout Tournament

(●`ε´●)：明日、バドミントンの地区顧問会議なんだけど個人戦のトーナメント表を

　　　　　　作るのがかったるいよ。

【´･ω･`】：いつも時間がかかるからね。

(●`ε´●)：何とかならないのか？

【´･ω･`】：わかった。こんなのどうだい？

'---------------------------------------------------------------------------------------------

'トーナメント表自動作成システム（Knockout Tournament）

'仕様　

'　　　　参加校：　９校まで

'           参加数：　２４から３６まで

'            シード：　８シードまで

'------------------------------------------------------------------------

★使用法

 １．Knockout Tournament.xlsm　をダブルクリック。マクロを有効ににすると

　　下のようなメニューが現れる。

 

２．「チーム名を登録」をクリックする。下の表が現れるので、ここで団体（学校）名を入力する。

入力が終わったら、「次へ（メニュー表示）」をクリックする。

　メニューが表示されるので「選手名登録」をクリック。

 ３．下表が現れる。ここで選手名を入力する。

入力が終わったら、「次へ（メニュー表示）」をクリックする。ここまでで初期設定終了。

 

４．必要があれば「シード指定」をクリックしてシードを設定する。

　　シードはドロップダウンリストから選択する

 

作業が終わったら、、「次へ（メニュー表示）」をクリックする。

５．「トーナメント表作成」をクリック。

　　表が作成されたら「トーナメント表印刷」をクリック。

 

　備考：　表はA4サイズで印刷される。

　　　　：　Ctrlキーとmキーを同時に押せばメニューが表示される。

           :   抽選まで自動。当然のことながら同じ団体（学校）の者が重なって４分の１のヤマに入らない。

 

(●`ε´●)：バドミントンに限らず、テニスでも卓球でも小規模な大会ならトーナメント表が

　　　　　　簡単に作れるな！

Knockout Tournamentをダウンロード

ワード マクロ（Word VBA)でゲームを作成・・・(その３）

★遊び方　バラバラになったパネルを下図のように整列させて下さい。

１．マクロを有効にして下さい。モニター中央にゲーム画面が現れます

２．ブランクパネルに隣り合ったパネルをマウスでクリックすると２枚のパネルが入れ替わります。

15puzzleをダウンロード

ワード マクロ（Word VBA)でゲームを作成・・・(その２）

近頃だいぶ記憶力が落ちてきたので

ぼけ防止予防・記憶力強化のために

Wordでゲームを作りました。(^^ゞ

Poker Complex　に続く第2弾です。

今回のものは基本的にはトランプの神経衰弱（Concentration）です。

 

★遊び方　同種類の牌をマウスで選択して１０８枚の牌をなるべく少ない手数で表にします。

１．マクロを有効にして下さい。モニター中央にゲーム画面、モニター左上にメッセージボックスが現れます

２．最初に牌がおもてになっているので、できるだけたくさんの牌の配置を記憶します。

３．準備が出来たら、モニター左上にメッセージボックスのSTARTをクリックしてゲームを始めます。

４．マウスでクリックすると牌が表になります。同種の牌を選択するとそれらの牌は表のままになります。

　　間違えると選択した２牌は再び裏向きになります。全部の牌を開いて得点トップテンに入ると

　　その得点を記録することが出来ます。

Word_Game_Concentrationをダウンロード

教員のためのコンピュータ活用術 No.7

(●`ε´●)：新しいPCを買ったがMSのOfficeは入ってないから代わりに手持ちのkingsoftの

　　　　officeを入れた。近頃はVBA対応版も売っているらしいがおいらのは非対応版だ。

　　　　最近はExcelのマクロを覚えたから、非対応版ではちょっと不便だな。

【´･ω･`】：大丈夫。VBSを使うことによってVBA非対応版でも似たようなことが出来る。

　　　　　　教員のやるようなことなら、多分大丈夫だろう。KingSoftのワープロソフトのWriterを

　　　　　　題材に使ってみよう。

(●`ε´●)：何をやるんだ？

【´･ω･`】：英文の整序問題を作成する。

(●`ε´●)：ありきたりだな。

【´･ω･`】：まあ、VBA非対応版のWriterでこんなことをやっている奴はたぶん

　　　　　　いないと思うから勘弁してくれ。

 

☆使用法

１．問題にしたい部分を選択します。

２．KingSoft_Writer.vbsをダブルクリックします。

以上です。

やっていることは大したことではないのですが

KingSoftのWriterVBA非対応版でも動くことがウリです。(^^ゞ

Kingsoft_writerをダウンロード(vbs)

三四郎マクロでゲーム作成・・・１５パズル

三四郎そのものが消えていくようです。

当然、三四郎マクロも消えていきます。

一太郎2013玄の初期設定では「マクロ」はメニューにありません・・・

 そう言えば、昔、一太郎マクロで１５パズル、作ったよな～

消えゆくSuper Play Lite（Justsystemのマクロ）が不憫でなりません。

 

 

あ、Excelだって「開発」タブは初期状態では隠れているってか！！

**************************************************************************************

 

遊び方：「開始」をクリックする。
 　　　　　ESCを押すとゲーム中止。  
   
白いパネルの隣の数字をパネルをクリックすると   
２つのパネルが入れ替わります。   

上のようになるように数字パネルを並べて下さい。

15PUZZLE(Slide)をダウンロード

 

 

 

 

Noughts and Crosses

Tic Tac Toe とも言います。単なる３目並べです。

本当は学期末で忙しいのですが、やるべきことをやらずに

戯れに作りました。一太郎マクロで作ったと言うだけがウリです。

特に芸はありません。(^^ゞ

Noughts_and_Crossesをダウンロード

あ、一太郎のバージョンは２０１３　玄　です。　(^^ゞ

教員のためのコンピュータ活用術 No.5 下線に丸数字

【´･ω･`】:問題文に下線を引いて番号をつけて・・・

　　　　　　でも、後から考えたら、下線を増やしたい、減らしたいなんていうのは

　　　　　　よくあること・・・

　　　　　　でも、下線に番号を振り直すのは面倒だし、よく間違える・・・

（●｀ε´●）：間違えるのはおまえだけだろ？！

【´･ω･`】:・・・ということで「下線に丸数字」というのをSuper Play Lite（一太郎マクロ）で

　　　　　　作ってみた・・・

（●｀ε´●）：なんで今更、一太郎マクロなんだ？

【´･ω･`】:「一太郎マクロ」という検索キーワードで覗きに来てくれる人もいるみたいだし・・・

　　　　　　戯れに作ってみたというところかな？

*************************************************************************************************

マクロ名：下線に番号

機能：下線（華麗に示す下線） に丸数字の番号を振ります。下線を増やしたり、減らしたりするとそれに合わせて丸数字を振り直します。ただし、下線の数は20本まで。

下線に番号をダウンロード 

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!選択範囲の下線（リスト２番目の実線）に丸数字の番号を
!!ふるマクロ。下線の数は２０本まで。
!!2012/08/27　くまぷー
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

declare variable $Bango(1 to 20)
ErrorBreakMode(0,0,0)

EndOfRange()
%Pe=getPage()
%Re=getRow()

WarningMode(0)

setBango()

For %i = 1 To 20
 文字全置換(.検索文字列=$Bango(%i),.置換文字列="",.あいまい検索=0)
Next

%Cnt=1

SearchStyle(1,2,3) 
Do While SearchStyleResult()
   CancelAllRange()
   SelectStyle(1,2)
   ContinueSearch
   If %i=%Cnt+1 or %Pe < getPage() Or %Re < GetRow() then
        WarningMode(1)
    　　Exit Do
    　　Stop　
   End if
   %Cnt=%Cnt+1
Loop
JumpSearchStyle(1,2,3) 
%i=1
Do While SearchStyleResult()

    CancelAllRange()
    挿入($Bango(%i))
    SelectStyle(1, 2)
   
    %i=%i+1
   
    If %i=%Cnt+1 then
     WarningMode(1)
     Stop
    End if
   ContinueSearch
Loop
WarningMode(１)

Sub setBango()
   $Bango(1) = "①"
   $Bango(2) = "②"
   $Bango(3) = "③"
   $Bango(4) = "④"
   $Bango(5) = "⑤"
   $Bango(6) = "⑥"
   $Bango(7) = "⑦"
   $Bango(8) = "⑧"
   $Bango(9) = "⑨"
   $Bango(10) = "⑩"
   $Bango(11) = "⑪"
   $Bango(12) = "⑫"
   $Bango(13) = "⑬"
   $Bango(14) = "⑭"
   $Bango(15) = "⑮"
   $Bango(16) = "⑯"
   $Bango(17) = "⑰"
   $Bango(18) = "⑱"
   $Bango(19) = "⑲"
   $Bango(20) = "⑳"
End Sub

 

 

教員のためのコンピュータ活用術 No.2 セル結合解除

（●｀ε´●）：な、なんだと～！！セルを結合しているとソートできんから

もとにもどせだと～？！

【´･ω･`】:たんにセルを解除するだけだと結合セルの左上のセルにしか

テキストが残らないんで、それじゃ上手くソートできないから

空白になったセルにはテキストを入れておいて欲しいんだ。

（●｀ε´●）：ふ、ふざけんじゃね～よ！！

 

 

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
免責　このスクリプトの使用によっていかなる損害が生じようと、
一切責任は負いません。あらかじめご承知の上ご使用下さい。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

名称：セル結合解除

機能：セルの結合を解除して空白になったセルには、結合セルに表示されていたテキストを　　入力しておく。

簡単に言えばN0.1で紹介した「同一テキストセル結合」の逆戻しをするスクリプト。

使用法：範囲を選択して、ファイル「セル結合解除・vbs」をダブルクリックする。

 

【´･ω･`】:あ、言い忘れたけどNo.1もNo.2も対象となっているソフトはExcelだよ。

三四郎でやってもだめだからね。

VBS_No_02（セル結合解除）をダウンロード

 

**********************************************************

[道場訓]
(1)面倒くさいと思ったらなるべくやらずに楽をする。
(2)汗を出すより知恵を出しできることなら楽をする。
(3)一々やらずにすむことは絶対やらずに楽をする。

************************************************************

 

 

教員のためのコンピュータ活用術 No.1 同一テキストセル結合

[道場訓]
(1)面倒くさいと思ったらなるべくやらずに楽をする。
(2)汗を出すより知恵を出しできることなら楽をする。
(3)一々やらずにすむことは絶対やらずに楽をする。

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
免責　このスクリプトの使用によっていかなる損害が生じようと、
一切責任は負いません。あらかじめご承知の上ご使用下さい。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

名称：同一テキストセル結合

機能：選択範囲内（行）で隣接しているセルのテキストが同じであれば結合する。

使用法：

１．セルを選択する。

２．ファイル「セル結合.VBS」をダブルクリックする。するとこんな感じになります。

VBS_No01（セル結合.VBS）をダウンロード

（●｀ε´●）：こんなこと一々手作業でなんかやってらんねーよ！！

 

Word VBA.for teachers

I wrote two programs in Word VBA.for teachers. One is famous “Word Find”. I know we can find this sort of program anywhere on the net but I made it because I wanted to. (^^ゞ The other is “What’s the correct word order?” program, with which teachers can make a word-order-quiz easily. My colleagues are very happy with these. So I’d like to give you a rough explanation about these.

Open the document.(Word_Find.doc, What’s_the_correct_word_order.doc)
Both documents contain macros. So when you open the documents,you get a warning to ask you if you disable the macros or not . Please enable the macros to run them properly.
-----------------------------------------------------------------------------------------------------------------
★Word Find
It is a kind of puzzle game. The objective of the game is to find words which are hidden within an array of letters. As you know, the word might be located in any direction (left to right, right to left, top to bottom, bottom to top, top left to bottom right, bottom right to top left, bottom left to top right and top right to bottom left). Students can enjoy solving this puzzle because it is fun, and they have to pay much attention to the spelling of the words. So it has great benefits in educational point of view.
And it is also good just for killing time. (^O^)

*

*

*

*

*

*

★How to Use.
1. You can type the words up to 20 in the “Word List”. But it takes a long time to make a worksheet with 20 words, so I strongly recommend for you to make a list of words 18 or under.
2. The length of a word must be 12 or under.
3. If you want to make a puzzle more difficult, please check the check box ,and blanks will be filled with alphabets at random..
4. Click the “Start” button to run the macro. That’s all you have to do.

★DOWNLOAD WORD_FIND.doc
----------------------------------------------------------------------------------------------------------------
★What’s the correct word order?
It will help you a lot to make a word-order test. You can save your time making a test by using this program.
Each test has up to ten questions. First, you type 10 sentences or under in the list and next select text that you want to shuffle. Then you press Shift + Ctrl + q at a time, and the words you selected will be shuffled , separated with a slash automatically and copied to the examination paper for the students. If you don’t like the result that was made by the computer, you can remake the question by just repeating the steps you did, that is, just to select the text and press Shift + Ctrl + q. In order to complete the examination paper, you repeat the steps as necessary, at the most ten times. You might feel Ten Times is too much, but computer can never know which words to select. That is up to you. (^^ゞ

*

*

*

*

*

*

★Download whats_the_correct_word_order.doc

ワード マクロ（Word VBA)でゲームを作成・・・

　ワード マクロ（Word VBA)でゲームを作成しました。

*

*

*

*

*

*

*

Excelでゲームを作るということはかなり一般的になってきましたので

敢えてワードを使ってみました。(^^ゞ

タイトル：Poker Complex

遊び方：「START」をクリックしてカードをシャッフル。５×５のパネルを

　　　　　クリックするとそこに「Next_Card」に表示されているカードが

　　　　　配置されます。

　　　　　　これを２５回繰り返して縦５つ、横５つ、対角線２つで合計１２の

　　　　　手を作り、なるべく高い点が得られるようにします。

得　点：ワンペア　　　　　　　　　　　　　　　　　　１０点

　　　　　ツーペア　　　　　　　　　　　　　　　　　　２０点

　　　　　スリーカード　　　　　　　　　　　　　　　　３０点

　　　　　フラッシュ　　　　　　 　　　　　　　　　　　４０点

　　　　　ストレート　　　　　　 　　　　　　　　　　　４５点

　　　　　フルハウス　　　　　　　　　　　　　　　　 ５０点

　　　　　フォーカード　　　　　　　　　　　　　　　　６０点

　　　　　ストレートフラッシュ　　　　　　             ６５点

　　　　　ロイヤルストレート                            ７０点

　　　　　ロイヤルストレートフラッシュ　　　　　　１００点

Poker_Complex.docをダウンロード

エクセルでゲームを･･･

　表計算ソフトExcelでゲームを作りました。

今回はマクロを使っていますので

かなりラクに作ることができました。(^^ゞ

＊

＊

＊

＊

＊

＊

＊

＊

遊び方と紹介

http://www.geocities.jp/kuma_pooh1958/poker_complex.htm

POKER_COMPLEX.zipをダウンロード

ノンマクロPC対戦型ゲーム「Excel PokerⅡ」

*

*

*

*

*

*

　エクセルで作ったコンピュータ対戦型ポーカーゲームです。

売りはVBAを使っていないということです。COMの強さを

３つのレベルから選べます。

EXCEL_POKER06.lzhをダウンロード

ノンマクロPC対戦型ゲーム「B.J.Excel」

*

*

*

*

*

*

*

Excelで作ったノンマクロPC対戦型のブラックジャックです。

売りはなんと言ってもVBAを使わずにPC対戦型の

ゲームに仕上げたところです。(^^ゞ

EXCEL_BJ01.zipをダウンロード

ポーカースロット

*

*

*

*

*

*

*

Excelで作りました。売りはVBAを使っていないところです。

ノンマクロだけど画面が動きます。

Excel２００７では動きがよくないようですけど

２００３以前ならばけっこう、きれいに動くようです。

循環参照を使っているので

他のExcelブックを開かずに遊んで下さい(^^ゞ

EXCEL_POKER03.xlsをダウンロード

※循環参照とは・・・

http://www.geocities.jp/kuma_pooh1958/jyunkan/REF_INDEX.htm

整序問題作成マクロ

前回の「括弧穴埋め問題作成マクロ」に続き、今回は

「整序問題作成マクロ」です。(^^ゞ

使い方は下を参考にしてくらはい。

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
免責　このマクロの使用によっていかなる損害が生じようと、
　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

マクロ名　「整序問題作成」

機能　　英文など半角スペースで区切られた語句を選択すると、その語句の頭に記号を付けてをランダムに並べ替える。

実行法　
１．マクロを作用させたい範囲を選択
２． 「ツール」「マクロ」「マクロ」「Shuffle_Write」を実行

例）　下のような英文を用意する。

＊

＊

１．範囲選択をする。

＊

＊

＊

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

＊

＊

＊

http://www.geocities.jp/kuma_pooh1958/word004.htm

あ、言い忘れました。Word VBAです。(^^ゞ

括弧穴埋め問題作成システム

ワードマクロで作ってみました。

ワードマクロのサンプルはあまり公開されていない（と思う）ので

晒します。

　mougのワードマクロ掲示板で活躍されている方も

このブログの常連さんですのでちょっと怖いのですが・・・

・・・ところでこの「括弧穴埋め問題作成システム」ですが

某県の某情報系専門学校でサンプルとして使われている

そうです。たれ込みがありますた。一言、断ってくれれば

いいのですが・・・、無断です・・・。(｀ヘ´) プンプン。

括弧穴埋め問題作成システム…の巻

★機能　　問題文の中（）で囲まれた語句を順に（　丸数字など　）に置換し、解答をランダムに並べ、全角カタカナなどをつけて文末に挿入する。 ★使い方 　　１．括弧穴埋め問題作成.docを開く。 　　２．対象となる文を用意し、抜き出したい語句を全角（）等で囲む。そしてマクロを作用させたい部分の文章を選択しておく。使える括弧は下記の4種類。 　　　　　1．（　　　　）全角 　　　　　2．＜　　　　＞全角 　　　　　３．｛　　　　　｝全角 　　　　　４．「　　　　　」 （例）

３．「Ctrl」、「Shift」、「Alt」キーを押しながら「m」キーを押し、メニューを呼び出す。

４．実行ボタンをクリック。例文が下のようになる。

ここまでで終わりにしてもいいが、さらにメニューを呼び出し、下のように＜　＞を設定し…

再び、メニューを呼び出し実行すると下のようになる。

メモ 　　１）選択肢は選択範囲の最後の段落記号（改行マーク）の前に挿入される。 　　２）「残業」「サービス残業」など共通の語句を含むことはできない。 　　３）下図のようにツールバーにマクロを登録したりすると便利である。尚、括弧穴埋め問題作成Ⅱの「Ctrl」、[Alt」、「Shift」+「m」はMacro1を呼び出している。

★括弧穴埋め問題作成ダウンロード： Kakko_anaume2をダウンロード 　お使いの方は掲示板にでもご感想・ご意見でも書き込んで頂ければうれしいです。

 

 

一太郎でゲームを・・・

作ってみました。題材は１５パズルです。

ま、15パズルなんてどこにでもあるようなもんで

ぜんぜん、珍しいものではないのですが

一太郎マクロで作ったということで

ご勘弁を・・・(^^ゞ

*

*

*

*

*

*

*

*

TaroPuzzle.zipをダウンロード

★一太郎マクロ関連

一太郎マクロ初心者奮戦記

一太郎マクロ初心者奮戦記Ⅱ