خالد الرشيدى

استاذى الحبيب ياسر خليل رمز مرور الاكواد كما تم زكرة فى السؤال Hatem اما عن حماية ورقة العمل فانا من قام بحمايتها بكود افتراضى 111 حتى يرى الاخ حاتم كيف انه يلغى الحماية قبل الكود ثم يعيد حمايتها فى نهاية الكود استجابة لاستفسارة اما عن الموديول الذى تم العمل علية هو موديول 17 Sub ÃÈÌÏí_2016() ActiveSheet.Unprotect "111" Application.ScreenUpdating = False Range("B6:BC265").Sort Key1:=Range("H6"), _ Order1:=xlDescending, Key2:=Range("N6"), Order2:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom ActiveSheet.Protect "111" Application.ScreenUpdating = True End Sub

بعد اذن استاذى ياسر اخى الكريم المعادلة صحيحة تماماً انت فقط نسيت ان تضغط CTRL+CHIFT+ENTER بعد كتابتها عموماً اكتبها بهذا الشكل ولن تكون بحاجىة الى الضغط على CTRL+SHIFT+ENTER =IF(SUMPRODUCT(--(D17:R17>=D16:R16))=15;"نـاجح و منقول للصف الثانـي الثانوي ";"له دور ثان")

اخى الكريم ليس خطأ وانما عندما وضعت الكود جعلت الترتيب وفقاً لعمود الاسماء فقط ولكن ان اردت الترتيب وفقاً لعمودى الاسماء والنوع جرب الملف المرفق كشف المتقدمين للصف الأول 2015 2016.rar

استاذى الحبيب ياسر خليل خالص شكرى لمرور حضرتك العطر جزاك الله خيراً

اخى الكريم اليك المعادلة التالية على قدر فهمى للطلب =IF(AND(G8>0;J8>0;M8>0;P8>0;S8>0;V8>0;Y8>0;AB8>0;AE8>0;AH8>0);SUM(G8;J8;M8;P8;S8;V8;Y8;AB8);0)

الســــلام عليكم يمكن استدعاء تقريبا كافة معادلات الاكسيل فى ال VBA باستخدام الامر Application.Worksheetfunction وهو ما فعلتة حضرتك واستدعيت الدالة SUMIF ولكن MAXIF و MINIF ليست ضمن معادلات الاكسيل وانما تم مزج IF مع MAX فى معادلة صفيف CTRL+SHIFT + ENTER لايجاد اكبر قيمة بشرط ... وكذلك الحال فى MINIF لهذا لاحظ ما يلى يلاحظ عند استخدام Evaluate تم قراءة المحتوى ما بين ال " " اى ال 1+1 كمعادلة وتم ارجاع الناتج على خلاف FORMULA التى نسخت المعادلة الى الخلية وسنستخدم Evaluate فى تنفيذ MAXIF و MINIF Range("D7").Value = Evaluate("=MAX(IF(D10:D13=B11,$E10:$E13))") Range("D15").Value = Evaluate("=Min(if(D10:D13=B11,E10:E13))") لاحظ كيف تم كتابة المعادلة بدون استخدام وسائط الاشارةالى النطاقات فى ال VBA ك RANGE او ... فقط تم كتابة المعادلة وكانها تكتب على ورقة العمل ما بين (" ") ولكن كيف سيعرف الاكسيل صفحة العمل التى تحوى تلك النطاقات فقط لاحظ ما يلى Range("D7").Value = Worksheets(" ورقة1 ").Evaluate("=MAX(IF(D10:D13=B11,$E10:$E13))") Range("D15").Value = Worksheets(" ورقة 1 ").Evaluate("=Min(if(D10:D13=B11,E10:E13))") اليك المرفق دالة MAXIF -MINIF.rar

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

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

الحمد لله انك قد وصلت لما تريد خالص تحياتى

اسفل هذا الحدث Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ضع هذه الجملة Me.TextBox1.Value = "" بين هاتين السطرين End If Me.TextBox1.Value = "" End Sub

السلام عليكم فليسمح لى اساتذتى بالمشاركة نظراً لتساوى ترتيب الاعمدة الخاصة بسبب الغياب فى كل صفحات العمل وكذلك صفحة الاحصائية السنوية لذلك يمكننا استخدام معادلة اكثر اختصاراً كهذه =SUMPRODUCT(SUMIF(INDIRECT("'"&$Z$1:$Z$12&"'!A5:A500");$A2;OFFSET(INDIRECT("'"&$Z$1:$Z$12&"'!AG5:AG500");;COLUMN(A1);;))) المرفق برنامج متابعة حضور وغياب الافراد والاجازات3.rar

الاخوة الكرام اليكم المرفق لعلة المطلوب تنوية :- الطريقة المستخدمة هى لمعلمنا عبد الله باقشير - جزاه الله خيراً - El rashedy listbox.rar

بعد اذنك استاذى ابو البراء ضع الكود بين هاتين السطرين End If TextBox1.SetFocus End Sub

اخى الكريم لعلك قد نسيت حذف بعض اسطر الكود الغير هامة لهذا اليك المرفق بعد التعديل استخدمت الامر WAIT لجعل لون ناتج البحث احمر وذلك لمدة ثانية ثم يرجع اسود بحث.rar

وعليكم السلام ورحمة الله فكرة مميزة اخى الكريم ... جزاك الله خيراً محرر الاكواد محمى بكلمة سر مما يمنع الاطلاع او التعديل علية .. ... تقبل تحياتى

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

المرفقــــــــــــــــات التاريخ.rar

اخى الفاضل جرب الكود التالى Private Sub TextBox1_AfterUpdate() If CDate(TextBox1) > Date Then TextBox2.Text = "ÇáÚÞÏ ÓÇÑí ÇáãÝÚæá" Else TextBox2.Text = "ÇáÚÞÏ ãäÊåí" End If End Sub

السلام عليكم أ.khalid2117 ولما النقل واللصق ؟؟؟؟ لان الدالة VLOOKUP لا تبحث الى الوراء - بشكل ادق - تشترط ان يكون عمود الشرط هو العمود الاول اليس كذلك !! ولكن هناك العديد من الطرق للتغلب على ذلك وهى استخدام Choose لعمل جدول افتراضى عمودة الاول هو عمود الشرط =VLOOKUP($C11;CHOOSE({1,2};$BE$1:$BE$500;$BC$1:$BC$500);2;0) بل ايضاً الدالة IF يمكنها القيام بهذه اللوظيفة ( خلق الجدول الافتراضى ) =IFERROR(IF(C11<>"";VLOOKUP(C11;IF({1,0};BE1:BE200;BC1:BC200);2;0);"");"") تقبلوا خالص تحياتى

تفضل اخى الكريم المطلوب بالمرفق .. ان كان ما تريد لا تنسى ان تحدد الموضوع كمجاب لمن يهمه الامر 2- 2016_2.rar

اخى الكريم المطلوب غير واضح بل لعلة غير معروف ...... لذلك اليك المرفق التالى جربة وابدى ملاحظاتك لمن يهمه الامر 2- 2016.rar

ولاثراء الموضوع جعل النص على عدد صفوف وفقاً لاتساع العمود حدد الخلية من تبويب Home اختر الامر Fill ثم Justify ثم OK ولكن لابد ان تلغى الدمج فهذه الطريقة لا تعمل معة المرفق TEST.rar

اخى الفاضل فى عمود اعمال السنة ولكل المواد ولكل الطلبة انسخ المعادلة التالية =VLOOKUP(INDIRECT(ADDRESS(ROW()-1;2));INDIRECT("'" & INDIRECT(ADDRESS(2;COLUMN())) & "'!B2:E200");4;0) فى عمود م.امتحان الفصلين لكل المواد ولكل الطلبة انسخ المعادلة التالية =VLOOKUP(INDIRECT(ADDRESS(ROW()-1;2));INDIRECT("'" & INDIRECT(ADDRESS(2;COLUMN()-1)) & "'!B2:F200");5;0) ملاحظة هامة جداً لابد ان تكون اسماء المواد بشيت الفصل الثانى مطابقة تماماً لاسماء الصفحات والعكس ناجح راسب تعديل 8 2015 (1).rar

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

اخى الفاضل اليك المرفق لقد قمت بتطبيق التربية الاسلامية واللغة العربية اما عن باقى المواد فقط قم بوضع المعادلة التالية فى الخلية E3 وقم بالسحب =INDEX('الفصل الثاني'!E1:AH500;MATCH('التربية الاسلامية'!B3;'الفصل الثاني'!B1:B500;0)+1;MATCH(MID(CELL("filename";A1);FIND("]";CELL("filename";A1))+ 1; 255);'الفصل الثاني'!$E$2:$AH$2;0)) والمعادلة التالية فى F3 وقم بالسحب =INDEX('الفصل الثاني'!E1:AH500;MATCH('التربية الاسلامية'!B3;'الفصل الثاني'!B1:B500;0)+1;MATCH(MID(CELL("filename";A1);FIND("]";CELL("filename";A1))+ 1; 255);'الفصل الثاني'!$E$2:$AH$2;0)+1) اليك المرفق ناجح راسب تعديل 8 2015 (1).rar