タイトル : Re: テキストボックスの3桁毎のカンマ表示 投稿日 : 2008/07/02(Wed) 15:09 投稿者 : いな
こうしてデバッグコメントを入れてみると、 へぇ〜、こんな動きしているんだ・・・。と分かるかも・・・。 なので、カーソル位置を強制的に移動させちゃいませう。 〜 Private Sub Text1_Change() Debug.Print Form1.Text1.Text Form1.Text1.Text = Format(Form1.Text1.Text, "#,0") Debug.Print Form1.Text1.Text ' このコメントを外す↓ ' Form1.Text1.SelStart = Len(Form1.Text1.Text) End Sub |