اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيف نظهر الأرقام فى مربعات النصوص على الفورم بالصيغة الهندية ؟


الردود الموصى بها

السلام عليكم

اخي كيماس

هنا مرفق ملف يشرح كيفية عمل تنسيقات لصناديق الادخال قد تستفيد منه

تنسيقات ارقام textbox.rar

رابط هذا التعليق
شارك

الأخ الفاضل عماد الحسامى

أشكرك لردك و للملف المفيد

الملف يركز على تنسيقات الأرقام و العملات و التواريخ

لكنى لاحظت أن التنسيق المشتمل على كلمة

دينار أردنى

باللغة العربية

ظهر عند التشغيل باللغة العربية

فاستفدت من ذلك استفادة عظيمة حلت المشكلة

جعلت النص الافتراضى لمربعات النصوص كلمة عربية كما بالصورة

image001.png

و هذه هى النتيجة الرائعة عند التشغيل

image002.jpg

أشكر لسيادتكم تعاونكم

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

لجعل ال TEXTBOX لا يقيل إلا الارقام ضع الكود التالي في داخل ال TEXTBOX

If Not IsNumeric(TextBox1.Value) Then TextBox1 = ""
أما اذا اردت ظهور رسالة لاعلام المستخدم بذلك استخدم الكود التالي
If Not IsNumeric(TextBox1.Value) Then

MsgBox "عذرا هذه الخانة مخصصة للارقام فقط"

TextBox1 = ""

End If

رابط هذا التعليق
شارك

جزاك الله خير الجزاء يا أستاذ حسامي

لدي سؤالين آخرين :

1- ما هو كود نتيجة الجمع في التكست بوكس بمعنى أن المطلوب في textbox1 ناتج مجموع textbox2 وtextbox3 وtextbox4 بشكل تلقائي بمجرد إدخال القيم في textbox2 وtextbox3 وtextbox4 أو في أحدها ؟

2- ما كود شرط إدخال أكبر من أو أصغر من في textbox1 ؟ بمعنى إذا أردت أن أدخل في textbox1 أكبر من أو تساوي 15 مثلاً بحيث لا يقبل الإعداد من 1 إلى 14

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

اخي العزيز

لجمع عدة مربعات نصوص وبناءا لمثالك ضع الكود التالي

TextBox1 = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)

في الحدث Exit لكل مربع نص كالاتي :
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox1 = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)

End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox1 = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)

End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox1 = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)

End Sub
أما في الشطر الثاني من سؤالك استخدم الكود التالي
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 If TextBox5.Value < 15 Then

 TextBox5 = ""

 MsgBox "عذرا الارقام المدخلة يجب ان تكون اكبر من 14"

End If

وهنا مرفق لمثال عمل لما تم شرحه

مثال textbox.rar

رابط هذا التعليق
شارك

سؤال رابع أستاذي / الحسامي :

هل يمكن اختيار - من قائمة Properties - شرط أن يكون TextBox3 ذا قيمة ( بمعنى يجب الا يكون فارغاً)؟

إذا لم يكن هذا متوفراً في قائمة Properties ، فما هو الكود الذي يعطي هذا الغرض ؟

أكرر شكري وتقدير لك أيها الأستاذ الكبير

أخوك وتلميذك

أبو سارة

تم تعديل بواسطه abusarah73
رابط هذا التعليق
شارك

ليس هذا قصدي

بل أقصد أن التكست بوكس في فورم ما يجب أن لا يكون فارغاً بمعنى يجب إدخال قيمة فبه

هل المطلوب واضح ؟

تم تعديل بواسطه abusarah73
رابط هذا التعليق
شارك

للرفع

للرفع للرفع

للرفع للرفع للرفع للرفع

للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع

للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع

للرفع

للرفع للرفع

للرفع للرفع للرفع للرفع

للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع

للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع

تم تعديل بواسطه abusarah73
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information