|
こんばんは。
>
>Phonetic関数は、私もよく利用します。
>
>説明をしなくて大変申し訳ありませんでした。
>
>今回、VBAが必要になった理由は、Phonetic関数を列の全部に振ると、エクセルの動作が遅くなるような気がしているからなのです。
なるほど・・・。
では、このPhonetic関数をVBAコード内で使いましょうか!!
当該シートのシートモジュール(標準モジュールではないですよ)に
'===============================================================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim crng As Range
Application.EnableEvents = False
Set rng = Application.Intersect(Target, Range("E:E"))
If Not rng Is Nothing Then
For Each crng In rng
With crng
.Offset(0, -1).Value = _
Evaluate("asc(phonetic(" & .Address & "))")
End With
Next
End If
Application.EnableEvents = True
End Sub
として、E列に「松下電器」と入力してください。
対応するD列に「マツシタデンキ」と表示されます。
D列には、関数ではなく実際の文字列が入っているはずです。
ためして見てください。
|
|