gelani قام بنشر نوفمبر 7, 2005 قام بنشر نوفمبر 7, 2005 كل عام وأنتم بخير عندي أربعة اعمدة من a1 الى d1 تحتوي على الاسم ونوع الاجازة ( عادية -اضطرارية -إستثنائية )المطلوب هو تعطيل الحقول في حالة إدخال قيمة في أي منهم . وللتوضيح إذا أدخلت قيمة في b1 لا يسمح بادخال بيانات في الخلايا c1 و d1 وكذلك بالنسبة لباقي الحقول حيث لايسمح الا بنوع واحد من الاجازات .
علي السحيب قام بنشر نوفمبر 8, 2005 قام بنشر نوفمبر 8, 2005 شاهد أخي المرفق التالي: الورقة الأولى تحتوي على ما طلبت الورقة الثانية تحتوي على طريقة أخرى لإختيار نوع الإجازة والتي أعتقد أنها أسهل في التعامل من الطريقة التي طرحتها. ___________________________.rar
gelani قام بنشر نوفمبر 10, 2005 الكاتب قام بنشر نوفمبر 10, 2005 شكراً للأستاذ علي السحيب فتحت الملف المرفق ولم يكن به سوى كود الترقيم التلقائي الموجود في العمود B سواء في الصفحة الأولى أو الثانية . يوجد خطأ ما حيث أنني عند تنزيل الملف تأتي رساله بوجود خطأ وطلب ارسال تقرير وعند الرفض يفتح الملف مع ظهور نص ( تم إصلاحه ) بالخط الأحمر . عزيزي الكود لم يعمل حيث أنني أستطيع إدراج ثلاثة أنواع من الإجازات في وقت واحد والمطلوب واحد من الثلاثة ومنع الادخال في الأخريات . تحياتي مرة أخرى لك ولجميع أعضاء المنتدى الرائع .
علي السحيب قام بنشر نوفمبر 11, 2005 قام بنشر نوفمبر 11, 2005 شيء أكثر من غريب .. لقد قمت بتجربة الكود وهو يعمل بشكل ممتاز بدون أي أخطاء .. أود من الأعضاء الذين قاموا بتحميل الملف المرفق أن يبدوا رأيهم فيه .. وأن يخبرونا إذا كانت هناك أي أخطاء. ربما تكون هناك مشكلة في مستوى الأمان. للتأكد أرجو الذهاب إلى القائمة أدوات ثم ماكرو ثم أمان ثم إختيار مستوى الأمان منخفض ثم إغلاق الملف وفتحه مرةً أخرى. شكراً للجميع.
الجزيرة قام بنشر نوفمبر 11, 2005 قام بنشر نوفمبر 11, 2005 شكرا لكم جميعاً قمت بتحميل الملف وفتحته وهو يعمل 100%
gelani قام بنشر نوفمبر 12, 2005 الكاتب قام بنشر نوفمبر 12, 2005 شىء محير فعلاً عند تحميل الملف المرفق تأتي رسالة طلب ارسال تقرير بالخطاء وعند الرفض يتم فتح الملف ولا يوجد به أي اكواد سوى كود الترقيم التلقائي كما أشرت لكم مسبقاً على الرغم من تخفيض مستوى الأمان . ارجو وضع الكود على الشاشة وسوف استخدمة وسأوافيكم بالنتائج . مع أطيب وأرق تحياتي وتقديري .
علي السحيب قام بنشر نوفمبر 12, 2005 قام بنشر نوفمبر 12, 2005 ضع الكود التالي في الورقة الأولى: Private Sub Worksheet_Change(ByVal Target As Range) If (Range("D" & Target.Row).Value <> "" And (Range("E" & Target.Row).Value <> "" Or Range("F" & Target.Row).Value <> "") _ Or Range("E" & Target.Row).Value <> "" And (Range("D" & Target.Row).Value <> "" Or Range("F" & Target.Row).Value <> "") _ Or Range("F" & Target.Row).Value <> "" And (Range("D" & Target.Row).Value <> "" Or Range("E" & Target.Row).Value <> "")) Then MsgBox "لا يمكنك إختيار أكثر من نوع للإجازة", vbExclamation, "عفــواً" Application.Undo Exit Sub End If End Sub
الردود الموصى بها