|
▼レッズ命 さん:
こんにちは
この処理を行うタイミングをどう考えておられるのか不明ですが、少なくとも
TextBox3の内容を足し算でいれかえてしまった後、その内容だけから足し算する前の
値を取り出すことは不可能です。
かりにTextBox2およびTextBox3の入力をトリガーとして処理を行う案です。
★ただし、このような構成は疑問です。
TextBox3 と TextBox2 は、それぞれ入力用としておき、足し算結果は、別のTextBoxなり
Labelなりに表示したほうが扱いやすいと思うのですが・・・
Option Explicit
Dim flag As Boolean
Private Sub TextBox2_AfterUpdate()
If Not flag Then exCal
End Sub
Private Sub TextBox3_AfterUpdate()
If Not flag Then exCal
End Sub
Private Sub exCal()
Dim t2 As Long, t3 As Long
flag = True
t2 = Val(TextBox2.Value)
t3 = Val(TextBox3.Value)
TextBox2.Value = t2 + t3
Range("B1").Formula = "=" & t3 & "+" & t2
flag = False
End Sub
|
|