طارق محمود

السلام عليكم جزاكم الله خيرا جميعا كل من شارك أو حتي مر علي الموضوع بدون مشاركة أخي خالد أنا لست متمكنا في الأكواد أنا ناقل معظم الكود مع بعض التعديلات التي أستطيع الخوض فيها جزاك الله كل خير

وهذا المرفق وبه الكود New 2.rar

السلام عليكم جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo D_Date If Target.Column = 1 Then Cells(Target.Row, 3) = Now D_Date: Application.EnableEvents = True Application.ScreenUpdating = False End Sub لما تكتب أي قيمة في العمود A يظهر التاريخ اتوماتيك بدون معادلات في العمود C في نفس الصف ويظل ثابت عند التاريخ الذي غيرت فيه العمود A

طبعا كما هو واضح في الصور ممكن إستخدام أي نوع آخر من الملفات الخطوة التالية بعد ذلك أن تنسخي هذا الملف ذو الإمتداد pst أو غيره وتنقلي النسخة للجهاز الجديد

السلام عليكم أختنا العزيزة تفضلي الصور المرفقة بها الشرح

السلام عليكم كيفك أبايوسف أنظر في الصور الثلاث داخل الملف المرفق piv_table.rar

السلام عليكم معذرة أخي ياسر لم أري ندائك إلا الآن عموما إنت متعشم كثير في مستواي بالأكواد إرسل الكود كاملا وربنا ييسر

الموضوع القديم كان بعنوان :" طلب معلومة في ملف اكسيل لحساب الحضور والانصراف" علي الرابط التالي هنـــــا

السلام عليكم كان فيه موضوع يتناول هذا الموضوع منذ أكثر من شهر وقد شاركت فيه وقتها إليك المرفق ومن الأفضل البحث عن الموضوع أو إرفاق نموذج من عملك كما قال الأخ hben تفضل المرفق ___ ______ _________.rar

السلام عليكم تفضل المرفق differ_Sum.rar

السلام عليكم هناك فكرة بسيطةإستخدمتها سابقا للتغلب علي هذه المشكلة وهي إضافة رقم السطر بالإكسل لمجموع الدرجات المراد ترتيبها مضروبا في رقم صغيييير لايؤثر في النتيجة وبالتالي ينتج مجموعة درجات أخري غير الأصلية ولكن ليس بها أرقام متشابهه تفضل المرفق Rank_New.rar

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

من قائمة Tools ثم من Shared Workbook ثم Editing ثم تعلم علي Allow Changes

أليس هذا ماكان مطلوبا لوتريد تغيير مثلا الإحتفاظ بإسم المصمم ، أخبرني ممكن لكن اتركها للأسبوع القادم لضيق وقتي غالبا هذه التعديلات ستسبب أن نعيد العمل أفضل لو تظل علي شكله الأول

لاداعي للإحراج أطلب ماشئت لكن التعديلات التي قمت أنت بها أصابت الجدول ببعض الأضرار قم بعمل الثلاث تعديلات التالية بالكود NEW تعني إضافة السطرين المذكورين و Repair تعني إضافة فقط E21 في سطر الإلغاء Sub Shift_from_Main() .. .. .. .. .. .. .. .. .. .. .. .. 100 ' Assign Q'ty to d6,d7,d8 d(6) = ActiveCell.Offset(6, 2) d(7) = ActiveCell.Offset(7, 2) d(8) = ActiveCell.Offset(8, 2) d(16) = ActiveCell.Offset(15, 2) ' NEW 'Shifting .. .. .. .. .. .. ActiveCell.Offset(0, 5) = d(4) ActiveCell.Offset(0, 19) = d(12) ActiveCell.Offset(0, 17) = d(13) ActiveCell.Offset(0, 18) = d(14) ActiveCell.Offset(0, 20) = d(15) ' Total at last record if more than one ActiveCell.Offset(0, 21) = d(16) ' NEW .. .. .. .. .. Worksheets("MAIN").Select Range("C7:C14,C18:C20,E5:E14,E21").Select ' Repair Selection.ClearContents End Sub

السلام عليكم الملف عليه حماية المنتدي به الكثير من الإخوة المهتمين بالحماية ويستطيعون فكه إنتظر وإن شاء الله يتحل

بارك الله فيك أخي خالد ،، قصدي ياسر

السلام عليكم مرحبا أخي بين إخوانك رأينا في ماذا؟ أنت لم تطلب شيء ولا في الملف رجاء التوضيح

قلبك فحمة بس أحبك في الله

طبعا أنا أتشرف ياأستاذ

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

كليك بيمين الماوس علي الزر Post ثم إختار Assign Macro ستجد أنه يحمل ماكرو موجود علي سطح جهازك Desktop في ملف إسمه 000.xls ِ\Desktop\000.xls'!Khboor_Tarheel لذلك يجب نقل هذا الملف مع ذاك وإعادة توجيه الزر للمكان الذي فيه ملف 000.xls

أنظر الصورة

في إكسل 2003 أولا تكون داخل الجدول بالماوس ثم كليك يمين ثم Pivot Table Wizard ثم BACK ثم تحدد النطاق الذي تريد في إكسل 2007 أنظر الصورة

السلام عليكم بعد إذن أخي ياسر لو وضعتها بين الأكواد لوضحت الرؤية هكذا =IF(A3="","",(IF(B3="","",DATE(YEAR(A3),MONTH(A3)+B3,DAY(A3))))) و معناها إذا كان A3 لايحتوي علي شيء فاجعل خليتي هذه أيضا فارغة أما إذا كان يحتوي علي رقم فافعل التالي -------------- إذا كان B3 لايحتوي علي شيء أيضا ، فاجعل خليتي هذه أيضا فارغة -------------- أما إذا كان B3 يحتوي علي رقم فاجمعه علي رقم الشهر في الخلية A3 واكتب الناتج هنا بمعني إذا كان مثلا A3 = 3/4/2008 وكان B3 =6 فإن الخلية التي بها المعادلة ستساوي : 3/10/2008 أما إذا كان B3 =11 بنفس المثال فإن الخلية التي بها المعادلة ستساوي : 3/3/2009