Ｐａｇｅ 277 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼TextBoxの数値入力後、小数第1位まで表示 １２３ 02/10/30(水) 13:54 ┗色変更の時と同じ要領 つん 02/10/30(水) 14:17 ┗Re:色変更の時と同じ要領 １２３ 02/10/30(水) 18:49 ┗Re:色変更の時と同じ要領 つん 02/10/31(木) 9:57 ┗Re:色変更の時と同じ要領 １２３ 02/10/31(木) 10:03 ─────────────────────────────────────── ■題名 ： TextBoxの数値入力後、小数第1位まで表示 ■名前 ： １２３ ■日付 ： 02/10/30(水) 13:54 -------------------------------------------------------------------------
| みなさん、こんにちは 1226 以前に、つんさんとjakaさんよりお答え頂いております、TextBox入力後 のTextBoxの色変更（記事番号1226）に関連しているのですが、 同様なことなのですが、 "1.5"と入力すると"1.5" "2"と入力すると"2.0" "0"と入力すると"0.0" になるようにしたいのですが、現在は以下のコードで やっています。（過去の記事より拝借しています） しかしながら、その入力すべきTextBoxの数があまりにも多いので、 色変更の時と同じようにまとめてできたらなあと思っています。 （TextBoxの数だけ下記を記述するのはちょっと．．．） どなたかご協力をお願いします。 Private Sub TextBoxA_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then jj = Format(TextBoxA.Value, "0.0") TextBoxA= jj End If End Sub |
| １２３ さん、こんにちは >以前に、つんさんとjakaさんよりお答え頂いております、TextBox入力後 >のTextBoxの色変更（記事番号1226）に関連しているのですが、 >同様なことなのですが、 >"1.5"と入力すると"1.5" >"2"と入力すると"2.0" >"0"と入力すると"0.0" >になるようにしたいのですが、現在は以下のコードで >やっています。（過去の記事より拝借しています） >しかしながら、その入力すべきTextBoxの数があまりにも多いので、 >色変更の時と同じようにまとめてできたらなあと思っています。 >（TextBoxの数だけ下記を記述するのはちょっと．．．） >どなたかご協力をお願いします。 クラスモジュール内の、イベントの中にも、「KeyDown」はあるようですので、色変更の時のコードの要領で出来ると思いますよ♪（多分・・・） |
| ▼つん さん： こんばんは >クラスモジュール内の、イベントの中にも、「KeyDown」はあるようですので、色変更の時のコードの要領で出来ると思いますよ♪（多分・・・） 以下のコードをクラスモジュールに記述したら、一応希望通りになりました。 これでいいのでしょうか？（色変更のコードの次に記述しました） Private Sub TexChgEvent_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) With TexChgEvent If KeyCode = 13 Then .Value = Format(.Value, "0.0") End If End With End Sub |
| １２３ さん、おはようございます >以下のコードをクラスモジュールに記述したら、一応希望通りになりました。 >これでいいのでしょうか？（色変更のコードの次に記述しました） ご希望どおりの動作をしてるなら、いいと思います。 特に問題はないと思うけど・・・。 |
| ▼つん さん： おはようございます どうも まだ 自信がなくて確認させていただきました。 ありがとうございました。 |