| |
こんばんは。
>
>Phonetic関数は、私もよく利用します。
>
>説明をしなくて大変申し訳ありませんでした。
>
>今回、ＶＢＡが必要になった理由は、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
として、Ｅ列に「松下電器」と入力してください。
対応するＤ列に「ﾏﾂｼﾀﾃﾞﾝｷ」と表示されます。
Ｄ列には、関数ではなく実際の文字列が入っているはずです。
ためして見てください。
|
|
ichinose
- 07/2/3(土) 22:28 -
