Results of 1 - 1 of about 48 for SetPhonetic (0.000 sec.)
- [[20081203130851]]
- #score: 13344
- @digest: b8cd1d831a6f3a381a64120545db026b
- @id: 41130
- @mdate: 2008-12-03T04:58:56Z
- @size: 686
- @type: text/plain
- #keywords: furigana (10586), setphonetic (5576), 角カ (2795), rg (2440), キム (2288), 内文 (2249), phonetic (1824), カナ (1510), 半角 (447), public (390), selection (381), 全角 (294), worksheetfunction (286), excel2000 (276), ル内 (256), application (233), 半平 (174), 変換 (174), 平太 (170), 教授 (145), each (143), offset (136), 下記 (99), next (83), with (80), ピー (67), コピ (65), 文字 (61), sub (58), range (56), 使用 (49), end (49)
- 『コピーしたセル内文字を半角カナに変換』（キム）
全角カナはできたのですが、半角カナがわかりません。 下記に何か足すのでしょうか? Public Sub Furigana() Dim rg As Range For Each rg In Selection rg.SetPhonetic rg.Offset(0, 1) = Application.Phonetic(rg) Next End Sub ご教授お願いします。Excel2000使用。 ---- こんなのでどうですか? Public Sub Furigana() Dim rg As Range With Application For Each rg In Selection rg.SetPhonetic rg.Offset(0, 1) = .WorksheetFunction.Asc(.Phonetic(rg)) Next End With End Sub （半平太） ---- できました! ありがとうございます!... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200812/20081203130851.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97049 documents and 608241 words.
訪問者：