نجوم المشاركات

اخي ياسر هل تبحث عن هذا الموضوع (لقد وضعته في صيغة 2003 ليستفيد منه اكبر عدد ممكن من الاخوان) روائع شرط التنسيق 1.rar

اتفضل HideWin.rar

انت جعلت الحدث في النموذج بعد الادراج جرب واجعله في حدث بعد التحديث لحقل الاسم حينها عندما تستخدم Ctrl + Z سيخبرك انه سيحذف السجل كاملا وهي منطقية وعملية ايضا

الأخ صلاح لحل هذه المشكلة اقترح عليك عمل عمودين للتواريخ و أخذ قيم الخلايا من أعمدة التواريخ ( التى لا تعمل مع التنسيق ) بالدالة Value ثم نسخ القيم الناتجة و لصقها كقيمة بأماكنها و شغل التنسيق للتاريخ و سيعمل معك دون مشاكل مرفق ملف استرشادى .. الصفحة 1 به المعادلة و الصفحة 2 بعد اتمام الاجراء Salah.rar

ما تزعلش اخي ياسر هذا كود اخر (او بالاحرى كودين) واحد يجمع الصفوف الظاهرة و الثاني يجمع الاعمدة الظاهرة الكود الثاني موقف حاليا (يمكن تشعيله بازالة الفواصل منه) SUBTOTAL row.rar

الحمد لله قدرت اوصل لطريقه عمل القوائم بس الموضع رخم شويه بمعنى انك لو حتى عملتها لازم ترجع لصيغه 2003 علشان تبقه القوائم جنب بعضها وده طبعا بيخليك تفقد المميزات اللى موجوده فى اكسيس 2010 زى navigation form و تعملها بصيغه 2010 وتكون القوائم تحت بعضها يعنى مش هتعرف تعمل النموذج بتاع الوجهه منبثق ان شاء الله هجيب لكم الشرح بالتفصيل

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

بارك الله فيك أخي الكريم محمد أبو البراء وجزيت خيراً على ما تقدمه لمنفعة إخوانك اتنين أبو البراء في المنتدى (ربنا يستر وميحصلش قفله) تقبل تحيات أخوك أبو البراء

أخي في الله وحبيبي سليم عجبني الكود فقمت بشرحه بعد إذنك طبعاً لتعم الفائدة ويكثر الصيادين Sub SumInLastRow() 'يقوم الكود بجمع القيم في أي عدد من الأعمدة وتظهر النتائج في آخر صف '----------------------------------------------------------------- 'تعريف المتغيرات Dim lRow As Long, I As Long, SumValue As Double Dim Rng As Range 'تحديد آخر خلية فارغة تلي آخر خلية بها بيانات في النطاق المستخدم lRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 'مسح تنسيقات النطاق المستخدم ActiveSheet.UsedRange.ClearFormats 'حلقة تكرارية في أعمدة النطاق المستخدم For I = 1 To ActiveSheet.UsedRange.Columns.Count 'تعيين النطاق الذي سيتم جمع قيمه Set Rng = Range(Cells(1, I), Cells(lRow - 1, I)) 'تعيين قيمة مجموع نطاق العمود الحالي SumValue = Application.WorksheetFunction.Sum(Rng) 'وضع قيمة المجموع في كل عمود من الأعمدة للنطاق المستخدم Cells(lRow, I) = SumValue 'الانتقال للعمود التالي Next 'تلوين النطاق الذي يظهر فيه المجموع Range(Cells(lRow, 1), Cells(lRow, ActiveSheet.UsedRange.Columns.Count)).Interior.ColorIndex = 6 End Sub تقبلوا تحيات أخوكم الصياد ياسر خليل (صاحب أكبر شادر سمك فيكي يا مصر .. )

أخي الحبيب صلاح الصغير الموضوع أصغر مما تتخيل وأبسط مما تتخيل .. ضع المعادلة التالية في الخلية C13 =SUBTOTAL(9,C2:OFFSET(C14,-2,0)) بس خلاص جرب تدرج صفوف براحتك يا كبير !! شرح المعادلة : ------------ المعادلة زي ما إنت كاتبها .. شوف اللي اتغير !! وصلت تمام الحمد لله انتهى الشرح اللي اتغير بدل ما أحدد نهاية النطاق أخلي الإكسيل هو اللي يحدده ودا باستخدام الدالة Offset اللي بيسموها (دالة الإزاحة) الإزاحة بتبدأ منين من الخلية اللي تحت الخلية اللي بكتب فيها المعادلة وعدد صفوف الإزاحة صفين لفوق .. يعني اطلع صفين لفوق عشان كدا تلاقي الرقم بالسالب وعدد أعمدة الإزاحة صفر لأننا بنعمل إزاحة في نفس ذات العمود لا تنسى أن تحدد الإجابة كأفضل إجابة ليظهر الموضوع مجاب ومنتهي .. تقبل تحياتي :fff:

نرجو منك لو تكرمت باسوورد حماية الورقة

أتفضل أخوي شوف المرفق كده عسى يكون هو المطلوب ان شاء الله كل يوم هيتم تغيير عدد الأيام المتبقية ليقل بمقدار 1 Vacations.rar

بعد إذن الأستاذ / محمد عصام هذه الخطوات بالتفصيل لجعل النماذج غير مبوبة في صورة تبويبات ولجعلها نوافذ متراكبة في الشاشة File ---> options ---> current database ----> overlapping windows

الشكر لله أخى فى الله ياسر ملاحظة بالنسبة للملف بخصوص رقم البطاقة و السرى لاحظت ان هناك بيانات غير مستكملة (1) لاحظت رقم البطاقة غالبا 12 رقم يعقبه او لا يعقبه س ثم اربعة ارقام اعتقد ان س معناها الرقم السرى و الارقام الاربعة التالية لها هى الرقم السرى ذاته (2) المشكلة تكمن انه احيانا يكون هناك رقم سرى و احيانا لا.. عموما رقم المسلسل هام للغاية كمرجعية نحتاج فرز للرقم البطاقة الذى به رقم سرى و من غير رقم سرى أو البحث عن س و عمل فاصل بين س و الرقم السابق له ( رقم البطاقة ) و الفكرة الافضل هى عند وجود س يأخذ 12 قيمة سابقة لها و 4 تالية بفرض عدم وجود مسافة بين س ماقبلها و ما بعدها .. هذا يجعلنا نحصل على رقم البطاقة مع رقمها السرى سواء كان موجود او لا و منه نستطيع فصل رقم البطاقة من رقمها السرى فى مرحلة تالية انا افكر و لكن لا اعرف ترجمة هذا لمعادلة او كود مجرد تفكير بصوت عالى ربما هناك فكرة أفضل .. متابع للموضوع بشغف .

أخي في الله علاء رسلان مشكور على متابعتك للموضوع .. ولولا متابعتك ما أكملت ما بدأته .. الأخ الغالي مختار الموقع الذي أعطيتني إياه جعلني أندم على عدم تدخلك من البداية لأن عملية التحويل كانت جيدة جدا بنسبة تصل لـ 80% لا تحرمنا من اقتراحاتك ------------------------------------------------------ وصلنا الآن للمرحلة الرابعة ..ألا وهي استخراج الأرقام المسلسلة وعدد الأفراد .. وبذلك نكون قد أتممنا تنقيح البيانات وإزالة الصفوف الغير مرغوب فيها وحذف المسافات الزائدة ، ووضع علامات الشرطة / في الأماكن المناسبة إلى آخر تلك الأمور من عملية التنقيح وأخيراً تم استخراج الأسماء والمسلسل وعدد الأفراد بقي رقم البطاقة والرقم السري .. وننتقل بعدها لمرحلة التجميع إن شاء الله Filter Data V4.rar

أخي الكريم هل تقصد الحواشي السفلية (بالإمكان وضعها في نهاية كل مقطع) أو المراجع references التي توضع عادة في نهاية البحث بالنسبة للمراجع فهناك برنامج مختص يسمى End note

مرحبا أخي ماذا تقصد بمتغير تلقائيا؟

اجازات.rar

أخي الحبيب أحمد مرجان الحمد لله ان تم المطلوب كما تريد وبعدين قولي تعرف لينا دي منين (لينا يا مرجان !!)

اتفضل اخي شوف المرفق ان شاء الله يكون هو المطلوب مثال.rar

أخي الفاضل إبراهيم السيد أهلا بيك في المنتدى ونورت بين إخوانك يرجى الإطلاع على رابط التوجيهات للضرورة .. مش مجرد روتين http://www.officena.net/ib/index.php?showtopic=60147 بالنسبة للفيل اللي نزلته (قدرت تنزله لوحدك ..بسم الله ما شاء الله .. بس الفيل تقيل يا جميل إزاي قدرت تنزله هههه ) بالنسبة لطلبك الموضوع في منتهى البساطة والشياكة إنت عندك في الخلية P1 موجود تاريخ حلو الكلام (قول حلو بس اوعاك تاكله ..) اللي حصل كالآتي .. الأخ اللي عمل الفايل حدد النطاق بالكامل من $A$1:$N$1000 من التبويب Home لو عندك إصدار أوفيس 2007 فما فوق .. هتلاقي Conditional Formatting أو بالعربي التنسيق الشرطي (بس دا ملوش علاقة بالشرطة ) افتح القايمة المنسدلة اللي جنب الكلمة واختار New Rule .. دا لو لسه مكانتش اتعملت اختار آخر اختيار في النافذة اللي اسمها New Formatting Rule والخيار اسمه Use a formula to determine which cells to format وهتكتب المعادلة التالية في الحقل اللي على يمينه سهم أحمر يا أهلاوي =$A1>=$P$1 المعادلة بتقول إن الخلية A1 أكبر من أو يساوي الخلية P1 (يعني التاريخ في A1 أكبر من أو يساوي التاريخ في الخلية P1 ..) لاحظ إن الخلية P1 قبلها علامة الدولار قبل اسم العمود وقبل رقم الصف (أصلها لسه خارجة من البنك ...) طبعاً لأن الخلية دي ثابتة ...أما الخلية A1 متغيرة يعني لما المعادلة تنطبق على باقي الخلايا طبيعي إننا نختبر كل الخلايا مش الخلية A1 بس عموما المعادلة بتكون نتيجتها يا أبيض يا إسود ..أقصد يا صح يا غلط .. أقصد يا True يا False يعني لما الشرط يتحقق ويكون التاريخ الموجود في الخلية A1 أكبر من التاريخ في P1 بيكون الناتج Tue ولما الناتج يكون صح بكدا الإكسيل هيسمع الكلام وينفذ المطلوب منه طيب ايه المطلوب من الإكسيل (دا إنت اللي بتحدده) إزاي هقولك ..ركز معاايا آخر حاجة كتبنا المعادلة ..دلوقتي هتلاقي زر أمر اسمه Format (عينك تاااااااهت ليه ) تحت الحقل اللي كتبت فيه المعادلة لما تنقر Format (اشرب فوسفات وانسى اللي فات) هتلاقي فيه تبويبات في النافذة اللي طلعت (تدخل على أي تبويب ... والمشهور التبويب Fill بتاع تلوين الخلية) واختار اللون اللي يعجبك وبعدين تضغط أوك 3 مرات .... أرجو أن تكون قد استفدت أخوك أبو البراء

مشاركة مع الاستاذ عبدالرحمن اولا : لا حبذا التسمية ب listbox حيث هذا اسم كلاس عناصر مربعات القائمة! ثانيا : مارايك في هذه لفكرة استاذ عبدالرحمن : طبعا اذا مربع النص غير منضم . نضع التعبير التالي : ="0" & me.list1.listindex تحياتي

على العموم هذا ما تريد رغم إختلافي مع الآلية تماما تحويل المعادلات إلى أكواد2.rar

تم تطوير الكود لاحظ الخلية AC36 و AD33 تحياتي قمة وقاع5.rar

يمكن استعمال هذه المعادلة انها تتعامل مع الاعداد السلبة والموجبة =IF(E7>0,E7/2+0.5,(E7-1)/2)

برنامج جميل وكل عام وأنتم بخير

ههههههههههههه د انا شعر راسى وقف افتكرت كل الى عملتو راح وهاعيد الشغل من الاول بس الراجل الى ساعدنى د باشا ربنا يحميه

السلام عليكم أخى ابراهيم جرب الكود التالى Sub ragab() Dim FilePath As String Dim fName As String Application.ScreenUpdating = False Range("A:A").Clear FilePath = ActiveWorkbook.Path & "\" fName = Dir(FilePath & "*.xls") Do While Len(fName) > 0 Range("A1") = "أسماء الملفات" x = Left(fName, Len(fName) - 4) If x = "الرئيسية" Then GoTo 1 Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = x ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & Rows.Count).End(xlUp), Address:=fName, _ TextToDisplay:=Range("A" & Rows.Count).End(xlUp).Value 1 fName = Dir Loop Sheets("Sheet1").Range("A:A").Font.Size = 14 Columns("A:A").Columns.AutoFit Application.ScreenUpdating = True End Sub Hyperlinks.rar

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