علي السحيب

طلبك يستدعي بعض الوقت .. وأنا مشغول هذه الأيام .. أنتظر ردي قريباً،

راجع الروابط التالية: http://www.officena.net/ib/index.php?showtopic=13646 http://www.officena.net/ib/index.php?showtopic=7486

يمكنك عمل ذلك من خلال التصفية التلقائية ... ويكون ذلك عبر الذهاب إلى القائمة بيانات ثم تصفية ثم تصفية تلقائية .. filter.rar

تم إضافة جميع ما طلبت، شاهد المرفق، ______________________________.rar

في هذه الحالة يتم عمل تعديل بسيط جداً على الكود .. وهو إضافة إسم الصفحة إلى مجال البحث داخل الدالة VLOOKUP .. Application.WorksheetFunction.VLookup(Cells(C, 1), Sheet1.[A2:B20], 2, 0) VLOOKUP__Activate_.rar

أولاً آسف على التأخر في الرد .. عند تصفحي لملفك الذي أرفقته .. تذكرت أني قمت في العام الماضي بتصميم الجدول الخاص بالمدرسين .. والموضوع موجود على الرابط التالي: http://www.officena.net/ib/index.php?showt...=9804&st=15 ونويت أن أكمل ما بدأته وهو تصميم الجدول الخاص بالفصول .. ولكني أنشغلت كثيراً خلال الأيام الماضية .. وسؤالك يحتاج إلى تفرغ وتركيز أكثر من غيره .. لذا لم أجد فرصة مناسبة للتفرغ له إلا اليوم .. أتمنى أن يكون ما في المرفق هو ما تريد فعلاً، _____________________.rar

أعتقد أن ما تريد موجود على الرابط التالي: http://www.officena.net/ib/index.php?showtopic=13212&hl

العفو أخي عمران .. فأنا لا أستحق كل هذا الثناء،

للإستفادة أكثر تفضل بزيارة الموضوع التالي والتعرف على كيفية عمل قائمة منسدلة بشكل مختلف عما تم إيرادة في هذه المشاركة: http://www.officena.net/ib/index.php?showtopic=9729&hl=

في حالة الرغبة في تشغيل الكود بمجرد الوقوف على الصفحة المعنية .. يتم تعديل الكود إلى التالي: Private Sub Worksheet_Activate() On Error GoTo Ali For C = 2 To 20 If Cells(C, 3) <> "" Then Cells(C, 4) = Application.WorksheetFunction.VLookup(Cells(C, 3), [A2:B20], 2, 0) End If Next Exit Sub Ali: If Err <> 0 Then MsgBox "هناك رقم أو أكثر غير موجودة في البيانات الأساسية", vbExclamation, "أرقام غير موجودة" Else Resume End If End Sub أتمنى أن يكون هذا هو ما تريد، VLOOKUP__Activate_.rar

الكود التالي ينفذ لك ما طلبت .. أتمنى أن يحوز على إستحسانك. Sub MyPrint2() On Error GoTo Ali Application.ScreenUpdating = False ActiveSheet.Rows.Hidden = False If Sheet1.ComboBox1 = Sheet1.[I16] Then ActiveSheet.PrintOut If Sheet1.ComboBox1 <> Sheet1.[I16] Then For A = 7 To 100 BR = ActiveSheet.Cells(A, 6) If BR <> Sheet1.ComboBox1 Then Rows(A).Hidden = True ActiveSheet.PrintOut End If Next Rows("38:39").Hidden = False Rows("52:53").Hidden = False End If Application.ScreenUpdating = True Ali: If Err <> 0 Then MsgBox "لا يوجد طابعة مرتبطة بهذا الجهاز!", vbCritical, "عفواً" ActiveSheet.Rows.Hidden = False End If End Sub Print.rar

الأخ Lord شكراً على ملاحظتك القيمة .. تم إجراء التعديل اللازم على المشاركة رقم 9 (الأكواد والمرفق) .. فما عليك سوى إعادة تحميل المرفق،

في هذه الحالة تتغير الصيغة إلى: =IF(A2="محمود",B2*3%,IF(OR(A2="علي",A2="حسن",A2="مصطفى",A2="كمال"),IF(B2*2.7%<2625,2625,B2*2.7%),"")) أو: =IF(A2="","",IF(A2="محمود",B2*3%,IF(B2*2.7%<2625,2625,B2*2.7%))) أو: =IF(A2="","",IF(A2<>"محمود",IF(B2*2.7%<2625,2625,B2*2.7%),B2*3%)) _______________________________.rar

لكن أي الملف الذي تحدثت عنه،

لحذف صف معين من الصفحة الحالية قم بإختيار أي خلية من ذلك الصف .. ثم قم بتشغيل الكود التالي: Sub Delete() Rows(ActiveCell.Row).Delete End Sub ولو أردنا حذف صف معين من جميع الصفحات الموجودة في الملف .. قم بإختيار أي خلية من ذلك الصف .. ثم قم بتشغيل الكود التالي: Sub DeleteAll() D = ActiveCell.Row With ActiveWorkbook For Each Sh In .Sheets Sh.Select Rows(D).Delete Next End With End Sub _____________________________________.rar

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

العلامة ; تظهر عادةً مع النسخة العربية للأوفيس .. والعلامة , تظهر مع النسخة الإنجليزية .. وبالنسبة لي فأنا أستخدم نسخة إنجليزية .. وقمت بنسخ الصيغة ولصقها في المنتدى .. فظهرت بالشكل الذي كانت عليه في الملف الذي لدي .. ولكن العلامة تتحول حسب لغة الأوفيس الذي لديك. أو في الصيغة هي OR

ويمكننا أيضاً أخي هادي إستخدام الدالة DATEDIF .. مباشرة لحساب فرق الشهور بين فترتين. =DATEDIF(A2,B2,"m")+1

ضع إحدى الصيغ التالية في الخلية C1: =IF(OR(A1="محمد",A1="محمود",A1="حسن"),B1*0.5%,IF(OR(A1="سمير",A1="رجب",A1="كمال",A1="جمال"),B1*1%,"")) =IF(A1="","",IF(OR(A1="محمد",A1="محمود",A1="حسن"),B1*0.5%,B1*1%)) =IF(A1="","",IF(OR(A1="سمير",A1="رجب",A1="كمال",A1="جمال"),B1*1%,B1*0.5%)) كما في الملف المرفق، IF___OR.rar

أخي الكريم elzaem_yousif بمجرد كتابة عبارة (قائمة منسدلة) في حقل البحث .. خرج لي أكثر من عشرين موضوع .. جميعهم متعلقين بالقائمة المنسدلة .. أخترت منهم أربعة مواضيع .. أعتقد أنهم يفون بالغرض. http://www.officena.net/ib/index.php?showtopic=4080 http://www.officena.net/ib/index.php?showtopic=10287 http://www.officena.net/ib/index.php?act=S...=14&t=12047 http://www.officena.net/ib/index.php?showtopic=12400 وأنا حثثتك على البحث في المنتدى لكي لا تتكرر المواضيع في المنتدى بدون فائدة تذكر .. وأنصحك بقراءة الموضوع المثبت والمسمى (نقاط هامة لمرتادي قسم الإكسل) لتتعرف أكثر على قواعد المشاركة في هذا المنتدى.

في البداية لابد من معرفة معنى كل من TRUE و FALSE بالعربية: TRUE = صح FALSE = خطاً وكما هو معروف بأن نتيجة الصيغة عادة ما تكون كلمة أو رقم أو تاريخ أو غير ذلك .. بينما في التنسيق الشرطي والتحقق من الصحة لا بد أن تكون النتيجة TRUE أو FALSE. ففي التنسيق الشرطي إذا كانت نتيجة الصيغة TRUE فإنه يتم تطبيق التنسيق على الخلية التي أنطبق عليها الشرط .. وأتت نتيجتها كـ TRUE .. أما الخلية التي أتت نتيجة صيغتها كـ FALSE فلا يطبق عليها التنسيق المحدد في التنسيق الشرطي . كما في المثال التالي: =COUNTIF($C$4:$C$8,C4) الصيغة السابقة تقوم على عد الخلايا في النطاق C4:C8 والتي تساوي في قيمتها الخلية C4 .. والنتيجة تكون رقم يمثل عدد الخلايا المساوية للخلية C4. أما إذا قمنا بإضافة 1< إلى الصيغة وأصبح هكذا: =COUNTIF($C$4:$C$8,C4)>1 فإن الصيغة تقوم بإختبار نتيجة الصيغة السابق ذكرها .. فإذا كانت أكبر من 1 .. فإنها ترجع النتيجة كـ TRUE .. أي أن الشرط قد أنطبق وأن عدد الخلايا المساوية للخلية C4 أكبر من 1 .. وبهذا يتم تطبيق التنسيق الشرطي عليها. أما إذا أتت النتيجة أصغر من أو تساوي 1 .. فإنها ترجع النتيجة كـ FALSE .. أي أن الشرط لم ينطبق وأن عدد الخلايا المساوية للخلية C4 أصغر من أو تساوي 1 .. وبهذا لا يتم تطبيق التنسيق الشرطي عليها. والعكس صحيح بالنسبة للتحقق من الصحة .. فعندما تخرج النتيجة FALSE .. يتم تطبيق التحقق من الصحة من خروج رسالة تنبيه وغيره .. وإذا أتت النتيجة كـ TRUE .. فلا يتم عمل أي شيء. كما هو واضح في المثال المرفق، __________________.rar

1- قم بفتح الملفين. 2- إضغط Alt + F11 3- إضغط مفتاح Ctrl .. وقم بسحب الموديول الذي تريد إلى الملف الذي تريد نسخه إليه.

من خلال نفس شرطي الأدوات إضغط على الأيقونة التي تشبه المثلث الهندسي .. ثم حدد التقويم .. بعد ذلك إضغط على الأيقونة التي بجانب الشكل الهندسي واسمها خصائص Properties .. ثم قم بكتابة إسم الخلية بجانب الخيار LinkedCell.

ولكن السهم الخاص بالقائمة المنسدلة في التحقق من الصحة لا يظهر عند الطباعة!!

إذا أردت حذف الصف بدلاً من إخفاءة .. للصفحة الحالية فقط .. تقوم بإستبدال السطر التالي في الكود: Rows(A).Hidden = True بهذا السطر: Rows(A).Delete وفي جميع الصفحات .. تقوم بإستبدال السطر التالي في الكود: Sh.Rows(A).Hidden = True بهذا السطر: Sh.Rows(A).Delete كما هو واضح في المرفق، ______________________.rar