نايف - م قام بنشر مارس 18, 2022 مشاركة قام بنشر مارس 18, 2022 السلام عليكم عندي 3 تكست بوكس هي عبارة عن دفعات مالية من زبون كيف يمكن أن أجمع قيم هذه التكست بوكس بحيث تعرض الدفعات ال 3 و المجموع activecell = textbox1+textbox2+textbox3 textbox1=12 textbox2 =13 textbox3=14 تكون النتيجة في الخلية النشطة = 12+13+14 = 39 رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد حسن المحمد قام بنشر مارس 19, 2022 أفضل إجابة مشاركة قام بنشر مارس 19, 2022 السلام عليكم تفضل أخي الكريم 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 3 رابط هذا التعليق شارك More sharing options...
نايف - م قام بنشر أبريل 5, 2022 الكاتب مشاركة قام بنشر أبريل 5, 2022 مع الشكر الجزيل لك أخي الكريم و الشكر لكل من يتعب في سبيل الآخرين 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.