Excel VBA質問箱 IV

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

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


51574 / 76732 ←次へ | 前へ→

【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

1 hits

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

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