ローマ字→カタカナへ変換（エクセルで）

例
　KOIZUMI→コイズミ
　ローマ字表記の氏名を　カタカナ表記へ変換したい。
　良い手手立ては　あるでしょうか。
　教えて下さい。

No.8 ベストアンサー 回答者： Wendy02 回答日時： 2005/07/08 14:25

こんにちは。

これは、ユーザー定義関数というもので、標準モジュールに書くのは、もう既にお分かりになっているかと思います。そして、標準モジュールに貼り付けた後は、一般の関数と同じように使えます。（ただし、貼り付けたブックのみです)

ですから、この中身のコードは忘れてください。

【http://park11.wakwak.com/~miko/Excel_Note/15-03_ …】

ワークシートで使うときには、一般の関数のように、セル上に、
A1 に、ローマ字が入っているとしたら、

=roma2kana(A1)

だけで、よいのです。そうすると、カタカナになるように設定されています。

＞◆私が何か勘違いしていること有るのだろうかと思ったりしています。

ご期待とは違うものであったりしませんか？その点は、大丈夫ですか？

この回答へのお礼

完璧に多量のデータをカタカナに変換できました。
◆一般の関数と同じように、任意のブックで使用できるように出来るのでしょうか。

お礼日時：2005/07/15 07:21

No.7 回答者： Wendy02 回答日時： 2005/07/08 02:18

#3 のWendy02 です。

＞◆結果は満足ですが、「ひらがな」が出力されます。
＞「カタカナ」を出力させる場合は何処を正せばいいのでしょうか？

それはヘンですね。コードを点検してみましたが、標準では、ひらがなにはなりません。

A1: ROMA

= roma2kana(A1)

と、標準で入れれば、上記のようにすれば、カタカナになります。

もし、ひらがなにするには、

= roma2kana(A1,False )

として、初めて、ひらがなになります。

この回答への補足

>A1: ROMA
>= roma2kana(A1)
◆Excelノート　15-03　セルのデータ
の57 ローマ字（アルファベット）をカタカナに変換するには？【http://park11.wakwak.com/~miko/Excel_Note/15-03_ …】
ここのコードをチェックしましたが、ご指摘の（上記のコードが見あたりませんが・・・？
◆私が何か勘違いしていること有るのだろうかと思ったりしています。もう一度ご指摘下さい。

補足日時：2005/07/08 12:41

No.6 回答者： ThunderV2 回答日時： 2005/07/04 10:17

こんにちは、＃２，４です。

ご質問の件ですが、ＡＴＯＫでは無理かもしれないです。
ATOK2005の体験版をダウンロードして試してみたのですが、アルファベット→カタカナの変換ができませんでした。
もしかしたら、他にやり方があるのかもしれないのですが・・・
一応、再変換は、シフトキー押しながら変換キーを押すと実行されるようなんですけどね。
漢字→アルファベットとかはできたんですが・・・
もし、自力の体力勝負をされるようでしたら、その時だけでもＩＭＥに切り替えるしかなさそうです。
通常、削除しない限りは、日本語入力システムの切り替えでＩＭＥに切り替え可能です。もし、消されてしまっていたら、Windows Updateからダウンロード可能です。

この回答へのお礼

調査して頂いて感謝申し上げます。
MicrosoftＩＭＥに切替えてみます。

お礼日時：2005/07/04 14:13

No.5 回答者： imogasi 回答日時： 2005/06/30 22:41

私の先ほど答えた質問の回答を使えないでしょうかね。

質問NO
No.1479198　に回答したが、
このArrayの中を対の順序をずれたり、間違えないようにしてやってみるとどうでしょうか。
名前のように短い語句のようなものなら、少々の人手の修正ですむかも。
やってみる元気がないですが。
その際＃１で述べておられる、「a」→「ア」～「o」→「オ」は一番最後にすることです。
の注意は必要です。ほかに、KYAなど長い（文字数の多い）文字列を対応表の先におくことです。
50個もマクロ記録のコードを並べるのは・・・と思って。
KIKUTIキクチ
KAKUTIカクチ
SASOKIサソキ
SAAKOIサアコイ
エクセルユーザー関数
Function tokana(a)
x = Array("KA", "KI", "KU", "KE", "KO", "SA", "SI", "SU", "SE", "SO", "TI", "A", "I")
y = Array("カ", "キ", "ク", "ケ", "コ", "サ", "シ", "ス", "セ", "ソ", "チ", "ア", "イ")
z = a
For i = 0 To UBound(x)
z = Replace(z, x(i), y(i))
Next i
tokana = z
End Function
=TOKANA(A1)のように使います。
上記対応表（配列的並び）は、途中で手抜きになっています、完全にしてください。
まあお遊び程度のものですが。

この回答へのお礼

うーん　頑張り　根性　習熟　訓練・・・に挑戦したいですね。

お礼日時：2005/07/01 14:04

No.4 回答者： ThunderV2 回答日時： 2005/06/30 14:55

こんにちは、＃２です。

先ほどのアドバイスでも書いてある通りで、日本語入力システムは、「ＡＴＯＫ」じゃなく、「ＩＭＥ２０００」なんですよ。
自宅じゃ、ＡＴＯＫ使ってるんですけどね。ＡＴＯＫ１５だから、何とも言えないです。最新のＡＴＯＫなら、再変換機能があったような気もしますが・・・

ＩＭＥは、標準で入っている日本語入力システムなので、切り替えれば使えると思います。
タスクバーを確認してみてくださいね。
でも、体調勝負で５０００行、なんとかなるデータ量かもしれませんが、マクロ(VBA)使った方が、間違いなく楽ちんだと思います。

この回答への補足

ATOKで出来ないわけないですよね。
調べてみます。

補足日時：2005/07/01 14:04

この回答へのお礼

ソウですね！体力勝負では前進しないですね。
でも　ローマ字→カタカナ変換　ATOCで出来るように探索します。

お礼日時：2005/07/01 14:00

No.3 回答者： Wendy02 回答日時： 2005/06/30 11:52

一応、VBAでしかできないと思います。

以下のものを使ってみたらいかがですか？

ローマ字（アルファベット）をカタカナに変換するには？
http://park11.wakwak.com/~miko/Excel_Note/15-03_ …

参考URL：http://park11.wakwak.com/~miko/Excel_Note/15-03_ …

この回答への補足

参考URLを、試しました。（ユーザー定義関数（標準モジュール））
◆結果は満足ですが、「ひらがな」が出力されます。
「カタカナ」を出力させる場合は何処を正せばいいのでしょうか？
　

補足日時：2005/07/07 07:08

この回答へのお礼

VBAの　出来合いがあったんですね。
ご紹介頂いて感謝です。
さっそくテストします。

お礼日時：2005/07/01 13:58

No.2 回答者： ThunderV2 回答日時： 2005/06/30 11:09

こんにちは。

手動でのやり方ですが・・・

[KOIZUMI]が入力されてるセルをダブルクリックして、セル内にカーソルが点滅するのを確認してください。
もしくは、セルを選択後、Ｆ２(ファンクション)キーを押して下さい。
次にKOIZUMIをマウスでドラッグして色を反転させてください。
最後に変換キーを押せば再変換できると思いますので、ここで、F7キーもしくは、カタカナの「コイズミ」を選択してください。
確認したバージョンは、EXCEL2000：IME2000です。
一括で更に自動でと言うことなら、＃１さんの言うようにマクロ作成するしかないと思います。

この回答へのお礼

>最後に変換キー・・・
変換候補は　アルファベットの綴りリスト（大・小、全・半お組み合わせ）６例だけです。カタカナは　出ません。「ATOK」だからだろうか？　又は　設定が悪いのだろうか？

この回答　５０００例ぐらいは　体力勝負で行けます。

お礼日時：2005/06/30 11:53

No.1 回答者： Kikis 回答日時： 2005/06/30 09:57

入力済みのエクセルデータを自動的に変換したいということですよね？

私の思いつくのは
KO →　コ
のように50音を置換させるマクロを作ることくらいなんですが・・・。

対象のシートを開いておいて（必ずバックアップはとっておいてください）
最初に、ツール＞マクロ＞新しいマクロの記録
を選択しておきます。
新しいマクロに適当な名前をつけてOKを押すと、マクロ記録ボタンが出ます。
次に、編集＞置換　で
検索する文字列　KO
置換する文字列　コ
を入力し、「全て置換」を押します。
マクロ記録ボタンの「停止」を押します。

ツール＞マクロ＞マクロ　でさっき記録したマクロを編集します。
新しい画面に出る
ActiveCell.Replace What:="KO", Replacement:="コ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

をコピーして、End Subの前に50回分ペーストします。
「KO」「コ」のところを50音に手で変えます。
気を付けるのは、KAから始めて
「a」→「ア」～「o」→「オ」は一番最後にすることです。
そうしないとうまく置換できなくなります（「Kア」など）

置換しなきゃならないデータ量が多ければお勧めします。

この回答へのお礼

２０例やってみました。
素晴らしい出来映え。
データ数５０００です。

頑張って母音　拗音等も完璧に出来るように挑戦してみます。
（マクロは大文字　小文字　半角　全角を統一する集中力が必要だけれど…）

お礼日時：2005/06/30 11:30