عادل حنفي

ماشاء الله ربنا يبارك فيك

هذه رساله خاصه بالاخ العزيز ابو تامر اولا خالص الدعاء لك بالتوفيق ورزقك الله بالجنة ان شاء الله ثانيا برنامج مولد المعادلات ليس فاشلا اخي ابو تامر و نريد ان نأخذ منك عهدا باتمامه ان شاء الله لنفعه الاكيد و فقك الله لما فيه الخير....... ............................................... .............. ...............

اخي العزيز هذا هو المطلوب من هذا المنتدي حسب اعتقادي (الأفاده للجميع) فإن قرأت و فهمت هذه فائده و إن لم تفهم و لم تسأل فلن تتعلم أبدا !!!!!!! تحيــــــــــاتي

اخواني اسف اخطأت الملف الذي كان من المفروض ان ارسله و اليكم الملف الصحيح test.rar

و هذا اخر نتاج العمل الشيت بالكامل يلغي دون التاثير علي المعادلات وزر يلغي كامل الشيت test.rar

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

اخي ابو تامر انا شاكر جدا لمتابعتك معي و انا منتظر بشوق للبرنامج بعد التحديث و جزاكم الله جميعا كل خير وربنا يقدرنا ان نقدم كل مانقدر عليه لهذا المنتدي الرائع بمشرفيه الاروع تحياتــــــ ـــــــــــــــــــــي

الاخ العزيز ابو تامر اولا لم ترسل لي الاداة التي ذكرتها و علي العموم انا فهمت انها اداة ارجاع الاوفيس لاعداداته الاصليه فلا تقلك هي عندي و قد حملتها و لم يفلح الامر لذلك قمت بعمل uninistall للاوفس و تحميله من جديد و المفاجأه لقد اشتغل معي البرنامج و كان رائع رائع رائع فاشكر اهتمامك و حسن المتابعه و فقك الله لكل خير ان شاء الله اخي العزيز ووضع جهدك في ميزان حسناتك ان شاء الله فلك مني خالص احترامي وتقديري لك اخي العزيز وعندي سؤال اخير عند اشارتي لايقونة عمل البرنامج تاتي رساله مفادها ان البرنامج يعمل 1500 معادله و هو نسخه تجريبيه فهل هذا معناه ان البرنامج سيقف عن العمل بعد فتره........

اخي العزيز ابو تامر اشكرك علي اهتمامك بالنسبه لنسخة الوفيس هي كالتالي بالضبط office 2003 v 11.5612.5606 مسار الملف c:\ ss.xls تحياتي

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

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

وجدت لكم اخواني مكتبه قد تحتاجون اليها إضغط هنا

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

اخي العزيز ابو تامر الكود بالفعل مثل ما توقعت اكثر من رائع و كل يوم بالفعل لابد من تعلم معلومه جديده معكم فلك كل تحياتي و تقديري

الاخ العزيز ابو أسامه الاخ العزيز ابو تامر شرفني مروركم علي موضوعي و رأيكم فيه وساما منحتموه لي و سعادتي الاكثر ان هذا يحفزني اكثر لشئ اكبر ان شاء الله ومهما طال الزمن لن انسي ابدا اناسا قابلتهم في هذا المنتدي او بمعني اصح عرفتهم بابداعاتهم وهم بالفعل غير بخلاء علي اعضاء هذا المنتدي و في نفس الوقت اجدهم في غايه التواضع فاجد احدهم يضع سؤالا يستعلم عن اجابته و هذا سر العظمه و التألق لأنه لايوجد بشر فوق العلم فالجميع هنا قد يكون معطي او معطي له مع الفارق طبعا . المهم المنتدي جميل بيكم وبأمثالكم فهنيئا لنا بكم..... الاخ ابو تامر العزيز لقد رايت من قبل هذا الملف و اضعته وبحثت عنه كثيرا و لم اجده و ها انت تجلبه لي انه بالفعل رائع و حمايه رائعه للمعادلات و احتاجه فعلا لملف خاص بعملي و لكنه سياخذ كثيرا من الوقت خاصة ان كل معادله ساكتبها في الكود و وقتي الحالي لايسمح بذلك و لكني سانفذه في القريب العاجل فاشكرك عليه كثير الشكر و اما بالنسبه للكود الذي ارسلته لي Sub Test_1() ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants).ClearContents End Sub سوف اقوم بتجربه ان شاء الله و انا اعرف مبدئيا انه سيكون افضل لانه خرج من امثالكم و لكم مني خالص شكري و تقديري

بعد محاولات عديده لعله يكون بالفائده delet_range_saving_fotmula.rar delet_range_saving_fotmula.rar

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

اخواني في هذا الموقع العزيز بصراحه تعبت حتي اصل الي هذه النتيجه و مع انه ليست اخر المطاف ولكني اردت ان تشاركوني فيما وصلت اليه و تعطوني رأيكم وسوف احاول اكمال ذلك ان شاء الله و لكن بتشجيعكم الذي سيدفعني اكثر ان شاء الله للاسف الملف الاول كان به مشكله فارجو تحميل الملف التاني Copy_Formula.rar Copy_Formula.rar

اخي العزيز ابو اسامه اشكرك علي اهتمامك و بالمناسبه انا اعمل عليها الان و عندما تحل ساخبرك ان شاء الله و علي فكره انا قطعت فيها شوط طويل و ان شاء الله تنجح خالص تحياتي

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

اخي العزيز من قائمة view اختار منها toolbars ثم اختار forms سيظهر لك شريط ادوات اختار منه القائمه المنسدله و ستعمل معك ان شاء الله.

الاخ العزيز لايوجد هناك خطأ و لاشيئ كا مافي الموضوع انه بالفعل عندما تجمع باليد تجد النسبه اعلي بقليل و هو فارق التقريب و لقد ارسلت لك الملف بتعديل مواصفات الخليه و ستعرف بنفسك انه لايوجد هناك اي خطأ __________.rar

اخي العزيز اشكرك لاهتمامك و سرعة الرد اولا الملف كبير ويصعب رفعه ثانيا عندي معلومات بسيطه عن طرق تحديد المدي وتفريغ محتواه من البيانات ولكن من صفحه لاخري يختلف المدي حتي داخل الصفحه الواحده فانه يختلف لذا يصعب مايتم اجراؤه علي صفحه ليعمل علي الاخري فما كنت ابحث عنه هو حتي اخذ نسخه من الملف بدون الارقام المدخله فقط وثبات باقي البيانات و المعادلات كما هي انني كنت رايت مثال عند الغاء للمعادله عند الضغط علي delet فتلغي و لكن سرعان ماتعود مرة اخري و لكني بحثت عن هذا المثال فلم اجده وعلي العموم سارسل لك صفحه من التقرير حددت لك جزء ممايراد حزفه فيها و ستعرف ما يجب عمله في باقي الصفحه فقد تكون مفيده لك لتكتمل الفكره عندك و ان شاء الله يكون بيدك الحل My_Repot.rar

اخي العزيز اليك طلبك بشكلين مختلفين الاول عباره عن كودين و الاخر عباره عن ملف مرفق الكود الاول يجعل الخليه النشطه بدون لون عند فتح الملف Private Sub Workbook_Activate() Cells.Interior.ColorIndex = xlColorIndexNone End Sub و الاخر يعمل علي الخليه النشطه ويغير لونها Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Static OldCell As Range If Not OldCell Is Nothing Then OldCell.Interior.ColorIndex = xlColorIndexNone End If Target.Interior.ColorIndex = 15 Set OldCell = Target End Sub اما الملف المرفق فها هو يا عزيزي cellse_color.rar

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