Results of 1 - 1 of about 48 for SetPhonetic (0.000 sec.)
- [[20161025103644]]
- #score: 13344
- @digest: d717f5470ab2d56cea7fa1eb586e2e31
- @id: 71890
- @mdate: 2016-10-25T02:33:48Z
- @size: 2808
- @type: text/plain
- #keywords: setphonetic (8365), 名情 (7064), 垣市 (6127), 大垣 (5293), 連鎖 (4166), japanpost (3974), 県大 (3641), zipcode (3623), 号→ (3043), 阜県 (2930), phonetic (2736), wk (2727), 号デ (2698), ウッ (2193), 仮名 (2142), 岐阜 (1908), 抑制 (1878), intersect (1816), ガナ (1791), enableevents (1744), 再起 (1583), リガ (1492), ッシ (1489), 避策 (1454), download (1432), 郵便 (1401), イベ (1236), 便番 (1179), target (1138), 停止 (1093), range (1067), フリ (1019)
- 『郵便番号→住所→ふりがな』（SOS）
いつもお世話になっております。 名簿の作成で困っております。 例えば503-0000で変換すると「岐阜県大垣市」と入力されます。 そこに同時にフリガナも表示させたいのですが、PHONETIC関数をいれると 表示が503-0000になってしまいます。 これを住所とフリガナを同時に表示させるにはどのようにすればいいでしょうか? よろしくお願い致します。 ＜ 使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- こんにちは http://www.post.japanpost.jp/zipcode/download.html から必要な地域の郵便番号データをダウンンロードして検索する仕組みを作ってはどうですか? （ウッシ） 2016/10/25(火) 10:49 ---- 回答になっていなくてすまないが。 Private Sub Worksheet_Change(ByVal Target As Range) Dim WK_RANGE As Range If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub For Each WK_RANGE In Intersect(Target, Range("A:A")) WK_RANGE.Value = WK_RANGE.Value WK_RANGE.SetPhonetic Next End Sub こういうものを考えたのだが（A列に住所が入力されたときにいったん振り仮名情報を消し その後改めて振り仮名情報を付けている) これがWindows7+Excel2010の環境で上記を実行するとExcelは動作を停止しましたと出て Excelが再起動してしまう。 回避策がわかる人はいるだろうか? (DoEventsは試したが駄目だった） （ねむねむ） 2016/10/25(火) 11:13 ---- こんにちは イベントを抑制すれば良さそうです。 Private Sub Worksheet_Change(ByVal Target As Range) Dim WK_RANGE As Range If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub Application.EnableEvents = False For Each WK_RANGE In Intersect(Target, Range("A:A")) WK_RANGE.Value = WK_RANGE.Value WK_RANGE.SetPhonetic Next Application.EnableEvents = True End Sub （ウッシ） 2016/10/25(火) 11:23 ---- 被った〜。 同じ環境で、ねむねむさんのコードを機能させても動作停止はしませんでしたが、多重イベントしそうなので、Application.EnableEvents = False が必要に見えます。 （???） 2016/10/25(火) 11:25 ---- ウッシさん、???さんありがとう。 (私のほうでもついさっきイベント連鎖に気付いた) あと、私のほうではシートに =PHONETIC(A1) を入れていたのだがこれをなくすとイベントの連鎖だけで済み、ある場合だとExcelの再起動が起こるようだ。 （ねむねむ） 2016/10/25(火) 11:28 ---- こんにちは B列の数式は消しておいてもらって、 Private Sub Worksheet_Change(ByVal Target As Range) Dim WK_RANGE As Range If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub Application.EnableEvents = False For Each WK_RANGE In Intersect(Target, Range("A:A")) WK_RANGE.Value = WK_RANGE.Value WK_RANGE.SetPhonetic WK_RANGE.Offset(,1).Value = WK_RANGE.Phonetic.Text Next Application.EnableEvents = True End Sub にして貰えばいいかも? （ウッシ） 2016/10/25(火) 11:33... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201610/20161025103644.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97047 documents and 608232 words.
訪問者：