Excel VBA質問箱 IV

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

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


8977 / 13646 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   無理だとは承知で投稿してます。

VBAで、(VBAには限らずとも)
漢字からカナを読み取る事って可能なのでしょうか?

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

も・し・も出来るのでしたら教えて頂けませんか?

【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 -

引用なし
パスワード
   ▼皆 さん:
ありがとうございました。
お陰さまでやりたかった事が実現できそうです。

本当にありがとうございました。

8977 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free