|
>一部半角のカタカナにしたい
"シート全体どこでも"ではなくて"目的のセル範囲だけ"でイベントが発生
するようにしたいなら・・
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MySt As String
If Intersect(Target, Range("B2:B100, E2:E50")) Is _
Nothing Then Exit Sub
With Target
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If IsNumeric(.Value) Then Exit Sub
MySt = .Text
End With
Application.EnableEvents = False
On Error Resume Next
Target.Value = StrConv(MySt, vbkatakana)
Application.EnableEvents = True
End Sub
などとすれば B2:B100 と E2:E50 の範囲内のみ、カタカナに変えるように
なります。
|
|