علي السحيب

قم بتصميم الجدول وسنساعدك بإذن الله في تركيب الصيغ اللازمة عليه،

لا أدري لماذ أرفقت هذا الرابط .. مع أنه لا يمت للموضوع بصله لا من قريب ولا حتى من بعيد .. وعلى فكرة الكود الذي أشتمل عليه مرفق الأخ حسام وكما قال صاحب الموضوع إنه أطول كود رآه في حياته .. وهو على حق .. ولا أدري كيف تريدني أن أستفيد منه .. وقد أختصرته إلى كود يحتوي على سطر واحد فقط بدلاً من أكثر من ألف سطر .. وأيضاً إلغاء محدودية الكود ليذهب حتى آخر صف في ورقة العمل بدلاً من الألف سطر الأولى فقط. وهذا هو الكود: Sub GoTo1() Range("B" & [C1]).Activate End Sub وهذا أيضاً كود آخر يقوم بنفس المهمة: Sub GoTo2() Cells([C1], 2).Select End Sub وهذا أيضاً كود ثالث لنفس الغرض: Sub GoTo3() [B1].Offset([C1] - 1, 0).Select End Sub وبالنسبة للرابط الثاني .. فربما يكون له علاقة .. ولكنه يختلف كثيراً عما أشرت إليه في سؤالك. شاهد المرفق، ________________.rar

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

يفضل إستخدام الدالة DATEDIF لحساب العمر، شاهد المرفق، _______________.rar

يتم ذلك عبر عمل إشتراك Share .. ويكون ذلك عبر الذهاب إلى القائمة Tools ثم Share Workbook .. ثم ضع علامة صح أمام المربع الموجود في العلى ثم OK ..

الكود التالي يلبي ما طلبته، Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row > 1 Then Cells(Target.Row, 2) = Target.Row - 1 & "/" & Year(Date) End If End Sub شاهد المرفق، ______________________________________.rar

يتم ذلك عن طريق إستخدام الدالة SUMIF.. راجع أحد الروابط التالية: http://www.officena.net/ib/index.php?showtopic=9955 http://www.officena.net/ib/index.php?showtopic=14514

الكود التالي يعمل على نقل المؤشر إلى الجهة اليمنى بعد الانقال من الخلية: Private Sub Worksheet_Activate() Application.MoveAfterReturnDirection = xlToRight End Sub والمرفق يحتوي على الأكواد الخاصة ببقية الجهات الأربع، _____________________________________________Tab____Enter.rar

يتم فقط إجراء بعض التعديلات على الكود.

المرفق التالي يحتوي على ورقة تحتوي على البيانات والتي من المفترض أن تكون مخفاة حسب طلبك .. وأخرى تحتوي على الزر الذي يتم من خلاله نقل بيانات كل عمود إلى العمود المجاور له. شاهد المرفق، ______________________________.rar

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

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

الصيغة التالية تفي بالغرض: =IF(COUNTA(AH3:AQ3)=0,"",IF(COUNTIF(AH3:AQ3,"غ")=10,"غياب",IF(COUNTIF(AH3:AQ3,"غب")=10,"غياب بعذر",IF(COUNTIF(AH3:AQ3,"ح")=10,"حرمان",IF(COUNTIF(AH3:AQ3,"<50")>2,"راسب",IF(COUNTIF(AH3:AQ3,"<50")=0,SUM(AH3:AQ3),"")))))&IF(OR(COUNTIF(AH3:AQ3,"<50")=1,COUNTIF(AH3:AQ3,"غ")=1,COUNTIF(AH3:AQ3,"غب")=1,COUNTIF(AH3:AQ3,"ح")=1),"مادة",IF(OR(COUNTIF(AH3:AQ3,"<50")=2,COUNTIF(AH3:AQ3,"غ")=2,COUNTIF(AH3:AQ3,"غب")=2,COUNTIF(AH3:AQ3,"ح")=2),"مادتين",""))) مع ملاحظة أنه يلزم إضافة عشرة أعمدة إضافية .. لأن الدالة COUNTIF .. لا تتعامل مع خلايا النطاق إذا كانت متفرقة .. لذا لزم تجميع الخلايا المتفرقة في نطاق مستقل .. لكن ليس من الضروري أن تكون تلك الأعمدة ظاهرة .. فيمكنك إخفاؤها إذا أردت. شاهد المرفق، _______________________________.rar

شاهد المرفق الموجود في المشاركة الثانية من الرابط التالي .. وأخبرني إذا كان هذا ما تريد أم لا؟؟ http://www.officena.net/ib/index.php?showtopic=14626

أعتقد أن ثلاث أو أربع ثواني ليست كثير على كود يقوم بالبحث داخل أكثر من أربعة آلاف سجل .. أليس كذلك؟؟!! 2 تم التعديل على الكود، شاهد المرفق، _______________________________________________.rar

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

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

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

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

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

شاهد المشاركة رقم 11 من الرابط التالي: http://www.officena.net/ib/index.php?showtopic=14214

بارك الله فيك اخوي ،، ولا تآخذني ،، ممكن تعطيني الصيغة مع المثال .. يعطيك ألف عافيه تكتبها لي هنا تحيتي ؛ راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=10287

عن طريق التعليمة VLOOKUP.

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

قم أولاً بإلغاء حماية ورقة العمل ثم قم بإزالة الحماية عن الخلية المرتبطة بالقائمة المنسدلة .. عن طريق الضغط بالزر الأيمن على الخلية المرتبطة بالقائمة المنسدلة ثم إختيار Format Cell ثم Protection .. وقم بإزالة علامة الصح الموجود بجانب Protect .. ثم عاود حماية الورقة .. عندها ستتمكن من التنقل بين خيارات القائمة المنسدلة بدون عوائق.