نجوم المشاركات

هذا كود لاخفاء سطور كل ما عليك كتابة الصف الذى تريد اخفاء السطور من عنده فى الخلية b2 وكتابة الصف الأخير الذى تريد الاخفاء من عنده فى الخلية c2 انتظر الردود الكود بالملف المرفق اخفاء سطور.rar

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

السلام عليكم ورحمة الله وبركاته هنا محاولة للحل ارجو ان تنجح الكود المرفق يقوم بتلوين خلايا المعادلات المختلفة وكل مجموعة بلون Sub ALKHALEDI_اختلاف_المعادلات() Dim Rn As Range, Cr As Byte Set Rn = Intersect(Range([H6], Cells.SpecialCells(xlCellTypeLastCell)), [H:H]) Set Rn = Rn.SpecialCells(xlCellTypeFormulas, 23) Rn.Interior.ColorIndex = 0 On Error GoTo Error: For Cr = 3 To 56 Set Rn = Rn.ColumnDifferences(Rn(1, 1)) Rn.Interior.ColorIndex = Cr Next Error: Set Rn = Nothing End Sub ارجو ان يكون المطلوب في امان الله اختلاف المعادلات.rar

الأخ الكريم/ moxz السلام عليكم ورحمة الله وبركاته نرحب بك في منتدانا العامر - وبعد إستئذان الأخ الفاضل/ محمود_الشريف مجرد رأي - ولكم تقدير الأمر - إذا كان الملف هام لا ترسله إلا بعد تعهد منه بما تريد ولا تعتمد علي الحماية أبحث في هذا المنتدي فقط عن برامج أو طرق كسر/ أو إزالة الحماية عن ملفات الإكسل ستجد أنها تفوق طلبات الحماية بمراحل في المرفق تم تصميم المطلوب حسب طلبك - الملف بعد فتحه أول مرة يتعرف علي الهارد ولن يفتح في جهاز أو هارد سواه أنوه أنه لا توجد الحماية الكاملة - فقط وضعت الفكرة علها تفيد . تقبل تحياتي ملحوظة: كلمة السر لمحرر الأكواد (123) Book1-Protection Approach.rar

السلام عليكم ورحمة الله وبركاته جرب الكود التالي Sub Farz2() For Each S In Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")) With Range(S.Cells(2, 1), S.Cells(S.Rows.Count, 1).End(xlUp)(1, 18)) .Sort .Cells(3), 1, .Cells(4), , 1 .Sort .Cells(1), 1, .Cells(2), , 1 End With Next End Sub في امان الله ترتيب2.rar

السلام عليكم يتم الترتيب في الجدول الثاني بالدوال شاهد المرفق 2010 Rank - Copy.rar

أستاذى الحبيب / عبد الله باقشير تسلم ايديك أخى الحبيب / أبو حنين تسلم ايديك ولشرف المشاركة معكم هذا كود آخر لتظليل الأسماء المتشابهه بين عمودين فكرة الكود ليست نهائية ولكنها تحتاج لبعض التعديلات حيث تكون غير دقيقة عند كثرة الأسماء وتكرارها فى العمود الواحد ( ولكنها فكرة للبداية ) Sub ragab() Sheets("sheet1").UsedRange.Font.ColorIndex = 1 xx = 7 Application.ScreenUpdating = False For i = 1 To [A1000].End(xlUp).Row For ii = 0 To UBound(Split(Cells(i, 1))) x = Split(Cells(i, 1))(ii) For T = 1 To [B1000].End(xlUp).Row R = InStr(1, Range("B" & T), x) If R >= 1 Then Cells(T, 2).Characters(Start:=R, Length:=Len(x)).Font.ColorIndex = xx For TT = 1 To [A1000].End(xlUp).Row RR = InStr(1, Range("A" & TT), x) If RR >= 1 Then Cells(TT, 1).Characters(Start:=RR, Length:=Len(x)).Font.ColorIndex = xx End If Next End If Next xx = xx + 1 Next Next Application.ScreenUpdating = True End Sub تظليل الأسماء المتشابهه فى عمودين.rar

وما المطلوب أخى بالضبط أنا تحت ؟؟؟أمر حضرتك

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

ااقولك علي شيء بجد انا ماشي بمبدا ( اذا كان حبيبك عسل / مع احضار باقي المثل ) بمعني اني بتحرج اطلب والله لان حضرتك او السادة الاساتذه كتر الف خيرهم بيدو خبراتهم ومجهودهم ووقتهم لغيرهم مش عايز اتقل عليك يا اخ محمد انت والاستاذ محمود والاخت ام عبد الله وكتير من الاستاذه بتتعبو بجد لان انا عارف ان الحجات دي بتاخد وقت وتركيز الله يوفقك يارب اعمل الصح واللي انت شايفه صح هي فعلا ناقصة الحجات خد وقتك انا لسه قدامي ليوم السبت اللي جاي علشان اروح الكنترول واطبع الشيتات بس انا لي طلب صغير الخانه بتعات الراسب والناجح احنا فقط بنكتب ثلاث اشياء لان مفيش عندنا مقبول او باق احنا عندنا ناجح دور ثاني راسب ياريت لو تخليها مع خانة الكبري والصغري بحيث اذا وصل للدرجة الصغري يكون ناجح ولو ااقل يكون راسب ولو مش موجود يبقي دور ثاني وهي هتحتاج ان حضرتك تخليها مع كل مادة يعني كلامك بيطلع صح بس بعد التجربة معلش بقي مبتدا وكتر الف خيرك والله الواحد محرج كتير بجد

السلام عليكم ورحمة الله وبركاته 1 ) بعتذر عن التاخير 2 ) هذا شيت لاولى ثانوي وجاري باذن الله عمل المطلوب لثانية ثانوى وقبل التكملة هل تريد اي تعديل، حيث انني اشعر ان الشيتات ينقصه بعض البينات مثل درجات الترم الثاني وكذلك الشهادات وكذلك ترحيل الراسبين والناجحين والى ذلك.. 3 ) ممكن تصمملي شكل شهادة شيت ثانوي الادبي والعلمي لانفذ لك المطلوب درجات اولي 2014.rar

ضوابط وقواعد يحتاجها المسلم في زمن الفتن لا تتبع العاطفة وقيِّدها بالشرع التثبت في النقل وعدم التعجل إيَّاك والجهل واحرص على العلم والتعلم عند الاختلاف، إياك والصغار والزم الكبار إياك والأمور الحادثة والزم السنة إياك أن تقترب من الفتنة وابتعد عنها منع الفتنة أسهل من رفعها احذر الهوى عندما تأخذ بالفتوى وخذ بما أضاءه الدليل إن كنت عامياً لا تأخذ الفتوى بالتشهي وقلِّد الأعلم إيَّاك والتقلب واثبت على الدين بنور القرآن والسنة لا تنازع النصوص بما تريد واجعل ما تريد على وفق النصوص احذر الفرقة والزم الجماعة إياك والظلمة والشر والعذاب والزم العدل وأهله والخير وأهله لا تتطلب الفتن واستعذ بالله من شرها لا تغتر بزخرفة الفتن وانظر إلى حقيقتها ببصيرة المؤمن احذر الغلو والزم الاعتدال احذر العقوق وأدي الحقوق احذر قصر النظر واعرف الحق بأصله وأثره من شرح كتاب الفتن وأشراط الساعة من صحيح الإمام مسلم

فعلا أخى ( GHREEB197 ) المعادلة السابقة لو أضيف لها شرط أخر سوف يثقل من المعادلة حتى لاتكرر الشرط المكرر وهذه معادلة أخرى أعتقد ستحقق المطلوب وأبسط من معادلات الصفيف حتى لاتثقل ملفك معادلة مناسبة 2.rar

عفوا أخى الغالى ( Hesham Rayan ) لم ألحظ الأميل إلا الأن لكثرة إنشغالى فأليك البرنامج لعله المطلوب عفوا أخى نظرا لكبر حجم الملف تم تقسيمة إلى جزئيين ومن ثم سيتم وضعهم معا ثم يتم فك الضغط عنهم تقبل تحيات : أخيك شئون الموظفيين الادارة الهندسية.part1.rar شئون الموظفيين الادارة الهندسية.part2.rar

أخى الحبيب ( عباس ) كلماتك دائما رائعة ومشجعة وتدفع دائما للأمام ، أما عن معادلاتى فأنا أعشقها وأعشق النتيجة التى تحققها وكان دافعى الأول لعشقها تعلقى بأساتذتى الذى تعلمت منهم جمال المعادلة وكيفية تركيبها فكنت أبعد عن الحل المباشر وأبحث عن بدائل الحلول الغريبة وتحضرنى مقولة لأستاذى ( يحيى حسين ) أننى أخاف من سؤ التفكير بمعنى ( رغبتى فى البحث عن غريب المعادلات أصبحت تبعدنى عن الحلول المباشرة ) والسهلة فى نفس الوقت حتى عندما أرى مشاركة بجانب مشاركتى من زميل أوجد نفس الحل بأسلوب أبسط أصبح هذا يصيبنى بهلع مقولة أستاذى ( يحيى حسين ) السابقة لذلك أخى الحبيب ( عباس ) لاأريدك أن تتأثر بأحد بشكل كامل ولكن أنظر وتعلم وفكر وكن أنت حتى لاتبتعد عن العقلانية والبساطة وأخيرا تقبل تحياتى

أليك أخى ماطلبت وتعتبر من روائع المعادلات وهناك صيغة أوجدتها للفرز والدمج معا فى معادلة واحدة ولكن وجدت حجمها كبر منى نسبيا ففضلت الأنتظار عليها حتى أقوم بتصغير حجمها قليلا تقبل تحيات : أخيك فرز ودمج الخلايا باستخدام صيغة صفيف.rar

أخى الحبيب ( محمود) بالنسبة للمعادلة الموجودة فى أخر مرفق لى قمت برفعة (vlookup مع أربع شروط ) هى معادلة صفيف وهنا نترك هذه الملحوظة الأن لأننا سوف نعود لها فى الشرح أولا - سبق وأن أوضحت لحضرتك مكون دالة ( vlookup ) وهى (table _array;lookup - value;col_index;range_lookup ) أى معادلة لابد لكى تحقق القيمة المطلوبة لابد وأن تقوم بجلبة تلك الشروط ونظرا لأن المعادلة التى نحن بصددها معادلة ( صفيف ) أى تتعامل مع عدد من البيانات سواء عمود أوجدول فهى تقوم بتوليد مجموعة من البيانات وتقوم بمقارنتها بالشرط المطلوب فإذا لم يصادفة فى المدى يعود بالقيمة ( false ) أو ( 0 ) أما إدا وجده ضمن المدى فيعود بالقيمة ( true ) أو (1) وهكذا ....... دعنا الأن نعود إلى الدالة التى نحن بصدد شرحها ودعنا نرى شكلها ومحتواها الداخلى وفقا لهذا التحليل: ستجدها كالأتى: =VLOOKUP($F$1;IF(({"Omar Effendi";"Sednawy";"Shamla";"Mahalla El Kobra"}=$F$1)*({"Medium";"Large";"Medium";"Large"}=$H$1)*({"men";"women";"baby";"men"}=$I$1);$A$2:$E$5;"");5;FALSE) وهذا الشكل يوضح ماقمت بإيضاحة فالنمسك الشرط الأول عل سبيل المثال تجد إننى عندما قمت بإختيار مثلا محل ( شملا ) فقد ولدت صفيف محتواة (عمر أفندى، صيدناوى،شملا، المحلة الكبرى ) ونظرا لأن الشرط الذى إخترتة من القائمة المنسدلة هو ( شملا ) ستجد أنه عندما تقابل أى شرط داخل الصفيف غير ماقمت بإختيارة ستعطى ("" ) إلى أن تقابل شملا فتعطى (1) أى سيكون الصفيف هكذا { ""; "Shamla"; ""; ""} فيعطى ( true ) أولايصادف أى قيمة ويكون { ""; ""; ""; ""} ويعطى ( false ) وهكذا بالنسبة لباقى الشروط وأرجو أن يكون التوضيح به شئ يفيدك تقبل تحيات : أخيك

أولا - هل هذا هو ماتريدة ؟ أم لا ؟ ثانيا أليك المطلوب test5.rar

ألف مبرووووووووووووووك أخى الحبيب وإلى مزيدا من النجاحات والتقدم

أخى الحبيب ( محمود الأسيوطى ) والله الذى لاأله إلا هو لمشاعرك وكلماتك لهى الأجمل والأروع من أى عمل فى الدنيا بارك الله فيك على مشاعرك النبيلة هذه تقبل تحيات : أخيـــــــــــك

أخى الحبيب ( a12 ) الفكرة كلها تكمن فى ال ( check box ) نفسها بمعنى أنه عند إدراجها فى خلية تكون قيمة الخلية فى حالة ( وضع العلامة داخل ) check box) =true ) ، وفى حالة حذفها تكون ( false ) وهنا تم إستغلال هذه الخاصية بوضع معادلة فى ( conditional formmat ) إذا كانت الخلية الموجودة بها ال check box=true لون السطر بلون الذى تختارة وإذا رفعنا العلامة من check box وساوت الخلية false يتم عودة الصف لوضعة الأول وهكذا ............................ألخ أرجو أن يكون الشرح واضح وبمتابعة المرفق سيكون الشرح أوضح ملحوظة هامة : لعدم إظهار كلمة ( false ) ، ( true ) فى الخلية تم عمل formatt cell للخلية الموجود بها ال check box عن طريق إختيار custom وكتابة داخل المستطيل الموجود بها ( ;;; ) 3علامات منقوطة كما هو موضح لأخفاء الكلمة وتم عمل ذلك أيضا لإخفاء عمود الأسماء للقائمة المنسدلة بالعمود ( p ) تقبل تحياتى

أخي العزيز (asdwasd) معلش الطلبات كثيرة ومحتاجة وقت ولكن أستطعت بما تيسر لي من وقت أن أنهي الجزء الأكبر وهو ترحيل الراسب والناجح في شيتات منفصلة عن طريق المعادلات لأن الأكواد لوبحثت سوف تجد منها الكثير وجميعها لأساتذة عظام يصعب علي عمل أفضل منها أليك المرفق وأنا تحت أمرك في أي شئ أخر 2 wallled.rar