ناصر سعيد

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

كود طباعه مطاط رائع جزى الله من وضعه بكل خير وحفظه الله Sub طباعة_فصل() Dim LatR As Long LatR = Range("C:C").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 With ActiveSheet .PageSetup.PrintArea = "A3:M" & LatR .PrintOut End With End Sub لطباعه صفحة قائمه الفصل التي تختلف في عدد صفوفها من فصل لاخر

كود طباعه مطاط رائع جزى الله من وضعه بكل خير وحفظه الله Sub طباعة_فصل() Dim LatR As Long LatR = Range("C:C").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 With ActiveSheet .PageSetup.PrintArea = "A3:M" & LatR .PrintOut End With End Sub لطباعه صفحة قائمه الفصل التي تختلف في عدد صفوفها من فصل لاخر

حفظك الله ورعاك وبارك فيك يا ملك المعادلات بن عليه حاجي =IF(ISERROR(SEARCH(M$6;$AK9;1));"";"دور ثان") =IF(ISERROR(FIND(J$6;$AK10;1));"";"دور ثان") معادلتين من معادلات البحث مختلفتين ولكنهما يؤديان نفس الغرض . . بارك الله فيك يا بن عليه

هل يوجد معادلات اخرى للبحث ؟ .. ليكون الموضوع مرجعا للجميع

المعلومات الأساسية للدالة FIND التصنيف : Text وظيفة الدالة : البحث عن قيمة محددة داخل محتويات احد الخلايا الشكل العام للدالة =FIND(find_text,within_text,start_num) أجزاء الدالة : Find Text : القيمة التي يتم البحث عنها Within Text : النص الذي يتم البحث فيه Start Number : موضع بداية عملية البحث ملاحظات على الدالة FIND يمكن ان تكون Within Text مرجع خلية / قيمة نصية تم إدخالها مباشرة في الدالة (بين علامتي التنصيص) / نتيجة دالة اخرى إذا ما كانت قيمة البحث لا توجد في الخلية التي يتم البحث بها نحصل على الخطأ VALUE# تتأثر نتيجة البحث بحالة الأحرف (في اللغة الإنجليزية) فالبحث عن M لا يساوي البحث عن m إذا كان Start Number أكبر من طول محتويات الخلية نحصل على الخطأ VALUE# خلال الفيديو التالي ستجد أن الشرح يتم من خلال البحث عن حرف ضمن القيمة النصية، إلا ان الدالة تستطيع البحث عن كلمة داخل النص البحث عن القيمة mo في القيمة mohammad mortada؛ النتيجة = 1 =FIND(“mo”;”mohammad mortada”) البحث عن القيمة mor في القيمة mohammad mortada؛ النتيجة = 10 =FIND(“mor”;”mohammad mortada”)

وعليكم السلام ورحمة الله وبركاته حفظك الله ورعاك وبارك فيك يا ملك المعادلات بن عليه حاجي =IF(ISERROR(SEARCH(M$6;$AK9;1));"";"دور ثان") =IF(ISERROR(FIND(J$6;$AK10;1));"";"دور ثان") معادلتين من معادلات البحث مختلفتين ولكنهما يؤديان نفس الغرض . . بارك الله فيك يا بن عليه

بسم الله الرحمن الرحيم احبابي في الله جزاكم الله خيرا على كل ماتقدمونه من اعمال قيمه في الخير وبعد: الصف السادس من الشيت به اسماء المواد المطلوب البحث عن نفس الماده في العمود AK كل صف بما يقابله في العمود AK فان وجد نفس اسم الماده الموجوده بالصف السادس يكتب دور تان وان لم يجدها يكتب الرقم الموجود في صفحه الدور التاني الخليه الصفراء وجزاكم الله كل خير معادله البحث عن كلمه وسط جمله.rar

تحديد موضع نص محدد داخل محتويات الخلية - الدالة FIND

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

جزاك الله كل خير

انا لااقصد الاستدعاءات اخي الكريم وانما اقصد المعادلات اريد عملها بالكود ونلغي المعادلات الموجوده بالمشاركه 2 او بمعنى ادق نلغي المعادلات الموجوده في صفحة درجات دور تان ونعملها كود يؤدي نفس الغرض ================== جزاك الله خيرا

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

=*=*=*=*=*= =IFERROR(IF(FIND($AH$6;AK9);"دورثان");'تحريرى دور ثان'!P9) =IF(AO9="ناجح";"ناجح";IF(AND(AO9="راسب";F9="مستجد");"راسب";IF(AND(AO9="غائب";F9>="متسرب");"متسرب";IF(AND(AO9="راسب";F9>="معيد");"ناجح حكما";IF(AND(AO9="غائب";F9>="معيد");"ناجح حكما";IF(AND(AO9="غائب";F9>="مستجد");"راسب";IF(AND(AO9="راسب";F9>="متسرب");"راسب"))))))) =IF(OR(COUNTIF(G9:AJ9;"غ")=20;COUNTIF(G9:AJ9;0)=20);"غائب";IF(C9="";"";IF(AS9*AT9*AU9=0;"راسب";"ناجح"))) بعضا من المعادلات الرائعه المستخدمه في الملف

بسم الله الرحمن الرحيم =*=*=*=*= نجد كثيرا شيتات كنترول تظهر نتيجه الطلاب وشهاداتهم والاحصائيات الخاصه بهم ونادرا مانجد في هذه الشيتات .. شيت الدور التاني في هذ الملف الرائع سيجعلك تعمل شيت للدور التاني بكل سهوله ان شاء الله ماعليك الا ان تستدعي نتائج الظلاب الذين لهم حق دخول الدور التاني فقط ونكن بالعرفان للاستاذ المحترم عبد الباري والاستاذ المحترم سليم حاصبيا جزى الله كل من ساهم في اخراج هذا الملف للنور بكل خير شيت الدور الثاني.rar

Sub Sort_Male() Dim lr As Long lr = Range("E" & Rows.Count).End(xlUp).Row Range("E7:Q" & lr).Sort Key1:=Range("F7:F" & lr), _ Order1:=2, Header:=xlNo End Sub ضع هذا الكود في موديول واعمل له .. زر بصفحه بيانات المصدر لاتقلق هذا فرز ليأتي بالذكور اولا واذا اردت ان تجعله يأتي بالبنات اولا فما عليك الا ان تغير الرقم 2 الموجود في الكود وتجعله الرقم 1

=*=*=*=*=*=*=*= وبخصوص طلبك البنات اولا ادعو الله ان تكون ايجابيا في مدرستك وتجعل الاولاد اولا .. وان لم تتمكن الان فعندما تواتيك الفرصه لاتنسى ذلك ساحضر لك كودا للابجده ان شاء الله رب العالمين

جزاك الله كل خير ايها الاستاذ المحترم يا سر خليل وبعد : اخي السائل الكريم الكود من اسهل الاكواد وينفع لاي مرحله تريدها وينفع تغير ماتشاء من اسماء الاعمدة اما بالنسبه لطلبك , Array(23, 5, 15, 7, 16)) ابحث عن هذا الجزء ستجده مرتين غير الرقم 7 بالرقم 6 وشكرا مامعنى ذلك ؟ اننا يحثنا في صفحة بيانات المصدر عن رقم العمود المطلوب ادراجه في القائمه ووضعناه في مكانه في الكود

خطوط ولا اروع هديه طيبه ان شاء الله ستجعل صوره القائمه غايه في الروعه خط.rar ========== رابط لخطوط غايه في الجمال والروعه https://up.top4top.net/downloadf-3206k2ma1-rar.html

ملف رائع لتوزيع الطلاب على الفصول للنابغه ياسر خليل .. بارك الله فيه ================ تكوين فصول للمحترم ياســـــــــــــــــــر خليل.rar

بسم الله الرحمن الرحيم هذا ملف به كود لتوزيع طلاب المدارس على الفصول .. اكثر من رائع لسهولته وسرعته لانه يعمل بالمصفوفات صاحب هذا الكود هو المبدع ياسر خليل .. جزاه الله عنا كل خير وبارك في كل واحد يخلص في عمله من اجل رحمة الله تعالى تكوين فصول للمحترم ياســـــــــــــــــــر خليل.rar Option Explicit Sub ClassesListsUsingArrays() 'Author : YasserKhalil 'Release : 30 - 06 - 2017 '------------------------ Dim ws As Worksheet Dim sh As Worksheet Dim arr As Variant Dim temp As Variant Dim i As Long Dim j As Long Dim p As Long Dim n As Long Dim str As String 'لمنع اهتزاز الشاشه Application.ScreenUpdating = False 'متغير اسم ورقه المصدر Set ws = Sheets("بيانات الطلبة") 'متغير اسم ورقه الهدف Set sh = Sheets("فصول") 'مسح بيانات قائمه الفصل sh.Range("B8:F43,H8:L43").ClearContents 'مدى صفوف قائمه الفصل وان تكون عدم مخفيه sh.Rows("8:43").Hidden = False 'خليه القائمه المنسدله لاسماء الفصول str = sh.Range("L1").Value 'مدى صفحة المصدر arr = ws.Range("A7:W" & ws.Range("A" & Rows.Count).End(xlUp).Row).Value ' يقوم بتعيين أبعاد المصفوفة (مصفوفة النتائج) 'لتكون بنفس أبعاد مصفوفة البيانات من حيث عدد الصفوف وعدد الأعمدة ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) 'مطابقة القيمة الموجودة في العمود رقم 22 (الذي يحتوي على رقم الفصل) 'مع الشرط في الخلية L1 For i = 1 To UBound(arr, 1) 'متغير رقم عمود الفصل If arr(i, 22) = str Then 'يزيد المتغير P بمقدار واحد p = p + 1 For j = 1 To UBound(arr, 2) temp(p, j) = arr(i, j) Next j 'هذا السطر الذي يتعامل مع القيمة كتاريخ temp(p, 7) = CLng(arr(i, 7)) 'تم وضع رقم تسلسلي للنتائج حسب قيمة المتغير temp(p, j - 1) = p End If Next i 'عند حدوث خطأ انتقل الى الخطوه التاليه On Error Resume Next n = WorksheetFunction.Round(p / 2, 0) 'الرقم 23 الخاص بالمسلسل 'رقم عمود موجود بالمصفوفه 'ولايوجد به بيانات sh.Range("B8").Resize(n, 5).Value = Application.Index(temp, Evaluate("row(1:" & n & ")"), Array(23, 5, 15, 7, 16)) 'الاسم / الديانه/ تاريخ الميلاد / القيد sh.Range("H8").Resize(n, 5).Value = Application.Index(temp, Evaluate("row(" & n + 1 & ":" & p + 1 & ")"), Array(23, 5, 15, 7, 16)) For i = 43 To 8 Step -1 If sh.Cells(i, 2).Value = "" Then sh.Rows(i & ":43").Hidden = True Next i ' اعاده الشاشه كما كانت Application.ScreenUpdating = True End Sub هذا هو تحفة الاكواد للنابغه ياسر خليل

لماذا تاتي بالاناث اولا .. اولا لايوجد منشور بذلك ثانيا الرجال حتى تربي فيهم الشهامه والنخوة وشكرا للجميع ابدا اخي السائل الكريم بالاولاد

مره قلت لي مفيش تكرار ... اعطيتك رابط التكرار الخاص بك وبعدها قلت ( لكن .. احتياجى لحل المشكلة ضروري جدا ) ردود دون ......... الله يصلح حالي ويصلح حالك و يصلح حال اللي هايجاوبك

ومارايك في هذا الرابط سامحك الله وسامحني ؟ ============== الا يعتير هذا تكرار ؟ ياترى الموضوع المرر التاني اللي وضعت لك رابطه الست انت الذي وضعته ؟ يحعله عامر يارب