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

الأستاذ الفاضل / محمد أبو البراء السلام عليكم ورحمة الله وبركاته عذراً أنا حملت الملف خطأ والنت عندي ضعيف وتم التعديل مباشرة وجزاك الله خيراً.

الأستاذ / asd2000 السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. 99.rar

اهداء لاستاذي الحبيب ( رجب جاويش ) شمعة تضي من أجل الاخرين

الأخ الكريم/ marfipo السلام عليكم ورحمة الله وبركاته أهلا وسهلا بكم في منتدانا العامر لو تمكنت من تغيير أسم الظهور إلي العربية لكان أفضل للتواصل وبعد إستئذان الأستاذ الفاضل/ طارق محمود لولا أني جهزت الملف - لأحجمت عن رفعه بعد رؤية الرد الوافي للأستاذ/ طارق لكن عسي أن تحدث منه إفادة - تقبل تحياتي rapport journalier GO Préfas.rar

السلام عليكم تفضل المرفق ادخال شيت دخول مع شيت خروج لعمل شيت اجمالى عملاء2.rar

السلام عليكم أخي العزيز تفضل هذا هو الكود Sub add_new_sheet() d = DateValue(ActiveSheet.Name) + 1 new_name = Format(d, "dd-mm-yyyy") ActiveSheet.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = new_name [c8] = "'" & new_name For Each ce In [G25:V36] If ce.HasFormula = True Then GoTo 10 ce.ClearContents 10 Next End Sub وهذا الملف مرفق وبه الكود يعمل بالزر الأحمر لاحظ أنني أضفت الحلقة التالية بنهاية الكود For Each ce In [G25:V36] If ce.HasFormula = True Then GoTo 10 ce.ClearContents 10 Next وهي تقوم بمسح البيانات (وليس المعادلات) الموجودة بالنطاق G25:V36 rapport journalier GO Préfas.rar

السلام عليكم استاذى // الشهابى اولا اود ان اشكرك على هذا المدح الجميل فالعين لا تعلوا على الحاجب ثانيا الحمد لله تم ابعادنا عن الوقوع فى الخطأ بعد عده مرات وتفكير عميق وقد اثبتت التجربه الاخيره جدواها ثالثا مشكور على اطرائك الرائع عنى فحلولك هى الاروع والاذكى لآنى تعلمت منك الكثير رابعا بالنسبه للحلول المشكله كانت تتلخص فى كيف نقول للأكسيل ان مثلا 4.1 الرابعه وعشره دقائق فهو يعتبرها 4:01 بمعادله SUBSTITUTE التى تقوم بدورها بتحويل النقطه الى نقتطان فوق بعضهما لازالت المشكله متواجده ايضا مواعيد الحضور والانصراف فى تاريخ اليوم الواحد لابد ان تتصل بمواعيد انصراف فى اليوم التالى فكان لابد من مواصله العد لساعات العمل بصيغه الـ 24 ساعه ترجمتها الى صيغه 12 ساعه صباحا ومساءا على مدار يومان متتاليان فالحمد لله اننا توصلنا لهذه الفكره التى ادت بنا فى النهايه لتغير آليه ادخال الوقت وتغير مفهوم اكسيل عن الوقت انه يمكن ان يكون بهذه الصيغه 4.1 هى الرابعه وعشره دقائق وعمل سلسله زمنيه اخرى لتتوازى الصيغتان لتعتطينا النتائج المرجوه وهى 4:10 خامسا انا لم اكن استاذ بل تلميذ واتعلم منكم ومن كل اعضاء هذا المنتدى الرائع سادسا بالنسبه لقله مشاركاتى عملى الجديد يأخذ كل وقتى وما يتبقى منه بالكاد للمنزل واهلى بيتى وعلى قدر المستطاع احاول المشاركه والمساعده لما يتبقى لى من وقت وما استطيع ان اساعد به اى عضو من اعضاء المنتدى الرائع او اتعلم اى شىء من الاستاذه وهم معروفون وايضا تبادل المعلومات وتبادل الخبرات قدر المستطاع واشكرك جدا استاذى الشهابى على هذا الاهتمام والمشاركه التى ترفع من روحى المعنويه لبذل المزيد من اجل منتدانا الجميل اوفيسنا وايضا اشكر كل اساتذتى ومن شاركونا الحلول والمشاركات الأستاذة الفاضلة الأخت الكريمة / أم عبد الله التي بدلت جهدا كبيرا وكانت لها حلول وأفكار رائعة وأستاذنا القدير / محمد أبو البراء صاحب المجهودات الكبيرة في المنتدى دون كلل أو ملل وأستاذنا الكريم /أبو محمد عباس المتابع لأعمال الإخوان بشكل دائم ومشاركته لها رونق خاص وأستاذنا الكبير / حمادة باشا الكبير فعلا فأعماله ومشاركته من العيار الثقيل وشاهدة على أنه باشا تقبلوا تحياتى

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

أستاذى الرائع ( مجدى يونس ) شرف لى أستاذى مروركم وكلماتكم الجميلة بارك الله فيكم وجزاكم الجنة ورفع قدركم مثلما ترفعون من قدرى تقبل تحيات : تلميذكم

أخى الفاضل / احمد هذا مثال بسيط يوضح لك ما تريد تقبل تحياتى رسالة اتمام ادخال البيانات.rar

السلام عليكم تم تجميع كل الأوراق في ملف واحد وتحويله إلى النظام الثنائي أرجو أن يكون هذا هو ما تريده تفضل الشامل.rar

السلام عليكم ورحمة _الله_ وبركاته أخي الحبيب تفضل قمت باستيراد الوحدات النمطية وتقرير من المثال الموجود بالرابط الذي أشرت عليك به الى مثالك ويعمل الآن فقت قم بباقي التعديلات على التقرير بما يناسبك A_enderline_2.rar

السلام عليكم العنوان : سؤال لخبراء الاكسل فهل من مجيب ليس عنوانا مناسبا لموضوعك قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف ×××××××× سيتم تعديل العنوان وارجوا عدم التكرار ×××××××× الإدارة

السلام عليكم الأخ عبدالرحمن قد مرت علي هذه المشكلة مع الأكسل عندما كنت في بداية التعلم ولكن بعد فترة وجدت حلول سليمة وفعاله لتقليل الحجم وتسريع الإكسل والحلول التي اقترحها هي : 1 تحويل بعض الصيغ إلى أكواد فيجوال 2 استخدام الدالة indirect فهي ( قد ) تختصر المعادلات انظر الرابط http://www.officena.net/ib/index.php?showtopic=34740&hl= 3 تحويل ملف الإكسل إلى الإمتداد xlsb يعنى النظام الثنائي

السلام عليكم الاخ / عبد الرحمن انا لا اعتقد مهما فعلت مع اكسيل ان يكون سريع خاصه النطاق الذى لديك كبير ومن ما جعل الموضوع اصعب معادله sumif من ما يؤدى الى كثير من البطىء ولكن جرب تحوبل المدى الى xlsb. الاصغر حجما والاسرع اداءا وعلى الاقل هى محاوله والسلام رأى اخر اعتقد انه البديل الامثل هو استبدال عمل المعادلات بأكواد VBA ليكون الملف اسرع آلاف المرات ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ من المعادلات وانتظر اراء خبراء الاعضاء هذا ما لدى والله اعلم

http://www.youtube.com/watch?v=lh4VjEoD5WY

الأستاذ الفاضل/ مجدى يونس السلام عليكم ورحمة الله وبركاته جزاكم الله خير - وشاكرا لكم

السلام عليكم جرب هذه تحياتي متقدم او متأخر.+xlsx.rar

أخى الفاضل / الطالب هذا تعديل آخر حسب ما فهمت من طلبك جرب واى تعديل أخبرنى Book3.rar

Sub طباعة_ورقة() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False End Sub مثلا لطباعة ورقة .. لاحظ اسم الكود أو الماكرو باللغة العربية ولكن بدون مسافات فاصلة

استاذتنا الكبيره الفاضله // ام عبد الله بسم الله ماشاء الله عليكى حلول كلها رائعه ومرونه منقطعه النظير لما تريدى فعله لما يتطلب احتياجات الاخ تركى1 بارك الله فيكى وجزاكى كل الخير على ما تفعليه من مساعده الاخوه الاعضاء كنت انتوى ان المشاركه فعاله بمرفق لكن بعدما رأيت كل مرفقات قلت بداخلى ما سأضيف انا بعد تلك الحلول الرائعه بارك الله فيكى تقبلى تحياتى لى الشرف ان اكون تلميذك

السلام عليكم بعد العمل الرائع للأخت الفاضلة / ام عبد الله ولاثراء الموضوع هذا كود فى حدث الصفحة حسب ما فهمت من المشاركة الأولى Book2.rar

الأستاذ / تركي1 السلام عليكم ورحمة الله وبركاته تم التعديل على الملف كما طلبت. المتبقي من الاجازة 6.rar

جرب هذه الفكره لعلها ما تقصد Showtextbox.rar

السلام عليكم ورحمة _الله_ وبركاته أخي الحبيب راجع هذا الرابط إن شاء _الله_ تجد فيه ما يسرك http://www.officena.net/ib/index.php?showtopic=36167

أخى الفاضل ما رأيك بهذه الفكرة فلترة.rar

السلام عليكم ورحمة الله وبركاته جرب المعادلة التالية =VLOOKUP(A1;INDIRECT(B1&"!"&"A1:C15");3;FALSE) اذا لم يتحقق المطلوب ارفق ملف كمثال لتوضيح طلبك