Results of 1 - 1 of about 48 for SetPhonetic (0.000 sec.)
- [[20200630193455]]
- #score: 13344
- @digest: cfaf52e51086642f12c3e252194a31e3
- @id: 84269
- @mdate: 2020-07-01T12:21:55Z
- @size: 2945
- @type: text/plain
- #keywords: rangecheck (37491), phonetics (10384), ガナ (8956), setphonetic (8365), ナ追 (7748), リガ (7460), phoneticcharacters (5319), フリ (5098), 動取 (4967), 示en (4230), getphonetic (2738), 加() (2586), 他フ (2458), ナを (2361), 仮名 (2142), 要注 (1897), characters (1625), function (1242), rr (1125), 反応 (938), office365 (926), visible (906), 取得 (612), ファ (545), 実施 (524), 見当 (503), 2020 (454), 新規 (428), ァイ (422), 動作 (386), selection (381), 当然 (370)
- 『SetPhonetic が使えなくなってしまった』（まめ）
はじめまして、色々検索してみましたが検索の仕方が下手なのか 知りたい情報が見当たらない為お力をお借りしたく存じます。 タイトルの通りなのですが、SetPhoneticが使えなくなってしまいました。 ファイル自体はEXCEL2010にて作成しており、2010と2016では動作が確認できました。 PCが新しくなり、EXCEL2019になったところ使えなくなってしまいました。 また、OFFICE365でも同様に反応しません。 SetPhoneticは古いバージョンでしか使用する事ができないのでしょうか。 ＜ 使用 Excel:Office365、使用 OS:Windows10 ＞ ---- ＞Excel:Office365 当方では、普通に出来ましたけど? ＞使えなくなってしまいました。 具体的にどう確認されましたか? フリガナを表示させてなかった、なんてオチじゃないですよね? （半平太） 2020/06/30(火) 20:12 ---- コメントありがとうございます。 振り仮名を表示させるボタンを押しても 1段下がる(本来ふりがなが出る行)だけで何も表示されません。 ファイルが壊れているのかもしれないですね。 明日新規ファイルで試してみます! （まめ） 2020/06/30(火) 20:59 ---- 新規作成のファイルで再度試してみましたがやはり空欄のままでした… 直接入力した文字は当然ですがちゃんとふりがなは表示されます。 他ファイルからコピペした文字が何故か反応しません。 （まめ） 2020/07/01(水) 09:58 ---- 外している可能性大です。 私には、以前のバージョンのフリガナの動作記憶はあやふやですが、たしか情報が無い場合でもつけてくれたような気がします。 excel2016（表示365）でも自動取得はされませんね。 ふりがなの編集を押したときと同じで平仮名やローマ字にもフリガナが付いてしまいますが、 （1セルずつなら、上記でフリガナ取得可能） フリガナを取得したい範囲を選択して、以下を実施すると自動取得されたフリガナを付けたり削除できます。 （要注意） 但し、手入力したセルも変わってしまいます。 Sub フリガナ追加() Dim r As Range, rr Set rr = Selection If rangeCheck(rr) Then For Each r In rr r.Characters.PhoneticCharacters = Application.GetPhonetic(r.Value) Next rr.Phonetics.Visible = True 'フリガナを表示 End If End Sub Sub フリガナ削除() Dim r As Range, rr Set rr = Selection If rangeCheck(rr) Then For Each r In rr r.Phonetics.Alignment = xlPhoneticAlignLeft r.Characters.PhoneticCharacters = "" Next rr.Phonetics.Visible = False 'フリガナを非表示 End If End Sub Function rangeCheck(r) As Boolean Dim rr As Range If TypeName(r) <> "Range" Then Exit Function If r.Count = 1 Then If r.HasFormula Then Exit Function If IsNumeric(r.Value) Then Exit Function If IsEmpty(r.Value) Then Exit Function rangeCheck = True Else On Error Resume Next Set rr = r.SpecialCells(xlCellTypeConstants, xlValue) On Error GoTo 0 If Not rr Is Nothing Then Set r = rr rangeCheck = True End If End If End Function （kazuo） 2020/07/01(水) 21:21... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202006/20200630193455.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97040 documents and 608045 words.
訪問者：