علي السحيب

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

http://www.officena.net/ib/index.php?showtopic=11617

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

لا أدري لماذ أرفقت هذا الرابط .. مع أنه لا يمت للموضوع بصله لا من قريب ولا حتى من بعيد ..

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

وهذا هو الكود:

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

1- عندما ادخلت جميع التواريخ وضغطت زر الادخال فانه ياخذ بعض الوقت .

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

2

- عندما انتقل الى sheet2 لمشاهدة النتائج الاحظ ان المؤشر يتحرك بسرعة بشكل وميض لفترة معينة ثم يتوقف . وايضا عندما انتقل الى sheet1 ثم اعود الى sheet2 يعود المؤشر بالوميض مرة اخرى .

تم التعديل على الكود،

شاهد المرفق،

_______________________________________________.rar

تم إصلاح الرابط المذكور.

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

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

شاهد المرفق،

_____________________.rar

شاهد المرفق،

_________________.rar

شاهد المرفق،

___________________________.rar

شاهد المرفق،

________.rar

شاهد المشاركة رقم 11 من الرابط التالي:

http://www.officena.net/ib/index.php?showtopic=14214

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

بارك الله فيك اخوي ،،

ولا تآخذني ،، ممكن تعطيني الصيغة مع المثال .. يعطيك ألف عافيه

تكتبها لي هنا

تحيتي ؛

راجع الرابط التالي:

http://www.officena.net/ib/index.php?showtopic=10287

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

شاهد المرفق،

__________________________________________8.rar

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