كيف أمنع ادخال أحرف وغيرها عن الفورم

[قطان]

السلام عليكم

أخواني الأعزاء أتمنى شرحا بعدة أمثلة لعدم ادخال قيم معينة على فورم

فمثلا يجب ادخال اسم الصفحة في القائمة كرقم حصريا ؟؟؟؟

والشكر للأعضاء

والسلام ختام

Add_Remove_________.rar

[ابو اسامة العينبوسي]

السلام عليكم

بهذا الكود تمنع الاتى :-

*ادخال الاحرف(غير مجديه ان كان لديك اوراق عمل اسمها من احرف)

*لايقبل ارقام اقل من 0 (الموجبه فقط )

 ممكن تضيف الشرط التالى ايضا

اذا لم يكن الاسم المدخل مطابق لاى من اسماء الاوراق لديك

Private Sub ComboBox1_Change()
Dim x As Integer
x = Len(Me.ComboBox1)
   For i = 1 To x
    If Not IsNumeric(Mid(Me.ComboBox1, 1, x)) Or Mid(Me.ComboBox1, 1, x) < 0 Then
    MsgBox "ادخال خاطئ"
    Me.ComboBox1.Value = ""
    End If
   Next
End Sub

تم تعديل يوليو 22, 2009 بواسطه ابو اسامة العينبوسي

[قطان]

مشكور أخي الكريم أبو أسامة

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

والسلام ختام

[قطان]

أخي أبو أسامة أخواني الأعزاء

طبعا الكود أكثر من رائع

بس في مجال امنع ادخال الأرقام غير الصحيحة

والسلام ختام

[قطان]

للرفع

[ابو اسامة العينبوسي]

السلام عليكم

اضف هذا الشرط

 or Me.ComboBox1.Value - Int(Me.ComboBox1.Value) > 0 Then

تم تعديل يوليو 23, 2009 بواسطه ابو اسامة العينبوسي

[قطان]

أخي أبو أسامة

بمجرد إضافة الشرط الجديد أصبح يصدر خطأ

فهو لا يسمح لي بكتابة الرقم للآخر

وحتى لو كان حرفا يرفض التعرف على المدخل ويصدر الخطأ بمجرد ادخال حرف واحد فقط وكذلك ادخال السالب فقط ( لا مشكلة )

لكن على ما أعتقد انعكست المشكلة على ادخال الرقم

والسلام ختام

[ابو اسامة العينبوسي]

السلام عليكم

Private Sub ComboBox1_Change()
Dim x As Integer
x = Len(Me.ComboBox1)
 For i = 1 To x
    If Not IsNumeric(Mid(Me.ComboBox1, 1, x)) Or Mid(Me.ComboBox1, 1, x) < 0 Then
    MsgBox "ادخال خاطئ"
    Me.ComboBox1.Value = ""
    ElseIf IsNumeric(Me.ComboBox1.Value) And Me.ComboBox1.Value - Int(Me.ComboBox1.Value) > 0 Then
    MsgBox "ادخال خاطئ"
    Me.ComboBox1.Value = ""
    Exit Sub
    End If
   Next
End Sub

Add_Remove_________2.rar

[قطان]

السلام عليكم

مشكور أخي أبو أسامة

وعذرا فالكود اسابق صحيح لكن الخطأ كان عندي

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

والسلام ختام

[halwim]

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

تحياتي لجميع اعضاء منتدانا الرائع ..... عندي سؤال هل توجد دالة توضع في التحقق من الصحة لمنع المستخدم من كتابة النصوص في الخلايا؟

مثلا : الخلية A1 يجب ان تكون محتوياتها أرقام وليس أحرف - وفي حال كتابة الحروف فيها تخرج رسالة تحذيرية تفيدانه لايمكن كتابةأي نص - فقط يمكن ادخال الارقام.

وكذلك أتمنى أن أجد صيغة للعكس يعني مثلا الخلية A2 يجب أن تكون محتوياتها حروف بحيث لا يمكن كتابةالارقام فيها .

ارجو ان اجد الجواب عن طريق صيغة توضع في التحقق من الصحة وليس عن طريق الأكواد.

وشكرا

[يحيى حسين]

نعم يمكنك منع ادخال الاحرف في الخلية A1

و السماح فقط بادخال ارقام

ضع ال

دالة التالية في التحقق من صحة

 =ISNUMBER(A1)

[mhrrd]

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

اللهم اجعل صبره وصبر الصابرين الجنه

[halwim]

السلام عليكم .....

اخي العزيز (يحيى حسين)اشكركم على سرعةالرد فعلا هذا المطلوب جزاك الله الف خير

وبالنسبة للشق الثاني من السؤال(منع كتابةالارقام) بعد تتبعي للدالة التي أنت وضعت

حصلت أيضاعلى المطلوب وسوف أضع الصيغة اتماما للفائدة وهي :

=ISTEXT(A1)

طبعا توضع في التحقق من الصحة بعد اختيار (مخصص)

ودمتم