Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8989 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30007】無理だとは承知で・・・ 無理カナ 05/10/18(火) 10:32 質問[未読]
【30010】Re:無理だとは承知で・・・ 吉 05/10/18(火) 11:12 発言[未読]
【30012】Re:無理だとは承知で・・・ 無理カナ 05/10/18(火) 11:22 お礼[未読]
【30014】Re:無理だとは承知で・・・ MARBIN 05/10/18(火) 11:50 発言[未読]
【30015】Re:無理だとは承知で・・・ 吉 05/10/18(火) 11:51 発言[未読]
【30018】Re:無理だとは承知で・・・ awu 05/10/18(火) 12:16 回答[未読]
【30021】Re:無理だとは承知で・・・ awu 05/10/18(火) 12:38 回答[未読]
【30023】Re:無理だとは承知で・・・ 無理カナ 05/10/18(火) 13:24 お礼[未読]
【30007】無理だとは承知で・・・
質問  無理カナ  - 05/10/18(火) 10:32 -
引用なし
パスワード
   無理だとは承知で投稿してます。

ＶＢＡで、（ＶＢＡには限らずとも）
漢字からカナを読み取る事って可能なのでしょうか？

例えば
"株式会社"を"カブシキガイシャ"に変換するとか・・・
入力される文字列は、不定です。

も・し・も出来るのでしたら教えて頂けませんか？
【30010】Re:無理だとは承知で・・・
発言  吉  - 05/10/18(火) 11:12 -
引用なし
パスワード
   ▼無理カナ さん：
こんにちわ。

Excelの関数

=PHONETIC()

で出来ると思います。

確認してみてください。
【30012】Re:無理だとは承知で・・・
お礼  無理カナ  - 05/10/18(火) 11:22 -
引用なし
パスワード
   ▼吉 さん：
ありがとうございます。

ところで、この関数が適用できるのは
Excelシートで入力された文字列に限るんですよね？
メモ帳などのエディターで入力したものを
コピペしても変換できませんでした。
【30014】Re:無理だとは承知で・・・
発言  MARBIN  - 05/10/18(火) 11:50 -
引用なし
パスワード
   他のソフトからコピペしたものはだめなようです。

PHONETIC（振り仮名変換)
http://www3.tokai.or.jp/excel/kansu/phonetic.htm
【30015】Re:無理だとは承知で・・・
発言  吉  - 05/10/18(火) 11:51 -
引用なし
パスワード
   ▼無理カナ さん：

>Excelシートで入力された文字列に限るんですよね？
たしかにそのようですね！

>メモ帳などのエディターで入力したものを
>コピペしても変換できませんでした。
考えてみたのですが、
書式メニュー → ふりがな → 変換
で確定させると反映できるみたいですが、
VBAで処理させることが今の私では、分かりませんでした。
力不足ですいません。
他の方の回答を待ちたいと思います。
【30018】Re:無理だとは承知で・・・
回答  awu  - 05/10/18(火) 12:16 -
引用なし
パスワード
   SetPhonetic メソッド を使用します。

ヘルプで調べてみてください。

例えば、フリ仮名を取得したいセル範囲を選択し、「イミディエイト」ウィンドウで

Selection.SetPhonetic を入力し、<Enter>してみてください。

そのあとは、PHONETIC関数で表示されると思います。

頻繁に使う場合は、ユーザー定義関数を作ると良いでしょう。
【30021】Re:無理だとは承知で・・・
回答  awu  - 05/10/18(火) 12:38 -
引用なし
パスワード
   例えば、こんな感じで如何でしょうか。

振り仮名候補を取得するユーザー定義関数

　書式 : =GetPhone(対象セル)

　例: セルA1に "株式会社" をメモ帳等から貼付けます。

　 =GetPhone(A1)　を設定すると "カブシキガイシャ" が表示されます。

標準モジュールに下記コードを貼付けます。

Function GetPhone(Rng As Range) As String
　　GetPhone = Application.GetPhonetic(Rng.Text)
End Function
【30023】Re:無理だとは承知で・・・
お礼  無理カナ  - 05/10/18(火) 13:24 -
引用なし
パスワード
   ▼皆 さん：
ありがとうございました。
お陰さまでやりたかった事が実現できそうです。

本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8989 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free