Excel Maniacs

ひらがなを半角カタカナに

ある先生のブログで仕事のために

ひらがなを半角カタカナに変換する必要に

迫られたということでエクセルVBAの数十行に

及ぶコードがアップされてていた。かなり苦労されている

ご様子なので下のようなコメントを

させて頂いた。（青字部分）

エクセルVBAで全角ひらがなを半角カタカナに変換するなら、

下記の３行コードをためしてみてください。

Public Function HiraToHan(R As Range) As String
　　　　HiraToHan = StrConv(StrConv(R, vbKatakana), vbNarrow)
End Function

これを標準モジュールにコピーすれば
HiraToHan関数が標準のワークシート関数同様に使えます。

例えばA1に「ごとう」とあれば
B1に=HiraToHan（A1）とすればいいです。(^o^)/~~~

コードの部分は正味1行なので

だいぶすっきりしているとは思うのだが

三四郎ならば標準のワークシート関数の

Han()とKata()を組み合わせて

例えばA1に「ごとう」とあれば
B1に=Han(Kata(A1))とすればいいです。(^o^)/~~~

フリガナソート(2)

前回、エクセルでフリガナをキーにして昇順にソートすると

ナガヤマアキオの方がナカヤマシゲオよりも先に来るということを

示しました。

　文字でソートをする場合、左側から1文字ずつ比較します。

エクセルは濁音と清音を区別しないのでナガヤマと

ナカヤマはエクセルにとっては同じものです。従って

次の文字、アキオの「ア」とシゲオの「シ」の比較になります。

「ア」の方が「シ」よりも先なのでナガヤマアキオの方が

ナカヤマシゲオよりも先に来るということになります。

(●`ε´●)：おい、それじゃあ名票を作るのにどうしたら

　　　　　　いいんだ？

【´･ω･`】：もしも下図のように並べたいなら三四郎を

　　　　　使って「JISコード順」か「Unicode順」を指定して

　　　　　ソートすればいいよ。

フリガナソート(1)

　新学期も始まり、そろそろ新しい名簿や名票の用意が

整った頃と思います。くまぷーが初任の頃はまだ表計算ソフトは

普及していませんでした。従って生徒の名前をアイウエオ順に

並べるのは一々、手作業でやったものでした。従って何度も

何度も見直したはずなのに間違いがでてきて叱られたこともありました。

【´･ω･`】：だいたい、おいらにそういう作業を

　　　　　　やらせるほうがまちがっていると思うんだけど・・・。

みなさんは左の４人はどういう順に

並ぶのが正しいと思いますか？

エクセルを使っている学校の数は多いと思います。

エクセルを使うと下のようにソートされることをご存じですか？

ナカジマアキオとナガシマシゲオの

順番はいいとしてナガヤマアキオと

ナカヤマシゲオの順はどうでしょう？

　　　　　　　　　　(・o・)ゲッ!!

困ったことになったぞと思った方はいらっしゃいませんか？

エクセルは濁点のあるなしを区別しません。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）