|
私みたいなVBA初心者が発言してよいのかわかりませんが、
RoundDwonをつい先日初めて扱って、今回の件に興味をもったので、
ちょっと自分でもやってみました。
こたつねこさんの疑問はもっともな話で、
greenさんがなさりたいこと、つまりテキストボックスがいくつあって、
(一番最初の投稿に「TextBox10」とあったので…)
どの段階で小数点以下切り捨てにしたいのかわからないのですが。
次のようなサンプルを作ってみましたが、参考になりますでしょか。
…というか、初心者の作ったコードなので、参考だけにしてください(-_-;
-----
テキストボックス1とテキストボックス2に値を入力、
テキストボックス3がフォーカスされたときに、
テキストボックス1とテキストボックス2の和の小数点以下切り捨てを表示
→テキストボックス1と2に値を入力した段階では切り捨てしてません。
-----------
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
-----------
(注意)
テキストボックス1、テキストボックス2が空欄のまま、
テキストボックス3をフォーカスするとエラーになります。
|
|