文字入力の制限をするには？ (ID:108605)

名前

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

本文 TextBoxのGetFocusとLostFocusのイベント時にkやmをとったり張ったりする動作をする方法はどうでしょうか？これと先ほど説明されたnanashiさんの方法や難しければ俺の書いた方法などを同時にに使えばよろしいかと・・・ -GetFocus時- Text1 = Replace(Text1,"k","") Text1 = Replace(Text1,"m","") -LostFocus時- Dim Km As Long,M As Long,Cm As Long 999999.99からKmとmとcmとに分ける処理をする（ここは自分で考えてください。今回はkmに"999"がmに"999"がcmに"99"が入っていると仮定します） Text1 = Km & "k" & M & "m" & cm これで入力時には"k"と"m"を消し、観覧時には"k"と"m"がついた形になります