https://ameblo.jp/h2eve/ ブログの説明を入力します。 ja '範囲は、A2～A100 に郵便番号を入力する場合
If Intersect(Target, Range("a2:a100")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
With Target.Offset(0, 1).Validation
.Delete
.Add Type:=xlValidateInputOnly
.IMEMode = xlIMEModeHiragana
End With
If Target Like "###-####" Then
Target.Offset(0, 1).Select
SendKeys Target.Value
SendKeys "{ }"
SendKeys "{ENTER}{ENTER}"
SendKeys "{Left}"
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub





範囲を変える場合、カッコ内の("a2:a100")数値を変えればＯＫ
]]> https://ameblo.jp/h2eve/entry-10986520844.html Mon, 15 Aug 2011 09:23:57 +0900