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

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


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

الاخوه الكرام

ارجو مساعدتى فى الاتى اريد ان اجبر المستخدم على ادخال البيانات فى العمود الاول كما يلى ان تكون اول الكتابه ثلاث حروف(من a الى z) 1 بعد ذلك يجبر على اخال العلامه - 2 بعد ذلك يكون مجبر على دخال سته ارقام لااكثر ولا اقل 3 بعد ذلك يكون مجبر على ادخال العلامه / 4 بعد ذلك يكون مجبر على ادخال ثلاثه ارقام بدا من 1 الى 999 5

Book1.rar

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

  • الردود 51
  • Created
  • اخر رد

Top Posters In This Topic

ماشاء الله أستاذي فكرتها جميلة جدا لأني حاولت أعملها بالمعادلات عن طريق data validation كانت تستوعب شرطان أو ثلاثة وتتناقض في بند ال ( text) إلي هو (a:z)

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

ما شاء الله تبارك الله

لم تخطر ببالي هذه الفكرة

صار لي يومين احاول مع حدث التغيير في الخلية

زادك الله من علمه اخي ابو حنين

فكرة ممتازة

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

الاخوه الكرام

بارك الله فيكم

ولكن هل يمكن عمل ذلك بدون الحاجه لاستخدام يوزر فورم

كما اننى اريد تخصيص الكتابه فى العمود الاول فقط

بدايه من الخليه a10

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

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

كالعادة كود متميز اخي الفاضل / أبو حنين

وبعد اذن اخي الفاضل / عبدالله المجرب

هنا محاولة لكود اخر في حدث الورقة



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 And Target.Row > 9 Then

On Error GoTo 10

If Target = "" Then Exit Sub

If Len(Target) < 12 Then GoTo 10

If Len(Target) > 14 Then GoTo 10

If Asc(Mid(Target, 1, 1)) < 65 Then GoTo 10

If Asc(Mid(Target, 1, 1)) > 90 Then GoTo 10

If Asc(Mid(Target, 2, 1)) < 65 Then GoTo 10

If Asc(Mid(Target, 2, 1)) > 90 Then GoTo 10

If Asc(Mid(Target, 3, 1)) < 65 Then GoTo 10

If Asc(Mid(Target, 3, 1)) > 90 Then GoTo 10

If Mid(Target, 4, 7) * 1 > 0 Then GoTo 10

If Mid(Target, 11, 1) <> "/" Then GoTo 10

If Mid(Target, 12, 3) * 1 < 1 Then GoTo 10

GoTo 20

10

Target = ""

MsgBox "ادخال غير صحيح"

20

End If

في أمان الله

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

الاخ الفاضل

الخالدى

لقد حاول تنفيذ الكود لكن يوجد خطأ

الكود موجود بالشيت رقم 4

ارجو النظر الى الملف المرفق

والخطأ دائما يقف على كلمه END IF

Book1.rar

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

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

اخي ابراهيم في المشاركة السابقة سقط سهوا السطر الاخير من الكود

End Sub

ارجو قبول اعتذاري

مرفق الملف بعد التعديل

في أمان الله

قناع ادخال.rar

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

الاخ الخالدى

بارك الله فيك

ولكنى ارى انه لابد عند الادخال تكون الحروف كابس لوك

فهل يمكن التغاضى عن ذلك

بحيث عند الكتابه اكون حر سواء بالكتابه كابس لوك ام لا

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

الاخ الفاضل الخالدى

بارك الله فيك

ولكنى حاولت فهم محتويات الكود

ولم استطع فهمه

ارجو منك مساعدتى فى فهم حتويات الكود من خلال الشرح ان امكن

ولك كل الشكر والاحترام

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

السلام عليكم

ما شاء الله عليك استاذنا الكبير الخالدي

كود مميز

وبعد اذنك هذا تعديل على الكود ليقبل الحروف الصغيرة والكبيرة باللغة الانجليزية


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 And Target.Row > 9 Then

On Error GoTo 10

If Target = "" Then Exit Sub

If Len(Target) < 12 Then GoTo 10

If Len(Target) > 14 Then GoTo 10

If Asc(Mid(Target, 1, 1)) < 65 Then GoTo 10

If Asc(Mid(Target, 1, 1)) > 192 Then GoTo 10

If Asc(Mid(Target, 2, 1)) < 65 Then GoTo 10

If Asc(Mid(Target, 2, 1)) > 192 Then GoTo 10

If Asc(Mid(Target, 3, 1)) < 65 Then GoTo 10

If Asc(Mid(Target, 3, 1)) > 192 Then GoTo 10

If Mid(Target, 4, 7) * 1 > 0 Then GoTo 10

If Mid(Target, 11, 1) <> "/" Then GoTo 10

If Mid(Target, 12, 3) * 1 < 1 Then GoTo 10

GoTo 20

10

Target = ""

MsgBox "إدخال غير صحيح"

20

End If

End Sub

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

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

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

قمت بتعديلات في الكود اضافة الى بعض الشرح وكان جاهزا الى ان انقطاع الكهرباء حال دون وضعه في المنتدى

وكود الاستاذ عبدالله يفي بالغرض

لكن لوجود شرح بسيط ارفق الملف فربما يساعد اخي ابراهيم في اجراء تعديلات قد يحتاجها

في أمان الله

قناع ادخال2.rar

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

الاخوه الكرام والافاضل

الاخ الخالدى

الاخ عبد الله

بارك الله فيكم

ومشكورين على الكود الرائع

ولكنى اريد شيئا اخر

اتمنى ان احصل عليه

الا وهو استخراج الرقم الذى يلى العلامه /Book1.rar

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

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

أستاذي وسيدي الفاضل كريم الخلق والخلق رجب جاويش حفظك الله

ما شاء الله ولاقوة الا با لله بارك الله فيك وبك ونور بصرك وبصيرتك ور ضي عنك وأرضى خلقه عنك.

أبو أنس

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

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

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



سجل دخولك الان



×
×
  • اضف...

Important Information