Results of 1 - 1 of about 48 for SetPhonetic (0.000 sec.)
- [[20060818122159]]
- #score: 13344
- @digest: 577516c06d64f6545d49430e51fb8a12
- @id: 24409
- @mdate: 2006-09-28T12:49:29Z
- @size: 2670
- @type: text/plain
- #keywords: 田酒 (13911), 酒店 (11311), getphonetic (8214), 際多 (7748), 補") (6812), 得", (6309), ケテ (4541), ガナ (3582), リガ (2984), setphonetic (2788), phonetic (2736), 一性 (2493), フリ (2038), 入-- (1963), ふり (1590), ナを (1181), 統一 (1027), shiojii (844), 山田 (719), 候補 (698), txt (652), vbyesno (611), rouge (606), isempty (572), 多数 (515), application (467), テン (466), 選択 (429), inputbox (386), 有難 (352), 変換 (349), nothing (322)
- 『ふりがなをふる』(じゃがいも)
いつも有難うございます。 例えば 山田酒店 ⇒ ヤマダサケテン とふりがなを一括でふり違うセルに移す機能はないのですか??? ---- 「やまださけてん」と入力して「山田酒店」に変換しているのであれば、 PHONETIC関数で出せますよ。 (ROUGE) ---- 残念ですがCSVデータをエクセルに変換したものです。 PHONETIC関数が使えないのですが・・。 ---- マクロになりますが、フリガナをふりたい範囲を選択して、下記マクロを実行すると、 おおよそのふりがながふられます。 なかには予想外のフリガナがつくこともありますが、その場合は手作業で修正して下さい。 (ROUGE) '---- Sub test() Selection.SetPhonetic End Sub ---- 有難うございます。 もう少し詳しく教えてもらってもいいですか? マクロ初心者なのです・・・(#+_+) ---- 衝突しちゃいました。 正確にはできないかもしれませんが、 その漢字がA列にるとして、 Sub test() Dim myR As Range Dim r As Range Set myR = Range("A1", Range("a65536").End(xlUp)) For Each r In myR r.Offset(, 1).Value = Application.GetPhonetic(r.Value) Next Set myR = Nothing End Sub (SHIOJII) ---- しょうとつ〜 Alt+F11を押して、挿入-->標準モジュールを選択。 出てきた画面にSub〜End Subを貼り付けて閉じる。 フリガナを振りたいセルを選択した状態で、Alt+F8を押して、testを選択、実行です。 見た目はなにも変わりませんが、PHONETIC関数の戻り値が変わります。 (ROUGE) ---- ありがとうございまーす(^—^) ニコリ♪ できました!!できましたよ!! また、宜しくお願い致します。 じゃがいも ---- すいません。こんな場合でも使えますか? 商品名を入力する際 多数の人が入力しているのでフリガナに統一性がないときに上記のマクロを使えば統一できますか? (とまと) ---- できません。 こんなマクロを作ってみました。 (ROUGE) '---- Sub test() Dim rng As Range, c As Range, txt As String Set rng = Application.InputBox("範囲を選択して下さい", "ふりがな取得", Type:=8) If rng Is Nothing Then MsgBox "範囲が選択されていません" Exit Sub End If For Each c In rng If Not IsEmpty(c) Then txt = Application.GetPhonetic(c.Text) Do While txt <> "" If vbYes = MsgBox("このふりがなにしますか?" & Chr(10) _ & c.Address(0, 0) & ": [" & c.Text & "] = " & txt, _ vbYesNo, "ふりがな候補") Then c.Characters(1, Len(c.Text)).PhoneticCharacters = txt Exit Do End If txt = Application.GetPhonetic() Loop End If Next End Sub ---- ROUGEさん 早速にありがとうございます。すごいですね。 (とまと) ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/200608/20060818122159.txt
- [detail]
- similar
PREV
NEXT
Powered by
Hyper Estraier 1.4.13, with 97049 documents and 608241 words.
訪問者: