[[20081203130851]]　『コピーしたセル内文字を半角カナに変換』（キム）　ページの最後に飛ぶ

『コピーしたセル内文字を半角カナに変換』（キム）

 全角カナはできたのですが、半角カナがわかりません。
 下記に何か足すのでしょうか？

 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

  （半平太）

できました！

 ありがとうございます！

コメント返信：

[ 一覧(最新更新順) ]

[[20081203130851]] 『コピーしたセル内文字を半角カナに変換』（キム） ページの最後に飛ぶ

[[20081203130851]]　『コピーしたセル内文字を半角カナに変換』（キム）　ページの最後に飛ぶ