طارق محمود

السلام عليكم سهلة جدا إن شاء الله يعتمد الإكسل في حسابات الوقت علي إعتبار أن اليوم =1 صحيح وبالتالي الساعة = 1/24 من اليوم والباقي مجرد تنسيقات لإظهار الساعة / الدقيقة / .... وعلي ذلك يمكن في الخلية B3 أن نضع المعادلة =A3*24 وننسخها للأسفل

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

السلام عليكم مرفق الملف وقد تم تغيير مواضع الأعمدة كما تريد العمود A أصبح E و العمود J أصبح I وتم حذف الأسطر التي ليس بها بيانات بغرض تقليل حجم الملف (عندي مشكلة في رفع الملفات) تفضل المرفق بالرابط http://www.4shared.com/rar/RKA0GhlN/2__online.html

مرفق الملف وبه الكود إدراج تاريخ بين تاريخين.rar

السلام عليكم تفضل أخي الكود التالي في حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) x = Target.Value If Target.Column <> 10 Or IsDate(x) = False Then Exit Sub Sdate = [A2] 'start date Ldate = [A10000].End(xlUp) 'last date If x < Sdate Or x > Ldate Then MsgBox ("Out of Range! Date is out of range"): Exit Sub For r = 2 To [A10000].End(xlUp).Row - 3 y1 = Cells(r, "A"): y2 = Cells(r + 3, "A") If y1 < x And y2 > x Then o = 1 If (x - y1) / (y2 - y1) > 0.5 Then o = 2 With Cells(r + o, "A") .Value = x .Interior.ColorIndex = 3 .Font.Bold = True End With Exit Sub End If Next r End Sub

لو لاحظت ، لابد من فك الدمج (Merge) للخلايا المكونة لعناوين الجدول المحوري - الملونة بالأخضر أنظر الفيديو المرفق لتري مايمكن عمله بمثل هذا الجدول يمكنك فصل البنات عن البنين أو جمعهم ويمكنك تصنيفهم حسب الصف / الفصل / الديانة / سنة الميلاد يمكنك إخراج صنف منهم بلون مختلف أنظر الفيديو piv_table.rar

السلام عليكم بعد إذن اخي أحمد تفضل أخي أبو جاد الله المطلوب الثاني بطريقتين 1. المعادلات (Sumproduct) 2. الجداول المحورية اسماء التلاميذ2.rar

السلام عليكم تفضل المرفق تم التطبيق عليه (المساحة الخضراء) ملحوظة : حذفت الأسطر السفلية ، لأنها تزيد من حجم الملف بلا داعي فبراير 2012 -2.rar

السلام عليكم أخي العزيز ضع المعادلة التالية في الخلية D39 =LOOKUP(2,1/($C$1:C38=C39),$J$1:J38) وضع المعادلة التالية في الخلية E39 =LOOKUP(2,1/($C$1:C38=C39),$K$1:K38) وخذ منها نسخة كم تشاء للأعلي أو للأسفل

بالنسبة لمشاركتك #16 ذهبت للموضوع فرأيت اخونا بن عليه قد أفادك فيه

السلام عليكم لاأعتقد أن لها حد أقصي ولو أني لاأفضل ان يزيد عدد حروف المعادلة (بما فيها من دوال) عن 255 حرف (كنت قد قرات مرة أن هذا يؤدي لمشاكل) إن شرحت لي ماتريد بالضبط ، فقد يكون هناك حلول أفضل مثلا أنظر الفيديو المرفق إخترت أماكن ليس لها علاقة ببعض وليست بنفس النسق المهم تكون مستمر بالضغط علي زر الـ Ctrl ثم تسمي هذا الخليط من النطاقات ماشئت وتطلب من الكود ان يتعامل مع هذا المسمي في الفيديو ، سميت النطاقات المختلفة (مجتمعة) EID Rang_Name.rar

السلام عليكم نعم أخي يوجد دالة جميلة إسمها Union تستطيع عمل مثلا Set myRange = Union([C7:I14], [Q9:V20])

السلام عليكم أخي العزيز الكود يعتمد في الترحيل في الآتي ان يذهب لخلية في العمود B بعيدة في الأسفل (1500) ثم يتجه للأعلي حتي يجد بيانات فيضع البيانات المرحلة أسفل تلك التي وجدها وكما تري إن وجد في طريقه عائق عند الخلية B61 أو B62 مثلا فسيضع البيانات المرحلة أسفلها وليس أسفل B2 كما يفترض المبرمج للكود إفحص الخلايا B61 أو B62 ستجد ان بها بيانات ولو مسافة " " إمسحها وسيتحسن الوضع أو تفضل المرفق شغال book12.rar

السلام عليكم أخي طاهر ضع في الخلية B2 علامة = فقط بدون علامات تنصيص ولاأي شيء فقط =

السلام عليكم أخي العزيز تريد تعديلات ملف الاستاذ الحسامى كالتالي 1- حذف الصفحة رقم 1 2 تعديل الاكواد للعمل على البيانات الموجودة داخل الصحفة رقم 2 إذا حذفت الصفحة1 لن تجد بيانات للكود ليجلبها لك في الصفحة2 يمكنك يدويا تعديل البيانات في الصفحة1 بمسح الموجود وتغيير الأسماء وارقام الحسابات وباقي البيانات كما تحب

أقصد أن تواريخ الاجازات الان 6 فقط محصورة في المجال $L$6:$L$12 ، $K$6:$K$12 قد تمتد مثلا إلي 16 فتكون $L$6:$L$22 ، $K$6:$K$22

المرفق به المعادلة مطبقة Book1_3.rar

السلام عليكم جرب اخي المعادلة التالية في التنسيق الشرطي =SUMPRODUCT(($B6<=$L$6:$L$12)*1,($B6>=$K$6:$K$12)*1) يمكنك تعديل المجالات التالية كما تحب $L$6:$L$12 ، $K$6:$K$12

السلام عليكم أخي العزيز تفضل كود بسيط مع شرح بسيط Sub shift() LR = [AV1000].End(xlUp).Row 'لمعرفة آخر سطر فيه نتيجة متعدد وجائز For R = 11 To LR ' نبدأ حلقة من أول سطر به بيانات إلي آخر سطر x = Cells(R, "AV") With Sheets(x) LR2 = .[B1000].End(xlUp).Row + 1 'لتحديد آخر سطر جاهز لنقل بيانات .Cells(LR2, "B") = Cells(R, "B") .Cells(LR2, "C") = Cells(R, "D") .Cells(LR2, "D") = Cells(R, "E") End With 10 Next R MsgBox ("الحمد لله" & Chr(10) & "تم الترحيل") End Sub وهذا هو المرفق ترحيل نور.rar

أعتقد انه لامانع لكن لايجب أن يزيد عدد الأحرف في المعادلة عن 256 حاليا هو 185 وإلا يكون هناك حلول أخري مثل إستخدام دالة SUMPRODUCT

السلام عليكم بالتنسيق الشرطي ولو أن المعادلة طويلة ولكنها سهلة التركيب هذه هي المعادلة =OR(AND($B6>=$K$6,$B6<=$L$6),AND($B6>=$K$7,$B6<=$L$7),AND($B6>=$K$8,$B6<=$L$8),AND($B6>=$K$9,$B6<=$L$9),AND($B6>=$K$10,$B6<=$L$10),AND($B6>=$K$11,$B6<=$L$11),AND($B6>=$K$12,$B6<=$L$12)) وهذا المرفق Book1_2.rar

السلام عليكم تفضل اخي المرفق به المطلوب ترحيل قضايا2.rar

السلام عليكم أخي محمد (1) حسب سؤالك يعني شيت آخر في نفس الملف إن كان ذلك إتبع الآتي: من الشيت اللي فيه الزر الأحمر للماكرو كليك يمن علي إطار الزر الأحمر (وليس داخل الزر) ستظهر لك قائمة منها خيار النسخ Copy إنسخ الزر للصفحة الجديدة ، سينتقل الزر بالماكرو اللي عليه (2) أما إن كنت تعني بــ شيت آخر ملف آخر إتبع الآتي: من الملف القديم إلغي البيانات في الشيت ذو الزر الأحمر للماكرو وكذلك إلغي الشيتات الأخري نهائيا (وليس بياناتها فقط) إنسخ بيانات الملف الجديد مكان تلك القديمة في الشيت ذو الزر الأحمر إحفظ الملف بإسم مختلف وهذه الحالة الثانية لأن بالملف ورقة مخفية مهمة في تكوين ورقات أوتوماتيك للتواريخ التي ليس لها ورقات وهذا ملاحظه أخي الحبيب / أحمد وذلك يسبب رسالة الخطأ لأن ملفك الجديد ليس به هذه الورقة التي أخفيتها

أخي الحبيب الغالي / عبدالله المجرب أخي الحبيب الغالي / احمد يعقوب زمان جزاكما الله كل الخير علي مروركما الكريم وكلماتك الرائعة أخي العزيز / محمد تميرك جاري العمل علي أسئلتك

السلام عليكم أخي العزيز سيتم غلق هذا الموضوع تمهيدا لحذفه لأنه مكرر وقد تمت الإجابة عليه في الرابط التالي http://www.officena....showtopic=40711