No.6ベストアンサー
- 回答日時:
こんばんは。
あまり口を出すつもりはなかったのですが、
GetPhonetic
というのは、MS-IME のふり仮名候補の順番から引き出されるもので、GetPhoneticをそのまま使うと、MS-IMEの内部の順番の最初にあるものを出してきているに過ぎません。ただし、語の区切れの組み合わせによって、ふり仮名が変わる可能性があります。これは、MS-IMEを使用しているという条件が含まれています。
あまり、現実的なユーザー定義関数ではありませんが、#5さんの問題はこのようにすれば、解決できます。ただし、あまり、この種のユーザー定義関数は、必ず、貼り付けで、「値(定数)」に変えてしまったほうがよいかもしれません。
Function MyGetPhonetics(ByVal strText As String, Optional i As Integer = 0)
Dim j As Integer
Dim buf As String
If Application.GetPhonetic(strText) = "" Or _
Not strText Like "*[一-龝]*" Then
MyGetPhonetics = strText
Exit Function
End If
buf = Application.GetPhonetic(strText)
Do Until i = j Or Application.GetPhonetic(strText) = ""
buf = Application.GetPhonetic("")
j = j + 1
Loop
MyGetPhonetics = buf
End Function
濱口 優
=MyGetPhonetics(A1)
とすれば、
ハマグチ ユウ
=MyGetPhonetics(A1,1)
と、第二引数に1を入れれば、
ハマグチ マサル
となります。
ご参考まで。
No.4
- 回答日時:
#1,#2のお答えともそうだと思いますが、
別の方法でできると思います。
下記はその実証のためのテストです。
メモ帳に
山田 三郎,34
近藤 義之,23
鈴木 健二,42
を入れました。
テキストで保存しました。
それをエクセルで開きました
C1セルに=getphonetic(A1) と入れて、C3まで式を複写しました。
結果
山田 三郎34ヤマダ サブロウ
近藤 義之23コンドウ ヨシユキ
鈴木 健二42スズキ ケンジ
ーー
ただし下記のユーザー関数を定義してます。
ツールーマクローVBEの画面でメニューの挿入ー標準モジュールの
画面に
Function getphonetic(a)
getphonetic = Application.getphonetic(a)
End Function
を入れています。
ーーー
エクセルのシートのセルで=getphonetic("山田 三郎")も
ヤマダ サブロウと出ます
ーー
またメモ帳から、エクセルのシートのセルに、氏名をコピー張り付けしても、B1に=getphonetic(A1)
でカタカナ名がB1に出ました。
この回答へのお礼
お礼日時:2007/11/06 06:56
お礼がおそくなりましてすみません。
申し訳ありません。
ありがとうございました!!
マクロの可能性のすばらしさをまたしりました。
No.3
- 回答日時:
No.2
- 回答日時:
先ほどAccessの件でも回答しましたが、
Excelでも、後からふりがなは付けられません。
Excelに直接入力しなければ、ふりがなが保存されません。
どうしてもと言うなら、有料のソフトがあるみたいなので、
こういう物の利用を検討してみてください。
http://www.nihongolabo.jp/RubiFreenaQA.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル文字列の日付を日付けに変える 2 2023/05/13 11:08
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- ノンジャンルトーク 漢字だけを使ってなんか回答してください。 ひらがな、カタカナ、アルファベットはなしです。 漢数字はO 1 2022/09/21 09:56
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- その他(Microsoft Office) Microsoft IME 一発で変換できない言葉がある 3 2022/07/19 19:29
- Excel(エクセル) エクセルでセルに何らかの文字が入力されたらそれを任意の数値として認識させる方法がしりたいです。 3 2023/03/16 20:19
- その他(恋愛相談) 男の人とのLINEで、ちゃんと漢字を使う時もあるのですが突然ひらがなばかりの文章が送られてきたりしま 3 2023/04/23 20:55
- その他(言語学・言語) 言語 世界一難しい日本のひらがな・カタカナ・漢字・ローマ字は子供の時に習得出来たのですが 『方言や読 4 2022/04/14 21:49
- 眼・耳鼻咽喉の病気 点字について。 1 2023/04/26 12:11
- ノートパソコン ”IMEが無効です” というメッセージが出ます! 4 2023/05/02 09:56
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのセル内でタブキーの...
-
エクセルのグラフでデータテー...
-
VBA初心者です。電話番号の数字...
-
エクセルの変換
-
エクセルの神よ、ご回答を! エ...
-
エクセルにて指定文字数以上の...
-
エクセル 三桁の数字をリンク...
-
文字をアルファベット順に3つ...
-
エクセルのテーブルで自動拡張...
-
excel 2003 [検索する文字列]...
-
エクセル データ追加するもグ...
-
エクセルで3Dの円錐形を作成...
-
エクセルVBA 長さ0の文字列をNu...
-
エクセル→ファイルメーカーpro6...
-
エクセルの複数のセルを一括で...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
A1セルに入力したら、入力時間...
-
Excelで同じセルに箇条書きをし...
-
エクセルで日付から日にちを削...
-
エクセルでセルを10個分くらい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのセル内でタブキーの...
-
エクセルで3Dの円錐形を作成...
-
エクセルのグラフでデータテー...
-
エクセル 文字の先頭4文字だ...
-
エクセルで全波整流回路の波形
-
日報のデータを月報にデータを...
-
文字をアルファベット順に3つ...
-
エクセルVBA 長さ0の文字列をNu...
-
エクセルマクロでセルの文字サ...
-
VBA初心者です。電話番号の数字...
-
エクセルオンラインのみ勝手に...
-
エクセルで関数グラフを描きた...
-
エクセルの変換
-
ウェブから貼ったドロップダウ...
-
エクセルのデータを自動的にweb...
-
エクセルVBAで、他のエクセルブ...
-
エクセル データ追加するもグ...
-
エクセルにアクセスカウンター...
-
第何週かが表示できるカレンダ...
-
エクセルorアクセス 管理&...
おすすめ情報