برجاء المساعدة فى التعديل علي هذا الملف الصغير

[وليد عبدالغني]

عند محاولة الربط بين الفورم والاكسيل

يضيع تنسيق المعادلات بمجرد فتح الفورم

اوحتي بدون فتحة

فى الخلية b2 رقم وفى الخلية b3 رقم والمفروض b5 تساوي =SUM(B3:B4) ولكنها تعطي صفر

برجاء المساعدة

وشكرا

0.rar

[وليد عبدالغني]

وعند جعل الجمع فى الفورم منفصل

والجمع فى ورقة الاكسيل منفصل

يظهر الجمع فى الفورم صحيح وفى ورق الاكسيل صفر

لا اعرف السيب مع اني حذفت الربط بين خلية الجمع بالاكسيل والفورم

وشكرا

0-1.rar

[وائل احمد المصري]

انظر المرفق

0.rar

[وليد عبدالغني]

الف شكر

تسلم

[وائل احمد المصري]

بالتوفيق

[علي المصري]

بعد تجربة المرفق

بعد إذنك

تعديل بسيط استاذنا الفاضل في الكود

 

ليصبح كالتالي

Private Sub TextBox1_Change()
Sheets("Sheet1").Range("B3") = Val(TextBox1)
TextBox3 = Val(TextBox1) + Val(TextBox2)
End Sub
Private Sub TextBox2_Change()
Sheets("Sheet1").Range("B4") = Val(TextBox2)
TextBox3 = Val(TextBox1) + Val(TextBox2)
End Sub


Private Sub UserForm_Activate()
TextBox1 = Sheets("Sheet1").Range("B3")
TextBox2 = Sheets("Sheet1").Range("B4")
TextBox3 = Val(TextBox1) + Val(TextBox2)
End Sub

[وائل احمد المصري]

 

بعد تجربة المرفق

بعد إذنك

تعديل بسيط استاذنا الفاضل في الكود

 

ليصبح كالتالي

Private Sub TextBox1_Change()
Sheets("Sheet1").Range("B3") = Val(TextBox1)
TextBox3 = Val(TextBox1) + Val(TextBox2)
End Sub
Private Sub TextBox2_Change()
Sheets("Sheet1").Range("B4") = Val(TextBox2)
TextBox3 = Val(TextBox1) + Val(TextBox2)
End Sub


Private Sub UserForm_Activate()
TextBox1 = Sheets("Sheet1").Range("B3")
TextBox2 = Sheets("Sheet1").Range("B4")
TextBox3 = Val(TextBox1) + Val(TextBox2)
End Sub

نورت االموضوع وبارك الله فيك

[وليد عبدالغني]

تسلم استاذ علي المصري الف شكر

لكن بعد اذنكم لي سؤال

اذا كان الكود التالي ينفذ عملية الجمع مع تحريك الماوس

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox95.Value = Val(TextBox50) + Val(TextBox73) + Val(TextBox84)
TextBox94.Value = Val(TextBox51) + Val(TextBox72) + Val(TextBox83)
TextBox93.Value = Val(TextBox52) + Val(TextBox71) + Val(TextBox82)
TextBox92.Value = Val(TextBox53) + Val(TextBox70) + Val(TextBox81)
TextBox91.Value = Val(TextBox54) + Val(TextBox69) + Val(TextBox80)
TextBox90.Value = Val(TextBox55) + Val(TextBox68) + Val(TextBox79)
TextBox89.Value = Val(TextBox56) + Val(TextBox67) + Val(TextBox78)
TextBox88.Value = Val(TextBox57) + Val(TextBox66) + Val(TextBox77)
TextBox87.Value = Val(TextBox58) + Val(TextBox65) + Val(TextBox76)
TextBox85.Value = Val(TextBox60) + Val(TextBox63) + Val(TextBox97)
'----
TextBox86.Value = Val(TextBox59) + Val(TextBox64) + Val(TextBox75)
TextBox96.Value = Val(TextBox61) + Val(TextBox62) + Val(TextBox74)
'---------

TextBox59.Value = Val(TextBox50) + Val(TextBox51) + Val(TextBox52) + Val(TextBox53) + _
Val(TextBox54) + Val(TextBox55) + Val(TextBox56) + Val(TextBox57) + Val(TextBox58)
TextBox61.Value = Val(TextBox60) + Val(TextBox59)
'------
TextBox64.Value = Val(TextBox73) + Val(TextBox72) + Val(TextBox71) + Val(TextBox70) + _
Val(TextBox69) + Val(TextBox68) + Val(TextBox67) + Val(TextBox66) + Val(TextBox65)
TextBox62.Value = Val(TextBox64) + Val(TextBox63)
'-----------
TextBox75.Value = Val(TextBox84) + Val(TextBox83) + Val(TextBox82) + Val(TextBox81) + _
Val(TextBox80) + Val(TextBox79) + Val(TextBox78) + Val(TextBox77) + Val(TextBox76)
TextBox74.Value = Val(TextBox97) + Val(TextBox75)

End Sub

الايوجد كود اخر غير تحريك الموس لانة لا يظهر النتائج مباشرة

وكذلك غير وضع المعادلات في Private Sub TextBox80_Change() مثلا لانها تحتاج معادلات كثيرة

ولكم جزيل الشكر علي التعاون

جزاكم اللة خيرا

[وائل احمد المصري]

تسلم استاذ علي المصري الف شكر

لكن بعد اذنكم لي سؤال

اذا كان الكود التالي ينفذ عملية الجمع مع تحريك الماوس

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox95.Value = Val(TextBox50) + Val(TextBox73) + Val(TextBox84)

TextBox94.Value = Val(TextBox51) + Val(TextBox72) + Val(TextBox83)

TextBox93.Value = Val(TextBox52) + Val(TextBox71) + Val(TextBox82)

TextBox92.Value = Val(TextBox53) + Val(TextBox70) + Val(TextBox81)

TextBox91.Value = Val(TextBox54) + Val(TextBox69) + Val(TextBox80)

TextBox90.Value = Val(TextBox55) + Val(TextBox68) + Val(TextBox79)

TextBox89.Value = Val(TextBox56) + Val(TextBox67) + Val(TextBox78)

TextBox88.Value = Val(TextBox57) + Val(TextBox66) + Val(TextBox77)

TextBox87.Value = Val(TextBox58) + Val(TextBox65) + Val(TextBox76)

TextBox85.Value = Val(TextBox60) + Val(TextBox63) + Val(TextBox97)

'----

TextBox86.Value = Val(TextBox59) + Val(TextBox64) + Val(TextBox75)

TextBox96.Value = Val(TextBox61) + Val(TextBox62) + Val(TextBox74)

'---------

TextBox59.Value = Val(TextBox50) + Val(TextBox51) + Val(TextBox52) + Val(TextBox53) + _

Val(TextBox54) + Val(TextBox55) + Val(TextBox56) + Val(TextBox57) + Val(TextBox58)

TextBox61.Value = Val(TextBox60) + Val(TextBox59)

'------

TextBox64.Value = Val(TextBox73) + Val(TextBox72) + Val(TextBox71) + Val(TextBox70) + _

Val(TextBox69) + Val(TextBox68) + Val(TextBox67) + Val(TextBox66) + Val(TextBox65)

TextBox62.Value = Val(TextBox64) + Val(TextBox63)

'-----------

TextBox75.Value = Val(TextBox84) + Val(TextBox83) + Val(TextBox82) + Val(TextBox81) + _

Val(TextBox80) + Val(TextBox79) + Val(TextBox78) + Val(TextBox77) + Val(TextBox76)

TextBox74.Value = Val(TextBox97) + Val(TextBox75)

End Sub

الايوجد كود اخر غير تحريك الموس لانة لا يظهر النتائج مباشرة

وكذلك غير وضع المعادلات في Private Sub TextBox80_Change() مثلا لانها تحتاج معادلات كثيرة

ولكم جزيل الشكر علي التعاون

جزاكم اللة خيرا

اذا كنت تقصد انها تأخذ حيز كبير داخل كود التيكست بوكس فيمكنك وضعها في ميديول واستدعاء المديول من داخل التيكست بوكس لو ارفقت الملف الجديد ساريك كيف

تم تعديل أكتوبر 18, 2014 بواسطه وائل احمد المصري