علي السحيب

الصيغتان التاليتان في التنسيق الشرطي يقومات بهذه المهمة: هذه الصيغة تعمل مع الصفوف الفردية: =AND($A1<>"",MOD(ROW(),2)=1) وهذه الصيغة تعمل مع الصفوف الزوجية: =AND($A1<>"",MOD(ROW(),2)=0) وإذا أردنا أن يكون الصف التالي بدون تنسيق نستخدم صيغة واحدة فقط من الصيغتان المُشار إليهما. أرجوأ أن يكون هذا ما تريد، ___________________________________________.rar

في هذه الحالة نستخدم الصيغة التالية للوصول لما نريد: =COUNTIF(A2:A10,"<=90")+COUNTIF(A2:A10,">=70")-COUNT(A2:A10) __________________________________70__________________90.rar

القائمة المنسدلة الخاصة بالتصفية التلقائية لا تظهر أكثر من 1000 بيان من البيانات الموجودة في العمود .. وإذا كنت تريد تصفية البيانات الواقعة بعد الألف فالحل هو إستخدام الخاصية Custom أو تخصيص الموجودة في بداية القائمة المنسدلة الخاصة بالتصفية التلقائية .. وعند خروج مربع حوار التخصيص حدد هناك الشرط الذي تريد .. وستعمل معك التصفية بشكل ممتاز بإذن الله. على كل حال هذه فرصة للكثير من الأعضاء للتعرف على إمكانيات الخاصية Custom في التصفية التلقائية .. حيث أن إمكانياتها متقدمة ومفيدة جداً.

تم طرح هذه الفكرة من قبل في المنتدى والمشاركة موجودة على الرابط التالي: http://www.officena.net/ib/index.php?showtopic=12657&hl= على كل حال .. قمت بإجراء بعض التعديلات على الكود الموجود في الرابط السابق لكي يتناسب مع طلبك .. شاهد المرفق، ________________________________________.rar

نعم يمكن عمل ذلك من خلال الـ UserForm .. كما هو واضح في المرفق، وإذا كنت تريد تحديد عدد الخانات المسموح إدخالها في الخلية .. فإنك تستطيع عمل ذلك بدون UserForm .. وذلك من خلال القائمة Data ثم Validation .. ثم Text Length .. وقد تم تطبيق ذلك على الخلية A1 .. بحيث لا يمكن إدخال أكثر من 6 خانات. UserForm_TextBox_MaxLength.rar

تمت الإضافة، _______________________.rar

شاهد المرفق، test.rar

شاهد المرفق، IF_Conditon_In_VBA.rar

في هذه الحالة لديك حلين: 1- إعادة نسخ الصيغة الخاصة بالترقيم في كل مرة تقوم فيها بإدراج صف جديد. 2- إستخدام الترقيم التلقائي عن طريق الكود .. وأعتقد أن هذا الحل هو الأفضل والأسرع. وللترقيم التلقائي عن طريق الكود راجع المشاركة التالية .. والتي أعتقد أنك قد أطلعت عليها .. ولكنك لم تنتبه إلى أن ما تبحث عنه موجود هناك. http://www.officena.net/ib/index.php?showtopic=13866

نعم أخي halwim .. صمم الجداول المطلوبة لهذا المشروع وسنحاول مساعدتك قدر الإستطاعة.

الصيغة تعمل بشكل صحيح ومتكامل .. ولكن لا تضعها في أي من الخلايا المُشار إليها في الصيغة نفسها. وإذا كنت تود إنشاء صيغة معينه وتواجه بعض المصاعب .. أشرح فكرتك هنا .. وسيتم إن شاء الله تزويدك بالصيغة التي تحتاج.

أولاً .. آسف على التأخر في الرد .. ولكني لم أنتبه إلى ردك الثاني على هذه المشاركة .. على كل حال لا تغلق الحل بسيط جداً 1- ضع السطر التالي في بداية كود التصفية الذي تستخدمه مع مراعاة تغيير كلمة ali بكلمة السر التي لديك. ActiveSheet.Unprotect "ali" 2- ضع السطر التالي في نهاية كود التصفية الذي تستخدمه مع مراعاة تغيير كلمة ali بكلمة السر التي لديك. ActiveSheet.Protect "ali"

تسلم يا غالي،،

أود أولاً أن أعطيك معلومة صغيرة .. وهي أن الكود يعمل فقط عندما يكون التغيير يدوياً وليس عن طريق الدوال كالدالة Now وغيرها من الدوال التي تتحدث بشكل يومي .. وهذا ما أضطرني إلى إضافة كود آخر إلى الكود الأساسي .. فإني جعلت إدراج التاريخ في الخلية A4 .. يتم عن طريق الكود أثناء فتح الملف .. وهو يعمل بشكل أفضل من الدالة NOW.. مثلاً لو أغلقت يوم الأربعاء بتاريخ 04/11/2006 وعدد مرات التغيير في الخلية B4 هو 11 .. ولم تفتح الملف إلا يوم السبت القادم .. فستجد أن التاريخ الموجود في الخلية B4 هو تاريخ يوم السبت وهو 07/11/2006 .. وعدد مرات التغيير هو 14 .. أي أنه قام بإحتساب عدد الأيام التي لم تفتح فيها الملف (2) واليوم الذي فتحت الملف فيه (1) .. وأضاف الثلاثة أيام إلى 11 فأصبحت 14 .. أليس هذا هو ماتريد؟؟ نفس الجواب بالنسبة لطريقة عمل الدوال مع الأكواد المشروح في الإجابة الأولى .. ينطبق على هذه الحالة أيضاً ولتوضيح الفكرة أكثير .. وأود أن أسألك بعض الأسئلة أليس التغير في الخلية A10 .. يعتمد على التغير في مجموع خلايا العمود J؟؟ أيضاً أليس تغير العدد في الخلية B10 .. يعتمد على التغير في الخلية A10 .. ؟؟ إذاً خلايا العمود J والخلية A10 والخلية B10 .. مرتبطين ببعضهم البعض .. أليس كذلك؟؟ وبما أن التغيير لن يتم إلا على خلايا العمود J .. فإني جعلت التغير في الخلية B10 .. يعتمد على أي تغير في خلايا العمود J. أتمنى أن تكون إجابتي واضحة ومفهومة ..

تم إضافة التعديل اللازم على الكود: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Ali TC = Target.Column TR = Target.Row T = Target If TC = 1 And TR > 1 And TR < 31 Then For C = 1 To 6 If T = "" Then Cells(TR, C).Interior.ColorIndex = xlNone If T = 1 Then Cells(TR, C).Interior.ColorIndex = 3 If T = 2 Then Cells(TR, C).Interior.ColorIndex = 50 If T = 3 Then Cells(TR, C).Interior.ColorIndex = 41 Next End If Exit Sub Ali: If Err <> 0 Then Selection.EntireRow.Interior.ColorIndex = xlNone End Sub ________________.rar

هذه الحالة تظهر في حال كون الخلية التي تحتوي على الصيغة هي نفسها داخلة ضمن مراجع الصيغة .. كهذه الصيغة مثلاً .. =A1+B1 فلو وضعتها في الخلية A1 أو B1 .. ستظهر لك Circular Refrence .. أي أن أحد مراجع الصيغة وهو A1 أو B1 .. هو نفسه الخلية التي تحتوي على الصيغة. ولو أنك قمت بوضع نفس الصيغة في أي خلية أخرى غير الخلايا المذكورة .. لعلمت معك الصيغة بشكل طبيعي. آمل أن يكون الشرح واضحاً،

لا أعتقد بإمكانية ذلك .. لأن الأكواد والكثير من الأوامر تتوقف عن العمل في حال كون أحد الخلايا تحت التحرير.

حاضرين .. بس أحجز لي مقعدين على رحلتكم القادمة .. لاتصدق .. تراني أمزح معاك هههههه.

شكراً لكم جميعاً على الإطراء.

الدالة موجودة داخل العمود الخاص بالترقيم التسلسلي .. وإذا واجهتك أي صعوبة في كيفية نسخها على الملف الذي لديك .. أرفق ملفك أو أي ملف مشابه له ليتم التطبيق عليه.

قمت بتصميم كود الطباعة الجديد ولم أختبره لأن ليس لدي طابعة .. على كل حال جرب الكود وأخبرني .. أتمنى أن ينجح معك، ______________________________.rar

يتم ذلك عن طريق الكود التالي: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next TC = Target.Column TR = Target.Row T = Target If TC = 1 And TR > 1 And TR < 31 Then For C = 1 To 6 If T = "" Then Cells(TR, C).Interior.ColorIndex = xlNone If T = 1 Then Cells(TR, C).Interior.ColorIndex = 3 If T = 2 Then Cells(TR, C).Interior.ColorIndex = 50 If T = 3 Then Cells(TR, C).Interior.ColorIndex = 41 Next End If End Sub ________________.rar

يتم ذلك عن طريق الصيغة التالية: =IF(ISERROR(OFFSET('أسماء الركاب'!$A$1,MATCH('مخطط المقاعد'!F13,'أسماء الركاب'!$E$2:$E$50,0),0)),"هذا المقعد غير محجوز",OFFSET('أسماء الركاب'!$A$1,MATCH('مخطط المقاعد'!F13,'أسماء الركاب'!$E$2:$E$50,0),0)) ____________________.rar

تم وضع تعديل نهائي للملف .. أتمنى أن يحوز على إستحسانكم .. وآمن من الأعضاء الكرام تحميل المرفق من جديد للإطلاع على التعديلات التي جرت عليه،

إذا كان ولا بد من إستخدام التصفية التلقائية .. فاستخدم الصيغة التالية لعمل ترقيم تلقائي: =IF(B5="","",SUBTOTAL(3,$B$5:B5)) أتمنى أن يكون هذا هو المطلوب، _____________________________________.rar