Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
44541 / 76732 ←次へ　｜　前へ→
【37207】Re:カナで読み仮名を表示するには
発言  ichinose  - 06/4/25(火) 18:03 -
引用なし
パスワード
   こんにちは。
以下のような関数で試してみてください。


標準モジュールに

'===================================================================
Function Myphonetic(Rng As Range) As Variant
　　Dim trng As Range
　　On Error Resume Next
　　Set trng = Application.Range(Rng.Formula)
　　If Err.Number = 0 Then
　　　 myphonetic = trng.Phonetic.Text
　　Else
　　　 myphonetic = [na()]
　　　 End If
End Function


セルＡ１に
山梨市

セルＢ１に

=A1

セルＣ１に

=Myphonetic(B1)

と指定して試してみてください。
0 hits
▼ 【37181】カナで読み仮名を表示するには にしもり 06/4/25(火) 11:18 質問
【37183】Re:カナで読み仮名を表示するには koshimizu 06/4/25(火) 11:51 回答
【37187】Re:カナで読み仮名を表示するには にしもり 06/4/25(火) 14:24 質問
【37188】Re:カナで読み仮名を表示するには Blue 06/4/25(火) 14:27 発言
【37189】Re:カナで読み仮名を表示するには にしもり 06/4/25(火) 14:42 質問
【37193】Re:カナで読み仮名を表示するには にしもり 06/4/25(火) 15:43 発言
【37195】Re:カナで読み仮名を表示するには にしもり 06/4/25(火) 16:11 質問
【37207】Re:カナで読み仮名を表示するには ichinose 06/4/25(火) 18:03 発言≪
【37238】Re:カナで読み仮名を表示するには にしもり 06/4/26(水) 17:29 お礼
【37250】Re:カナで読み仮名を表示するには ichinose 06/4/27(木) 8:15 発言
【37251】Re:カナで読み仮名を表示するには Jaka 06/4/27(木) 9:26 発言
【37272】Re:カナで読み仮名を表示するには koshimizu 06/4/27(木) 15:36 発言
【37280】Re:カナで読み仮名を表示するには ichinose 06/4/27(木) 21:10 発言
【37304】Re:カナで読み仮名を表示するには にしもり 06/4/28(金) 15:13 質問
【37337】Re:カナで読み仮名を表示するには ichinose 06/4/30(日) 19:53 発言
【37340】Re:カナで読み仮名を表示するには koshimizu 06/5/1(月) 8:12 発言
【37346】Re:カナで読み仮名を表示するには ichinose 06/5/1(月) 13:43 発言
【37341】Re:カナで読み仮名を表示するには クロ 06/5/1(月) 9:15 発言
【37349】Re:カナで読み仮名を表示するには クロ 06/5/1(月) 14:28 発言
【37389】Re:カナで読み仮名を表示するには にしもり 06/5/3(水) 12:09 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
44541 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free