Excel Maniacs

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

【´･ω･`】：「さらに戯れてExcel・・・漢字-ローマ字変換マクロ」に下のようなコメントがあった。

　　　　　別に難しいことではないので、すぐにコメント欄にやり方を答えてやったのだが・・・　

 

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

くまぷー先生　調子に乗って、リクエスト・・・

だめならスルーしてください。

名字を大文字表記にするマクロを・・・お戯れに・・・作っていただくことはできませんか。
。
今日、スピコンでした。出場者一覧がそのような表記になっていて、とても見やすかったのです。

　　HABU　Yoshiharu

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

 

（●｀ε´●）：「マクロを・・・」って言ってるぞ！！お前の回答は関数だろ？！

　　　　　　本当に注意力がないな！！

 

【´･ω･`】：じゃ、マクロでも全然難しくないから、下にマクロ版を晒しておくよ。

 

 

Kanatoroman_ver4.xlsをダウンロード

使用法はこちらを参照

 

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

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

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

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

 

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

 

 

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

 

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

 

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

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

 

（●｀ε´●）：・・・

 

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

 

 

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

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

 

 

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

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

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

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

 

Kanatoroman_ver3.xlsをダウンロード

かな-ローマ字変換マクロ改訂版

　以前、SQSさんが作成した「かな-ローマ字変換マクロ」をこちらのサイトで紹介した。

結構、多くの人が利用しているようだ。

 

 

（●｀ε´●）：くまぷー、ちょっと改良して欲しいところがあるんだが・・・

【´･ω･`】：どんなとこ？

（●｀ε´●）：変換したローマ字が全部小文字になっちゃうんだよね。

 

 

（●｀ε´●）：これを手作業で直して下のようにするのは面倒くさすぎる・・・

 

 

（●｀ε´●）：氏名をローマ字に変換するんだから、頭の部分は大文字にしたい・・・

【´･ω･`】：わかった。じゃあ、改訂版（KanaToRoman.xls）をアップしておくよ。

 

ダウンロード： KanaToRoman.xlsをダウンロード

★使用法

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

2．マクロ「かなローマ字変換」を実行する。

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

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

 

SQSさん版マクロの記事：Excel Maniacs: かな-ローマ字変換マクロ (typepad.jp)

かな-ローマ字変換マクロ

【´･ω･`】：SQSさんから・・・

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

おはようございます。

くまぷー先生、VBA for Teachers 増える予定はないですか（涙）

調べても調べても、見つけられないんです。

生徒の名表、名前をアルファベットに
できる方法は難しいのでしょうか。

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

・・・というメールが来た。

【´･ω･`】：難しくはないが、やることは決まっているので面白みはないので、あまりやる気はしないな・・・

(●`ε´●)：そう言わずに何とかしてやれよ。

【´･ω･`】：しかたがないな。じゃあ、SQSさん自身に作ってもらおうか。

(●`ε´●)：素人でも作れるのか？

【´･ω･`】：大丈夫。題して「知性よりも根性のマクロ」。やり方を指示するから・・・

 

【課題1】

下図のように3名分の名前の入ったシートがある。エクセルの標準機能「置換」を使って、3名の名前に含まれる「き」を「ki」に変換しなさい。

 

【課題2】

「記録マクロ」を利用し、「課題1」を行い、出来たコードをコメント欄にコピペしなさい。

尚、「記録マクロ」の使用法がわからない場合は「情報」の教員に尋ねなさい。

 

【´･ω･`】：記録マクロは余計なコードも生成してしまう。

Sub Macro2()
'
' Macro2 Macro
''
Range("A2:A4").Select
Selection.Replace What:="き", Replacement:="ki", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

【´･ω･`】：余計な部分を取り除いてマクロ名をわかりやすいものに変えると・・・

Sub かなローマ字変換()
　　　Range("A2:A4").Select
　　　Selection.Replace What:="き", Replacement:="ki"
End Sub

・・・これだけになる。従って・・・

Sub かなローマ字変換()
　　　Range("A2:A4").Select
　　　Selection.Replace What:="き", Replacement:="ki"
End Sub

赤字の部分をコピペして「き」と「ki」の部分を、それぞれ「きゃ」と「kya」に変えれば「きゃ」が「kya」に変換される。

Sub かなローマ字変換()
　　　Range("A2:A4").Select

　　　Selection.Replace What:="きゃ", Replacement:="kya"
　　　Selection.Replace What:="き", Replacement:="ki"
End Sub

注：マクロは上の行から下へと処理される。従ってかな2文字の処理を、かな1文字の処理の上に記述しないとうまくいかない。

【課題3】

赤字の部分を必要な分だけ只管コピペして、かなローマ字変換マクロを根性で完成させなさい。(^^ゞ

 

【発展】

【´･ω･`】：Range("A2:A4").Select　がマクロを作用させる範囲だということは前に述べた。

(●`ε´●)：おいおい、たったの3人分じゃ、あんまりありがたくないぞ！！

【´･ω･`】：じゃあ、いっそのこと削除してしまおうか。

 

Sub かなローマ字変換()
　　　'Range("A2:A4").Select　（削除）

　　　Selection.Replace What:="きゃ", Replacement:="kya"
　　　Selection.Replace What:="き", Replacement:="ki"
End Sub

(●`ε´●)：大丈夫なのか？

【´･ω･`】：うん。マクロを実行する前にあらかじめ、範囲をマウスか何かで選択しておけばいい。

(●`ε´●)：なるほど、その方が柔軟かもな。

【´･ω･`】：するとコードはこんな感じになるから・・・

Sub かなローマ字変換()
　　　Selection.Replace What:="きゃ", Replacement:="kya"
　　　Selection.Replace What:="き", Replacement:="ki"
End Sub

・・・素人にも、どこで何をやっているか一目瞭然だというわけだ。

(●`ε´●)：なんの技もない。まさに「知性よりも根性のマクロ」だな。

【´･ω･`】：ま、with　ブロックだとか、書き方の作法とかは時間があったら、どこかできちんと学んでね　m(__)m

 

 

【考察】

課題1の目的：エクセルの標準機能、「置換」の確認。

課題2の目的：記録マクロを使って、「置換」コードの確認。

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

★完成版　かなローマ字変換　（SQSさん　提供）

★使い方　変換したい範囲をあらかじめ選択してマクロを実行する。

★平仮名・片仮名をローマ字に変換する。

 

Sub かなローマ字変換()
　　　Selection.Replace What:="ふぁ", Replacement:="fa"
        Selection.Replace What:="りゃ", Replacement:="rya"
        Selection.Replace What:="みゃ", Replacement:="mya"
        Selection.Replace What:="ひゃ", Replacement:="hya"
        Selection.Replace What:="にゃ", Replacement:="nya"
        Selection.Replace What:="ちゃ", Replacement:="cha"
        Selection.Replace What:="しゃ", Replacement:="sha"
        Selection.Replace What:="きゃ", Replacement:="kya"
        Selection.Replace What:="ぴゃ", Replacement:="pya"
        Selection.Replace What:="びゃ", Replacement:="bya"
        Selection.Replace What:="ぢゃ", Replacement:="dya"
        Selection.Replace What:="じゃ", Replacement:="ja"
        Selection.Replace What:="ぎゃ", Replacement:="gya"
        Selection.Replace What:="ふぃ", Replacement:="fi"
        Selection.Replace What:="ぴゅ", Replacement:="pyu"
        Selection.Replace What:="びゅ", Replacement:="byu"
        Selection.Replace What:="ぢゅ", Replacement:="dyu"
        Selection.Replace What:="じゅ", Replacement:="ju"
        Selection.Replace What:="ぎゅ", Replacement:="gyu"
        Selection.Replace What:="ふぇ", Replacement:="fe"
        Selection.Replace What:="りゅ", Replacement:="ryu"
        Selection.Replace What:="みゅ", Replacement:="myu"
        Selection.Replace What:="ひゅ", Replacement:="hyu"
        Selection.Replace What:="にゅ", Replacement:="nyu"
        Selection.Replace What:="ちゅ", Replacement:="chu"
        Selection.Replace What:="しゅ", Replacement:="shu"
        Selection.Replace What:="きゅ", Replacement:="kyu"
        Selection.Replace What:="ぴょ", Replacement:="pyo"
        Selection.Replace What:="びょ", Replacement:="byo"
        Selection.Replace What:="ぢょ", Replacement:="dyo"
        Selection.Replace What:="じょ", Replacement:="jo"
        Selection.Replace What:="ぎょ", Replacement:="gyo"
        Selection.Replace What:="ふぉ", Replacement:="fo"
        Selection.Replace What:="りょ", Replacement:="ryo"
        Selection.Replace What:="みょ", Replacement:="myo"
        Selection.Replace What:="ひょ", Replacement:="hyo"
        Selection.Replace What:="にょ", Replacement:="nyo"
        Selection.Replace What:="ちょ", Replacement:="cho"
        Selection.Replace What:="しょ", Replacement:="sho"
        Selection.Replace What:="きょ", Replacement:="kyo"
        Selection.Replace What:="ちぇ", Replacement:="che"

        Selection.Replace What:="ファ", Replacement:="fa"
        Selection.Replace What:="リャ", Replacement:="rya"
        Selection.Replace What:="ミャ", Replacement:="mya"
        Selection.Replace What:="ヒャ", Replacement:="hya"
        Selection.Replace What:="ニャ", Replacement:="nya"
        Selection.Replace What:="チャ", Replacement:="cha"
        Selection.Replace What:="シャ", Replacement:="sha"
        Selection.Replace What:="キャ", Replacement:="kya"
        Selection.Replace What:="ピャ", Replacement:="pya"
        Selection.Replace What:="ビャ", Replacement:="bya"
        Selection.Replace What:="ヂャ", Replacement:="dya"
        Selection.Replace What:="ジャ", Replacement:="ja"
        Selection.Replace What:="ギャ", Replacement:="gya"
        Selection.Replace What:="フィ", Replacement:="fi"
        Selection.Replace What:="ピュ", Replacement:="pyu"
        Selection.Replace What:="ビュ", Replacement:="byu"
        Selection.Replace What:="ヂュ", Replacement:="dyu"
        Selection.Replace What:="ジュ", Replacement:="ju"
        Selection.Replace What:="ギュ", Replacement:="gyu"
        Selection.Replace What:="フェ", Replacement:="fe"
        Selection.Replace What:="リュ", Replacement:="ryu"
        Selection.Replace What:="ミュ", Replacement:="myu"
        Selection.Replace What:="ヒュ", Replacement:="hyu"
        Selection.Replace What:="ニュ", Replacement:="nyu"
        Selection.Replace What:="チュ", Replacement:="chu"
        Selection.Replace What:="シュ", Replacement:="shu"
        Selection.Replace What:="キュ", Replacement:="kyu"
        Selection.Replace What:="ピョ", Replacement:="pyo"
        Selection.Replace What:="ビョ", Replacement:="byo"
        Selection.Replace What:="ヂョ", Replacement:="dyo"
        Selection.Replace What:="ジョ", Replacement:="jo"
        Selection.Replace What:="ギョ", Replacement:="gyo"
        Selection.Replace What:="フォ", Replacement:="fo"
        Selection.Replace What:="リョ", Replacement:="ryo"
        Selection.Replace What:="ミョ", Replacement:="myo"
        Selection.Replace What:="ヒョ", Replacement:="hyo"
        Selection.Replace What:="ニョ", Replacement:="nyo"
        Selection.Replace What:="チョ", Replacement:="cho"
        Selection.Replace What:="ショ", Replacement:="sho"
        Selection.Replace What:="キョ", Replacement:="kyo"
        Selection.Replace What:="チェ", Replacement:="che"

        Selection.Replace What:="ん", Replacement:="n"
        Selection.Replace What:="わ", Replacement:="wa"
        Selection.Replace What:="ら", Replacement:="ra"
        Selection.Replace What:="や", Replacement:="ya"
        Selection.Replace What:="ま", Replacement:="ma"
        Selection.Replace What:="は", Replacement:="ha"
        Selection.Replace What:="な", Replacement:="na"
        Selection.Replace What:="た", Replacement:="ta"
        Selection.Replace What:="さ", Replacement:="sa"
        Selection.Replace What:="か", Replacement:="ka"
        Selection.Replace What:="あ", Replacement:="a"
        Selection.Replace What:="ぱ", Replacement:="pa"
        Selection.Replace What:="ば", Replacement:="ba"
        Selection.Replace What:="だ", Replacement:="da"
        Selection.Replace What:="ざ", Replacement:="za"
        Selection.Replace What:="が", Replacement:="ga"
        Selection.Replace What:="り", Replacement:="ri"
        Selection.Replace What:="み", Replacement:="mi"
        Selection.Replace What:="ひ", Replacement:="hi"
        Selection.Replace What:="に", Replacement:="ni"
        Selection.Replace What:="ち", Replacement:="chi"
        Selection.Replace What:="し", Replacement:="shi"
        Selection.Replace What:="き", Replacement:="ki"
        Selection.Replace What:="い", Replacement:="i"
        Selection.Replace What:="ぴ", Replacement:="pi"
        Selection.Replace What:="び", Replacement:="bi"
        Selection.Replace What:="ぢ", Replacement:="di"
        Selection.Replace What:="じ", Replacement:="ji"
        Selection.Replace What:="ぎ", Replacement:="gi"
        Selection.Replace What:="る", Replacement:="ru"
        Selection.Replace What:="ゆ", Replacement:="yu"
        Selection.Replace What:="む", Replacement:="mu"
        Selection.Replace What:="ふ", Replacement:="fu"
        Selection.Replace What:="ぬ", Replacement:="nu"
        Selection.Replace What:="つ", Replacement:="tsu"
        Selection.Replace What:="す", Replacement:="su"
        Selection.Replace What:="く", Replacement:="ku"
        Selection.Replace What:="う", Replacement:="u"
        Selection.Replace What:="ぷ", Replacement:="pu"
        Selection.Replace What:="ぶ", Replacement:="bu"
        Selection.Replace What:="づ", Replacement:="du"
        Selection.Replace What:="ず", Replacement:="zu"
        Selection.Replace What:="ぐ", Replacement:="gu"
        Selection.Replace What:="ヴ", Replacement:="vu"
        Selection.Replace What:="れ", Replacement:="re"
        Selection.Replace What:="め", Replacement:="me"
        Selection.Replace What:="へ", Replacement:="he"
        Selection.Replace What:="ね", Replacement:="ne"
        Selection.Replace What:="て", Replacement:="te"
        Selection.Replace What:="せ", Replacement:="se"
        Selection.Replace What:="け", Replacement:="ke"
        Selection.Replace What:="え", Replacement:="e"
        Selection.Replace What:="ぺ", Replacement:="pe"
        Selection.Replace What:="べ", Replacement:="be"
        Selection.Replace What:="で", Replacement:="de"
        Selection.Replace What:="ぜ", Replacement:="ze"
        Selection.Replace What:="げ", Replacement:="ge"
        Selection.Replace What:="を", Replacement:="wo"
        Selection.Replace What:="ろ", Replacement:="ro"
        Selection.Replace What:="よ", Replacement:="yo"
        Selection.Replace What:="も", Replacement:="mo"
        Selection.Replace What:="ほ", Replacement:="ho"
        Selection.Replace What:="の", Replacement:="no"
        Selection.Replace What:="と", Replacement:="to"
        Selection.Replace What:="そ", Replacement:="so"
        Selection.Replace What:="こ", Replacement:="ko"
        Selection.Replace What:="お", Replacement:="o"
        Selection.Replace What:="ぽ", Replacement:="po"
        Selection.Replace What:="ぼ", Replacement:="bo"
        Selection.Replace What:="ど", Replacement:="do"
        Selection.Replace What:="ぞ", Replacement:="zo"
        Selection.Replace What:="ご", Replacement:="go"
        Selection.Replace What:="ゑ", Replacement:="we"
        Selection.Replace What:="ゐ", Replacement:="wi"
        Selection.Replace What:="っ", Replacement:="t"
        Selection.Replace What:="ー", Replacement:="-"

        Selection.Replace What:="ン", Replacement:="n"
        Selection.Replace What:="ワ", Replacement:="wa"
        Selection.Replace What:="ラ", Replacement:="ra"
        Selection.Replace What:="ヤ", Replacement:="ya"
        Selection.Replace What:="マ", Replacement:="ma"
        Selection.Replace What:="ハ", Replacement:="ha"
        Selection.Replace What:="ナ", Replacement:="na"
        Selection.Replace What:="タ", Replacement:="ta"
        Selection.Replace What:="サ", Replacement:="sa"
        Selection.Replace What:="カ", Replacement:="ka"
        Selection.Replace What:="ア", Replacement:="a"
        Selection.Replace What:="パ", Replacement:="pa"
        Selection.Replace What:="バ", Replacement:="ba"
        Selection.Replace What:="ダ", Replacement:="da"
        Selection.Replace What:="ザ", Replacement:="za"
        Selection.Replace What:="ガ", Replacement:="ga"
        Selection.Replace What:="リ", Replacement:="ri"
        Selection.Replace What:="ミ", Replacement:="mi"
        Selection.Replace What:="ヒ", Replacement:="hi"
        Selection.Replace What:="ニ", Replacement:="ni"
        Selection.Replace What:="チ", Replacement:="chi"
        Selection.Replace What:="シ", Replacement:="shi"
        Selection.Replace What:="キ", Replacement:="ki"
        Selection.Replace What:="イ", Replacement:="i"
        Selection.Replace What:="ピ", Replacement:="pi"
        Selection.Replace What:="ビ", Replacement:="bi"
        Selection.Replace What:="ヂ", Replacement:="di"
        Selection.Replace What:="ジ", Replacement:="ji"
        Selection.Replace What:="ギ", Replacement:="gi"
        Selection.Replace What:="ル", Replacement:="ru"
        Selection.Replace What:="ユ", Replacement:="yu"
        Selection.Replace What:="ム", Replacement:="mu"
        Selection.Replace What:="フ", Replacement:="fu"
        Selection.Replace What:="ヌ", Replacement:="nu"
        Selection.Replace What:="ツ", Replacement:="tsu"
        Selection.Replace What:="ス", Replacement:="su"
        Selection.Replace What:="ク", Replacement:="ku"
        Selection.Replace What:="ウ", Replacement:="u"
        Selection.Replace What:="プ", Replacement:="pu"
        Selection.Replace What:="ブ", Replacement:="bu"
        Selection.Replace What:="ヅ", Replacement:="du"
        Selection.Replace What:="ズ", Replacement:="zu"
        Selection.Replace What:="グ", Replacement:="gu"
        Selection.Replace What:="ヴ", Replacement:="vu"
        Selection.Replace What:="レ", Replacement:="re"
        Selection.Replace What:="メ", Replacement:="me"
        Selection.Replace What:="ヘ", Replacement:="he"
        Selection.Replace What:="ネ", Replacement:="ne"
        Selection.Replace What:="テ", Replacement:="te"
        Selection.Replace What:="セ", Replacement:="se"
        Selection.Replace What:="ケ", Replacement:="ke"
        Selection.Replace What:="エ", Replacement:="e"
        Selection.Replace What:="ペ", Replacement:="pe"
        Selection.Replace What:="ベ", Replacement:="be"
        Selection.Replace What:="デ", Replacement:="de"
        Selection.Replace What:="ゼ", Replacement:="ze"
        Selection.Replace What:="ゲ", Replacement:="ge"
        Selection.Replace What:="ヲ", Replacement:="wo"
        Selection.Replace What:="ロ", Replacement:="ro"
        Selection.Replace What:="ヨ", Replacement:="yo"
        Selection.Replace What:="モ", Replacement:="mo"
        Selection.Replace What:="ホ", Replacement:="ho"
        Selection.Replace What:="ノ", Replacement:="no"
        Selection.Replace What:="ト", Replacement:="to"
        Selection.Replace What:="ソ", Replacement:="so"
        Selection.Replace What:="コ", Replacement:="ko"
        Selection.Replace What:="オ", Replacement:="o"
        Selection.Replace What:="ポ", Replacement:="po"
        Selection.Replace What:="ボ", Replacement:="bo"
        Selection.Replace What:="ド", Replacement:="do"
        Selection.Replace What:="ゾ", Replacement:="zo"
        Selection.Replace What:="ゴ", Replacement:="go"
        Selection.Replace What:="ヱ", Replacement:="we"
        Selection.Replace What:="ヰ", Replacement:="wi"
        Selection.Replace What:="ッ", Replacement:="t"
        Selection.Replace What:="ー", Replacement:="-"

End Sub

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

※　改訂版出しました。（2021／10／01）Excel Maniacs: かな-ローマ字変換マクロ改訂版 (typepad.jp)

下図のように名前の頭を大文字に変換します。

 

Excel 読み上げ２

(●`ε´●)：得点の入力が終わったので確認をしたい。

【´･ω･`】：読み上げ機能を使うと便利だな。

　　　　　　マウスで読ませたい部分を選択して

　　　　　　下のマクロ「読み上げ」を実行すると受験番号、Name、得点の

　　　　　　順で読み上げてくれる。

 

Sub 読み上げ()
    Selection.Speak
End Sub

 サンプルファイル： 読み上げをダウンロード

 

 

Excel 読み上げ

得点の入力の時にエクセルの読み上げ機能を使えば便利だと思って

メニューを探したのだが見つからなかった。2010ではリボンのどこかに行ってしまっているらしい。

あちこち探すのも面倒なので、VBAを利用することにした。

ワークシートのChangeイベントを利用して・・・

 

Private Sub Worksheet_Change(ByVal Target As Range)

        Target.Speak

End Sub

 

これでEnterキーを押すタイミングで数字を読み上げてくれる・・・

入力ミスが減りますのぉ・・・(^_-)-☆

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	織田	所見２	生活態度は極めて良好で、責任感が強く、クラスでの役割も真面目に最後までやり遂げる。。	句読点の連続。

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

　　　　　いうことない。

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

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

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

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

【´･ω･`】：うん。

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

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

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

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

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

質問：セルが空欄なら斜線を

【´･ω･`】：セルが空欄ならば斜線を引くにはどうしたらよいですかという質問は

　　　　　　本当に定番だな。今回は特にセルを跨がる斜線を引く方法だ。

　　　　　　新しくサンプルを作るのも面倒くさいので前に佐賀県の先生から質問が

　　　　　　来たときに作ったものを再掲しよう。下は佐賀県の高校入試用の調査書だ。

　　　　　　下図の赤枠を見てほしい。

 

 

【´･ω･`】：セルBIの数値を０から１にすると・・・

 

 

【´･ω･`】：セルBIの数値を０から２にすると・・・

 

 

 

【´･ω･`】：セルの普通の斜線は対角線にしかならないので、ワークシートのチェンジイベントを

　　　　　利用してオートシェイプのVisibleプロパティを切り替えている。

 

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$BI$2" Then Exit Sub
   
    Shapes("Line 12").Visible = False
    Shapes("Line 13").Visible = False
   
    If Cells(29, "R").Text = "" And Cells(32, "R").Text = "" Then
        Shapes("Line 12").Visible = True
    ElseIf Cells(32, "R").Text = "" Then
        Shapes("Line 13").Visible = True
    End If
End Sub

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

Syasen_autoshape01をダウンロード

 

時間割一覧からクラス別時間割を

【´･ω･`】：元の表は前回のものと全く同じだ。作るのに結構時間がかかったから

　　　　　　もとを取るために使い回すことにした。

【´･ω･`】：これをもとにしてクラスごとの教科担当がわかるようような表を表示するサンプルを

　　　　　　　2種類アップしておく。セルA1に1aとか3Cとか入力するとそれに応じた表が作られる。

　　　　　　試してみてほしい。

 

サンプル（その１）：時間割シートのセルA１にクラス名（2B、3C等　半角英数で）を入力して

　　　　　　　　　　　　マクロ「時間割」を実行する。

教員時間割一覧_学級時間割をダウンロード

サンプル（その２）：単に時間割シートのセルA１にクラス名（2B、3g等）を入力する。

教員時間割一覧_学級時間割02をダウンロード

 

 

 

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

 

質問：単語テスト作成マクロについて‏

【´･ω･`】：S田さんから下のような丁寧なメールを頂いた。

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

 

初めまして。英語塾の教員をしております、S田と申します。

教材、テスト作成のための方法を色々と調べていた所、くまぷーさんのページを見つけました。

エクセルがこんなに活用できるのかと、目からウロコが落ちるようでした。ありがとうございます。

当座、私の塾で単語テキスト１冊分の単語テストを作る必要があり、効率的な作成法を考えていたため、

「英単語ランダム出題マクロ」が大変参考になり、ぜひ活用させていただきたく思います。

 

そこで、一点質問があります。

ホームページで出ているマクロはDataタブの英単語のみをMainタブに出力していましたが、

Dataタブの英単語の隣の列に日本語の意味を書き、英語と日本語の両方を一括してMainタブに出力することは可能でしょうか。

問題と同時に解答も作る必要があり、同時に出力できれば、英語に対応する日本語をそのまま解答に貼り付けることができるため、より活用できるかと考えています。

マクロの一部を改変して対応することができるのであれば、改変する方法を教えていただけると大変助かります。

 

お忙しい中かと存じますが、ご教授いただけますでしょうか。

よろしくお願い致します。

 

S田

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

 【´･ω･`】：さて、下が問題のファイルだ。

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

 

仕様A
(1)1000単語の中から1番の単語から50番の単語まで
というふうに出題範囲を指定することができる。

(2)（1)の出題範囲からさらに任意の数を出題することができる。

 

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

 【´･ω･`】：S田さんは英語と日本語を並べて出力したいと言っているわけだ。

 

(●`ε´●)：そんなの簡単だ。おれが教えてやる。

 

【´･ω･`】：べべちゃん、VBAがわかるのか？

 

(●`ε´●)：そんなもの知らなくても、ちょっと頭を使えばなんとでもなる。

 

１．　DATAシートのB列（英単語の列）に・・・・・

    

               respect@尊敬する

 

　　・・・・のように

 

　　　　　英単語@訳語

 

　　・・・・の形で入力しておく

 

２．　これでマクロを走らせればmainシートに英単語@訳語の形で出力されるので

　

 

　　たとえばmainシートのセルI２にのK列に「respect@尊敬する」と表示されているとして

 

　　K２に・・・

 

　

　　　　　　　　　=LEFT(I2,FIND("@",I2)-1)

 

　　L２に・・・

 

　　　　　　　　=MID(I2,FIND("@",I2)+1,LEN(I2)-LEN(K2)+1)

 

　・・・・と入力すればK２にrespect、L２に尊敬すると表示される。

 

【´･ω･`】：なるほど、これなら元のファイルのコードをいじらなくても済むな。

 

　

 

　　

 

　　

　　　　　　　　

 

 

整序問題作成マクロⅡ（２）

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

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

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

※「整序問題作成」からの改良点

　　グループ化したい語句を半角のかっこで囲むと

　　その語句はひとまとめにして扱われる。

   
実行法　

１．グループ化したい語句があれば半角のかっこで囲む
２．マクロを作用させたい範囲（並べ替えをしたい語句）を選択
３． 「ツール」「マクロ」「マクロ」「整序問題作成」を実行

整序問題作成ⅡWordMacro002_2009_06_22.lzhをダウンロード 

マクロはツールバーに登録すると便利です(^o^)

やりかたはこちら

ワード　Word VBA 教員用

暗号化・復号化(3)

それではマクロ「暗号化・復号化」の中身をご覧下さい。

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

Sub 暗号化_復号化()
　  Dim KeyNum As Integer
    Dim StartRow As Long, StartCol As Long
    Dim EndRow As Long, EndCol As Long
    Dim X As Long, y As Long
    Dim Length As Long
    Dim Text
    Dim S As String, NewText As String
    Dim CodeNum As Long
    Dim i As Long
    Dim Ans As Integer
   
    Ans = MsgBox("選択範囲を暗号化→複合化　または　複合化→暗号化します。" & vbCrLf & "よろしいですか？　(＾o＾)b", vbYesNo)
    If Ans = vbNo Then Exit Sub
       
    StartRow = Selection.Row
    StartCol = Selection.Column
    EndRow = StartRow + Selection.Rows.Count - 1
    EndCol = StartCol + Selection.Columns.Count - 1
    Application.ScreenUpdating = False
    On Error Resume Next
    For X = StartCol To EndCol
        For y = StartRow To EndRow
            Text = Cells(y, X)
            If Range(Cells(y, X), Cells(y, X)).HasFormula Or Text = "" Then GoTo BEBE
            Length = Len(Text)
            
                NewText = ""
                For i = 1 To Length
                     S = Mid(Text, i, 1)
                     CodeNum = AscW(S)
                     CodeNum = CodeNum * -1
                     S = ChrW(CodeNum)
                     NewText = NewText & S
                Next
                Text = NewText
            
            Cells(y, X) = Text
BEBE:
        Next
    Next
    Application.ScreenUpdating = True
End Sub

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

赤字の行をご覧になればお分かりのように

取り出した文字コードに-1を乗じています。

従ってもう一度このマクロを実行すれば

暗号化された文字が復号化されます。

　みなさんが、この赤字の部分をお好きなように変更すれば

みなさん、独自の暗号キーになります。

★暗号化する場合の例

CodeNum = CodeNum + 123

★上記を復号化する場合の例

CodeNum = CodeNum - 123

　１２３を加えただけですから１２３を減じれば

元に戻るというわけです。

暗号化・復号化(2)

　暗号化するのに何をやっているかというと

1. セル内の文字列を一ずつ取り出す。
2. その文字コードを取得する。
3. そのコードを一定の規則により変換する。
4. その変換済みのコードに対応する文字を
   セルに書き戻す。

・・・ということです。

単純ですね(^^ゞ

単純ですけど３のところの「一定の規則」を

自分勝手に作れるから、よっぽど大事なことが

書かれているとわかっているファイルでなければ

わざわざ復号化するヒマ人は数少ないと思われます。

サンプルファイルをアップします。

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

免責　このマクロの使用によっていかなる損害が生じようと、

　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。

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

マクロ名　「暗号化_復号化」

機能　　選択部分を暗号化、または復号化する。

実行法　１．　暗号化または復号化したいセルを選択する。

　 ２．　マクロ「暗号化_復号化」を実行する。

　 ３．　暗号化されているセルを選択し、もう一度

　　　　マクロ「暗号化_復号化」を実行すると復号化される

Angou.xlsをダウンロード

注意：phonetic関数が参照するセルにマクロ「暗号化_復号化」を

使用するとフリガナ情報が消えてしまいます。これは

仕様です(^^ゞ

暗号化・復号化(1)

【´･ω･`】:この頃、USBメモリをなくして懲戒されている教員の

　　　　　新聞記事をよく見るな。

（●｀ε´●）：おまえは粗忽者だから一番危ないな。個人情報漏洩には

　　　　　　　気をつけないとな！！

【´･ω･`】:うん、粗忽者だということは十分自覚しているから・・・

　　　　　万が一に備えてエクセルの暗号化マクロというのを

　　　　　考えてみたよ。

（●｀ε´●）：どんなんだ？

【´･ω･`】:下のような成績を入力したワークシートがあるとして・・・

　　　　　　暗号化したい部分をマウスで選択して

　　　　　　マクロを実行すると・・・・

＊

*

*

*

*

*

*

*

（●｀ε´●）：すると？

【´･ω･`】:下のように暗号化される。

＊

*

*

*

*

*

*

（●｀ε´●）：これなら、誰かに拾われても文字化けにしか

　　　　　　　見えないな。

【´･ω･`】:暗号化としては簡単な部類だけど、運悪く

　　　　　　これを復号できる人にUSBメモリを拾われる確率は

　　　　　かなり低いと思うが・・・

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）