جمع القيم في 3 تكست بوكس

[نايف - م]

السلام عليكم

عندي 3 تكست بوكس هي عبارة عن دفعات مالية من زبون

كيف يمكن أن أجمع قيم هذه التكست بوكس بحيث تعرض الدفعات ال 3 و المجموع

activecell = textbox1+textbox2+textbox3 

textbox1=12

textbox2 =13

textbox3=14

تكون النتيجة في الخلية النشطة = 12+13+14 = 39

[محمد حسن المحمد]

السلام عليكم

تفضل أخي الكريم

Private Sub CommandButton1_Click()
For i = 1 To 3
Sum = Sum + Val(Me("Textbox" & i))
Next i
Me.TextBox4.Value = Sum & ".00"
ActiveCell = TextBox4.Value
End Sub

Private Sub CommandButton2_Click()
For i = 1 To 3
Me("textbox" & i) = ""
Next i
End Sub

Private Sub TextBox1_Change()
For i = 1 To 3
Sum = Sum + Val(Me("Textbox" & i))
Next i
Me.TextBox4.Value = Sum & ".00"
End Sub

Private Sub TextBox2_Change()
For i = 1 To 3
Sum = Sum + Val(Me("Textbox" & i))
Next i
Me.TextBox4.Value = Sum & ".00"

End Sub

Private Sub TextBox3_Change()
For i = 1 To 3
Sum = Sum + Val(Me("Textbox" & i))
Next i
Me.TextBox4.Value = Sum & ".00"

End Sub

active cell.xlsm

[نايف - م]

مع الشكر الجزيل لك أخي الكريم و الشكر لكل من يتعب في سبيل الآخرين