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

Question

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

Wendy02 · Accepted Answer

こんにちは。

これは、ユーザー定義関数というもので、標準モジュールに書くのは、もう既にお分かりになっているかと思います。そして、標準モジュールに貼り付けた後は、一般の関数と同じように使えます。（ただし、貼り付けたブックのみです)

ですから、この中身のコードは忘れてください。

【http://park11.wakwak.com/~miko/Excel_Note/15-03_celldata.htm#15-03-57】

ワークシートで使うときには、一般の関数のように、セル上に、
A1 に、ローマ字が入っているとしたら、

=roma2kana(A1) 

だけで、よいのです。そうすると、カタカナになるように設定されています。

＞◆私が何か勘違いしていること有るのだろうかと思ったりしています。

ご期待とは違うものであったりしませんか？その点は、大丈夫ですか？

Wendy02 · Answer

#3 のWendy02 です。

＞◆結果は満足ですが、「ひらがな」が出力されます。
＞「カタカナ」を出力させる場合は何処を正せばいいのでしょうか？

それはヘンですね。コードを点検してみましたが、標準では、ひらがなにはなりません。

A1: ROMA

= roma2kana(A1)

と、標準で入れれば、上記のようにすれば、カタカナになります。

もし、ひらがなにするには、

= roma2kana(A1,False )

として、初めて、ひらがなになります。

ThunderV2 · Answer

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

imogasi · Answer

私の先ほど答えた質問の回答を使えないでしょうかね。
質問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)のように使います。
上記対応表（配列的並び）は、途中で手抜きになっています、完全にしてください。
まあお遊び程度のものですが。

ThunderV2 · Answer

こんにちは、＃２です。
先ほどのアドバイスでも書いてある通りで、日本語入力システムは、「ＡＴＯＫ」じゃなく、「ＩＭＥ２０００」なんですよ。
自宅じゃ、ＡＴＯＫ使ってるんですけどね。ＡＴＯＫ１５だから、何とも言えないです。最新のＡＴＯＫなら、再変換機能があったような気もしますが・・・

ＩＭＥは、標準で入っている日本語入力システムなので、切り替えれば使えると思います。
タスクバーを確認してみてくださいね。
でも、体調勝負で５０００行、なんとかなるデータ量かもしれませんが、マクロ(VBA)使った方が、間違いなく楽ちんだと思います。

Wendy02 · Answer

一応、VBAでしかできないと思います。

以下のものを使ってみたらいかがですか？

ローマ字（アルファベット）をカタカナに変換するには？
http://park11.wakwak.com/~miko/Excel_Note/15-03_celldata.htm#15-03-57

参考URL：http://park11.wakwak.com/~miko/Excel_Note/15-03_celldata.htm#15-03-57

ThunderV2 · Answer

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

Kikis · Answer

入力済みのエクセルデータを自動的に変換したいということですよね？

私の思いつくのは
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ア」など）

置換しなきゃならないデータ量が多ければお勧めします。

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

こんにちは。

#3 のWendy02 です。

この回答への補足

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

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

こんにちは、＃２です。

この回答への補足

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

この回答への補足

こんにちは。

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

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング