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

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

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

迫られたということでエクセル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^)/~~~

Comments

[投稿情報: エアジョーダン5AF1]

呼ばれる服が常にべきである、人を訴えたどんなは、時代。事実それ判明特定博士を生成します。あなたの髪のスタイルと、プロシージャを維持するあなたの髪協議、素晴らしい自分自身について。

[投稿情報: アディダス ジェレミースコット]

Hello, Neat post. There's an issue with your site in web explorer, would check
this? IE nonetheless is the marketplace leader and a good section of people
will leave out your magnificent writing due to this problem.

[投稿情報: Adidas ニッツァ]

彼女は常に見られる表示大きな黒いサングラスかどうかその昼も夜も。種類ビジネス デザイナー bags.is 最大跳躍の今。