تحديد نمط الكتابة في صندوق الأدخال

[احمد زعل]

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

 

أولا

كل عام و انتم بألف خير

و أعاد الله هذا العيد عليكم و علينا بالمحبة و السرور

 

اخواني لدي سؤال وهو

 

هل يمكن تحديد نمط الكتابة في صندوق الأدخال

 

حيث لا يُسمح إلا بإدخال حروف باللغة العربية أو الانجليزية

أو لا يسمح إلا بإدخال أرقام باللغة هندية أو أنجليزية

حيث الصندوق الادخال عند كتابة أرقام بداخله فأنها تطبع باللغة الأنجليزية أو الهندية

 

 

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

 

 

 

[أبو حنــــين]

السلام عليكم

هذا الكود لكتابة الارقام فقط

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 46 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

[أبو حنــــين]

و لمعرقة باقي الحروف استعمل هذا الكود ثم اخترمنه  الارقام التي تناسب طلبك

هذا الكود هو فقط لمعرقة الحروف العربية و العلامات و غيرها يمكنك استغلاله

Private Sub CommandButton1_Click()
    For i = 1 To 255
    Cells(i, 1) = i

    '==============================
    Cells(i, 2) = Chr(i)
    '==============================

    Next
End Sub

[احمد زعل]

جزاك الله خيرا

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

أرجوا منك الرد و الافادة

شاكرا لكم حسن تعاونكم

[أبو حنــــين]

السلام عليكم

اعتقد ان الارقام العربية او الهندية ليس لها علاقة بالكود بل لها علاقة باعدادات اللغة

 فمثلا الرقم خمسة سواءا كتب بالعربية او غيرها فهذا لا يؤثر على عمل الكود

[إبراهيم ابوليله]

الاخ والاستاذ الفاضل

ابو حنين

دائما مانرى فيك الجهد المبذول لاسعاد الاخرين

كود رائع وجميل يضاف الى مكتبة الاكواد

واسمح لى بالمشاكه البسيطه

 

هذا ايضا كود لكتابة الارقام فقط

 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then KeyAscii = 0
End Sub

 

 

[إبراهيم ابوليله]

 

الاخ والاستاذ الفاضل

ابو حنين

دائما مانرى فيك الجهد المبذول لاسعاد الاخرين

كود رائع وجميل يضاف الى مكتبة الاكواد

واسمح لى بالمشاكه البسيطه

 

هذا ايضا كود لكتابة الارقام فقط

 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then KeyAscii = 0

End Sub

 

 

هذا ايضا كود لكتابة الحروف فقط

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0

End Sub

[أبو حنــــين]

أخي الفاضل : إبراهيم

جزاك الله خيرا على مروركم

حفظكم الله و رعاكم

[إبراهيم ابوليله]

الاخوه الافاضل

عزرا

فقد قمت بقلب استخدام الكودين

اى ان الكود المستخدم فى المشاركه رقم 6

هو خاص بكتابة الحروف فقط

والكود المستخدم فى المشاركه رقم 7

خاص بكتابة الارقام فقط

[احمد زعل]

شكرا لكم جميعا

 

ولكن بصدق المشكلة التي لدي أنه يوجد قاعدة بيانات كبيرة تحتوي على 3000 سجل

و أنا أريد أن أعرض بعض السجلات حسب شرط معين داخل listbox

ولقد نجحت في ذلك و الحمدلله و لكن المشكلة لدي أنه أحيانا يظهر بعض الارقام بالعربي و الجزء الاخر بالانجليزي داخل list

مع أنها جميعها باللغة الانجليزية داخل قاعدة البيانات (Excel)

 

فهل يوجد تنسيق معين ضمن نمط (format) أستطيع أن أحدد تنسيق الارقام عربي أو أنجليزي

 

و شكرا لكم