ادخال الارقام للشيت عن طريق الفورم

[عادل حنفي]

اخواني اقوم بعمل ملف لادخال ارقام عن طريق فورم للشيت

المشكله التي واجهتني هي ان الارقام التي تكتب بالفورم

تنتقل الي الشيت بالصيغه النصيه و عند جمع هذه القيم عن طريق sum

تكون النتيجه صفر فهل يوجد حل لذلك عن طريق كود لكي يتم اعتبار القيمه

المدخله من الفورم انها رقم و يتم التعامل معها علي هذا الاساس

مرفق لكم مثال لذلك آملا وجود الحل ان شاء الله

Exampel.rar

[omar elhosseini]

الاخ aah_aah2008

استخدم الاسلوب التالى

.Offset(1, 0) = Val(TextBox1)

[عادل حنفي]

اخي العزيز ابو تامر

اشكرك لسرعة الرد

دائما سباق بالخير

تحياتي

[عادل حنفي]

اخي العزيز قمت بالتجربه للكود وتمت حل المشكله و الحمد لله

سؤال اخير كيف اجعل ال textbox في الفورم يقرب القيمه التي بداخله

لاقرب رقمين عشرين مثلا ولك كل شكري و تقديري

[ابوالزوز]

السلام عليكم ,,

إليك أخي الكود التالي :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "#.00")
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2, "#.00")
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox13 = Format(TextBox3, "#.00")
End Sub

تم تعديل أبريل 30, 2008 بواسطه abuzzouz

[رفيق محمد]

بعد قراءتي لهذه المشاركات

قررت

----------------------

لازم ادرس اكواد VB

شكرا لكم على المعلومات القيمة

[عادل حنفي]

اشكرك اخي Abuzzouz