| |
私みたいなVBA初心者が発言してよいのかわかりませんが、
RoundDwonをつい先日初めて扱って、今回の件に興味をもったので、
ちょっと自分でもやってみました。
こたつねこさんの疑問はもっともな話で、
greenさんがなさりたいこと、つまりテキストボックスがいくつあって、
（一番最初の投稿に「TextBox10」とあったので…）
どの段階で小数点以下切り捨てにしたいのかわからないのですが。
次のようなサンプルを作ってみましたが、参考になりますでしょか。
…というか、初心者の作ったコードなので、参考だけにしてください(-_-;
-----
テキストボックス１とテキストボックス２に値を入力、
テキストボックス３がフォーカスされたときに、
テキストボックス１とテキストボックス２の和の小数点以下切り捨てを表示
→テキストボックス１と２に値を入力した段階では切り捨てしてません。
-----------
Private Sub TextBox3_Enter()
Dim Tbox1 As Long, Tbox2 As Long
Tbox1 = TextBox1.Text
Tbox2 = TextBox2.Text
TextBox3.Text = Application.RoundDown(Tbox1 + Tbox2, 0)
End Sub
-----------
（注意）
テキストボックス１、テキストボックス２が空欄のまま、
テキストボックス３をフォーカスするとエラーになります。
|
|
わさび
- 05/10/26(水) 14:17 -
