No.8ベストアンサー
- 回答日時:
こんにちは。
これは、ユーザー定義関数というもので、標準モジュールに書くのは、もう既にお分かりになっているかと思います。そして、標準モジュールに貼り付けた後は、一般の関数と同じように使えます。(ただし、貼り付けたブックのみです)
ですから、この中身のコードは忘れてください。
【http://park11.wakwak.com/~miko/Excel_Note/15-03_ …】
ワークシートで使うときには、一般の関数のように、セル上に、
A1 に、ローマ字が入っているとしたら、
=roma2kana(A1)
だけで、よいのです。そうすると、カタカナになるように設定されています。
>◆私が何か勘違いしていること有るのだろうかと思ったりしています。
ご期待とは違うものであったりしませんか?その点は、大丈夫ですか?
No.7
- 回答日時:
#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_ …】
ここのコードをチェックしましたが、ご指摘の(上記のコードが見あたりませんが・・・?
◆私が何か勘違いしていること有るのだろうかと思ったりしています。もう一度ご指摘下さい。
No.6
- 回答日時:
こんにちは、#2,4です。
ご質問の件ですが、ATOKでは無理かもしれないです。
ATOK2005の体験版をダウンロードして試してみたのですが、アルファベット→カタカナの変換ができませんでした。
もしかしたら、他にやり方があるのかもしれないのですが・・・
一応、再変換は、シフトキー押しながら変換キーを押すと実行されるようなんですけどね。
漢字→アルファベットとかはできたんですが・・・
もし、自力の体力勝負をされるようでしたら、その時だけでもIMEに切り替えるしかなさそうです。
通常、削除しない限りは、日本語入力システムの切り替えでIMEに切り替え可能です。もし、消されてしまっていたら、Windows Updateからダウンロード可能です。
No.5
- 回答日時:
私の先ほど答えた質問の回答を使えないでしょうかね。
質問NO
No.1479198 に回答したが、
このArrayの中を対の順序をずれたり、間違えないようにしてやってみるとどうでしょうか。
名前のように短い語句のようなものなら、少々の人手の修正ですむかも。
やってみる元気がないですが。
その際#1で述べておられる、「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)のように使います。
上記対応表(配列的並び)は、途中で手抜きになっています、完全にしてください。
まあお遊び程度のものですが。
No.4
- 回答日時:
こんにちは、#2です。
先ほどのアドバイスでも書いてある通りで、日本語入力システムは、「ATOK」じゃなく、「IME2000」なんですよ。
自宅じゃ、ATOK使ってるんですけどね。ATOK15だから、何とも言えないです。最新のATOKなら、再変換機能があったような気もしますが・・・
IMEは、標準で入っている日本語入力システムなので、切り替えれば使えると思います。
タスクバーを確認してみてくださいね。
でも、体調勝負で5000行、なんとかなるデータ量かもしれませんが、マクロ(VBA)使った方が、間違いなく楽ちんだと思います。
No.3
- 回答日時:
一応、VBAでしかできないと思います。
以下のものを使ってみたらいかがですか?
ローマ字(アルファベット)をカタカナに変換するには?
http://park11.wakwak.com/~miko/Excel_Note/15-03_ …
参考URL:http://park11.wakwak.com/~miko/Excel_Note/15-03_ …
この回答への補足
参考URLを、試しました。(ユーザー定義関数(標準モジュール))
◆結果は満足ですが、「ひらがな」が出力されます。
「カタカナ」を出力させる場合は何処を正せばいいのでしょうか?
No.2
- 回答日時:
こんにちは。
手動でのやり方ですが・・・
[KOIZUMI]が入力されてるセルをダブルクリックして、セル内にカーソルが点滅するのを確認してください。
もしくは、セルを選択後、F2(ファンクション)キーを押して下さい。
次にKOIZUMIをマウスでドラッグして色を反転させてください。
最後に変換キーを押せば再変換できると思いますので、ここで、F7キーもしくは、カタカナの「コイズミ」を選択してください。
確認したバージョンは、EXCEL2000:IME2000です。
一括で更に自動でと言うことなら、#1さんの言うようにマクロ作成するしかないと思います。
>最後に変換キー・・・
変換候補は アルファベットの綴りリスト(大・小、全・半お組み合わせ)6例だけです。カタカナは 出ません。「ATOK」だからだろうか? 又は 設定が悪いのだろうか?
この回答 5000例ぐらいは 体力勝負で行けます。
No.1
- 回答日時:
入力済みのエクセルデータを自動的に変換したいということですよね?
私の思いつくのは
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ア」など)
置換しなきゃならないデータ量が多ければお勧めします。
20例やってみました。
素晴らしい出来映え。
データ数5000です。
頑張って母音 拗音等も完璧に出来るように挑戦してみます。
(マクロは大文字 小文字 半角 全角を統一する集中力が必要だけれど…)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?賛成だったら「賛」、否定だったら「否」を文頭においてあなたの意見を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルシートのローマ字をひらがなにしたい。
Excel(エクセル)
-
Excelでローマ字をカナに変換させる方法
Excel(エクセル)
-
Excelで英数字をカナに変換する方法は?
Excel(エクセル)
-
-
4
カタカナをローマジに変換する。
Visual Basic(VBA)
-
5
ふりがなをアルファベット化する関数ってありますか?
PowerPoint(パワーポイント)
-
6
かなで書かれた文字をアルファベットに変換できませんか?
Excel(エクセル)
-
7
VBAでカタカナ→ローマ字の変換を標準モジュールでどのように貼り付けしたらいいか教えてください
Visual Basic(VBA)
-
8
入力してしまったローマ字をかなに変換
その他(パソコン・スマホ・電化製品)
-
9
アルファベットにフリガナ
Excel(エクセル)
-
10
アルファベットの会社名のふりがなの書き方を教えてください。
日本語
-
11
Excelで重複データの件数ではなく、何番目かを求める方法
Excel(エクセル)
-
12
エクセルでアルファベットか数値の判定をしたいのですが
Excel(エクセル)
-
13
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
-
14
エクセルでセルの中身が漢字かどうか識別する方法は?
Excel(エクセル)
-
15
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
16
条件付書式で「=#N/A」に色を付けたい
Excel(エクセル)
-
17
【EXCEL】カナ、ひらがなを英字変換したいのですが
Excel(エクセル)
-
18
Excel PHONETIC関数で振り仮名でなく、漢字がそのままでてくる
Excel(エクセル)
-
19
エクセルの複数のセルを一括で絶対参照にする方法
Excel(エクセル)
-
20
有無、要否、賛否、是非、可否、当否…これらの言葉について
その他(教育・科学・学問)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
ワードからエクセルへ貼り付け...
-
複数ファイルにある特定のシー...
-
エクセルのマクロ機能で前のシ...
-
Wordで「原稿用紙○枚」を換算す...
-
Excel VBA のdebug(F8キー) が...
-
Wordの画面を左右にスクロール...
-
エクセル グラフの軸の最小値最...
-
モジュール内のマクロを全て実...
-
AccessのテーブルデータをExcel...
-
MS Word for Macの自動ブックマ...
-
エクセル 画像挿入マクロで、...
-
マクロ ブックをマクロなしでコ...
-
ワードマクロで画像を選択する方法
-
パワーポイントで、スライドご...
-
マクロで、アクティブでないシ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
Excel VBA のdebug(F8キー) が...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
複数ファイルにある特定のシー...
-
Wordで「原稿用紙○枚」を換算す...
-
ワードからエクセルへ貼り付け...
-
モジュール内のマクロを全て実...
-
エクセル グラフの軸の最小値最...
-
エクセルのマクロ機能で前のシ...
-
Wordの画面を左右にスクロール...
-
TeraTermのマクロについて
-
エクセルで複数のシートをまと...
-
EXCEL 複数のシートの同一の位...
-
ワードで画像を自動で挿入する方法
-
Excelマクロでオプションボタン...
-
開いているフォルダを全て閉じ...
-
【Excel VBA】エラー番号400
おすすめ情報