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

名前

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

本文 Ret = .GetText(.ActiveCol, .ActiveRow, A) If Len(A) = 4 Then .SelStart = 4 .SelLength = 4 .SelText = "-" End If と記述すると4桁目と5桁目の間に"-"が挿入できるようになりましたが 今度はバックスペースで削除していくと4行目以前の文字が削除されなくなり ます。