|
▼ichinose さん 、ご親切にありがとうございました。
下記のコードでうまくできました。
お世話になりました。
一安心しました。
>
>'===============================================================
>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
|
|