قطان قام بنشر يوليو 22, 2009 مشاركة قام بنشر يوليو 22, 2009 السلام عليكم أخواني الأعزاء أتمنى شرحا بعدة أمثلة لعدم ادخال قيم معينة على فورم فمثلا يجب ادخال اسم الصفحة في القائمة كرقم حصريا ؟؟؟؟ والشكر للأعضاء والسلام ختام Add_Remove_________.rar رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 22, 2009 مشاركة قام بنشر يوليو 22, 2009 (معدل) السلام عليكم بهذا الكود تمنع الاتى :- *ادخال الاحرف(غير مجديه ان كان لديك اوراق عمل اسمها من احرف) *لايقبل ارقام اقل من 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 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
قطان قام بنشر يوليو 22, 2009 الكاتب مشاركة قام بنشر يوليو 22, 2009 مشكور أخي الكريم أبو أسامة وجزاك الله كل خير والسلام ختام رابط هذا التعليق شارك More sharing options...
قطان قام بنشر يوليو 22, 2009 الكاتب مشاركة قام بنشر يوليو 22, 2009 أخي أبو أسامة أخواني الأعزاء طبعا الكود أكثر من رائع بس في مجال امنع ادخال الأرقام غير الصحيحة والسلام ختام رابط هذا التعليق شارك More sharing options...
قطان قام بنشر يوليو 23, 2009 الكاتب مشاركة قام بنشر يوليو 23, 2009 للرفع رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 23, 2009 مشاركة قام بنشر يوليو 23, 2009 (معدل) السلام عليكم اضف هذا الشرط or Me.ComboBox1.Value - Int(Me.ComboBox1.Value) > 0 Then تم تعديل يوليو 23, 2009 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
قطان قام بنشر يوليو 23, 2009 الكاتب مشاركة قام بنشر يوليو 23, 2009 أخي أبو أسامة بمجرد إضافة الشرط الجديد أصبح يصدر خطأ فهو لا يسمح لي بكتابة الرقم للآخر وحتى لو كان حرفا يرفض التعرف على المدخل ويصدر الخطأ بمجرد ادخال حرف واحد فقط وكذلك ادخال السالب فقط ( لا مشكلة ) لكن على ما أعتقد انعكست المشكلة على ادخال الرقم والسلام ختام رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 23, 2009 مشاركة قام بنشر يوليو 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 رابط هذا التعليق شارك More sharing options...
قطان قام بنشر يوليو 23, 2009 الكاتب مشاركة قام بنشر يوليو 23, 2009 السلام عليكم مشكور أخي أبو أسامة وعذرا فالكود اسابق صحيح لكن الخطأ كان عندي وجزاك الله خيرا على صبرك علي والسلام ختام رابط هذا التعليق شارك More sharing options...
halwim قام بنشر سبتمبر 10, 2009 مشاركة قام بنشر سبتمبر 10, 2009 السلام عليكم ورحمة الله وبركاته .... تحياتي لجميع اعضاء منتدانا الرائع ..... عندي سؤال هل توجد دالة توضع في التحقق من الصحة لمنع المستخدم من كتابة النصوص في الخلايا؟ مثلا : الخلية A1 يجب ان تكون محتوياتها أرقام وليس أحرف - وفي حال كتابة الحروف فيها تخرج رسالة تحذيرية تفيدانه لايمكن كتابةأي نص - فقط يمكن ادخال الارقام. وكذلك أتمنى أن أجد صيغة للعكس يعني مثلا الخلية A2 يجب أن تكون محتوياتها حروف بحيث لا يمكن كتابةالارقام فيها . ارجو ان اجد الجواب عن طريق صيغة توضع في التحقق من الصحة وليس عن طريق الأكواد. وشكرا رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر سبتمبر 10, 2009 مشاركة قام بنشر سبتمبر 10, 2009 نعم يمكنك منع ادخال الاحرف في الخلية A1 و السماح فقط بادخال ارقام ضع ال دالة التالية في التحقق من صحة =ISNUMBER(A1) رابط هذا التعليق شارك More sharing options...
mhrrd قام بنشر سبتمبر 10, 2009 مشاركة قام بنشر سبتمبر 10, 2009 وجزاك الله خيرا على صبرك علي اللهم اجعل صبره وصبر الصابرين الجنه رابط هذا التعليق شارك More sharing options...
halwim قام بنشر سبتمبر 11, 2009 مشاركة قام بنشر سبتمبر 11, 2009 السلام عليكم ..... اخي العزيز (يحيى حسين)اشكركم على سرعةالرد فعلا هذا المطلوب جزاك الله الف خير وبالنسبة للشق الثاني من السؤال(منع كتابةالارقام) بعد تتبعي للدالة التي أنت وضعت حصلت أيضاعلى المطلوب وسوف أضع الصيغة اتماما للفائدة وهي : =ISTEXT(A1) طبعا توضع في التحقق من الصحة بعد اختيار (مخصص) ودمتم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.