指定位置に"-"を挿入するには？ (ID:121223)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 スプレッドの場合だと入力してENTER押下時にしかchangeイベントが 発生しなかったのでKeyDownイベントに If .ActiveRow = 1 Then Ret = .GetText(.ActiveCol, .ActiveRow, Kenshu) If Len(A) = 4 Then A= Replace(A, A, A & "-") .SetText 1, 1, Kenshu End If End If と書いてみたのですが"-"挿入時に文字列が選択状態になってしまい 続けて入力すると4桁の文字列がクリアされてしまいます。 選択状態にしないで続けて次の数字を入力させるにはどうしたらよいでしょうか。