محمد طاهر عرفه قام بنشر مايو 11, 2010 قام بنشر مايو 11, 2010 إسم الملف: برنامج لتقليل هالك الحديد File Submitter: محمد طاهر تاريخ الإضافة: 11 May 2010 آخر تحديث: 17 Jun 2010 القسم فى المكتبة: دورات و دروس فى الإدارة والعمل و الحياة هذا الملف لتقليل هالك الحديد و يعتمد على اضافة السولفر فى الاكسيل 2007 و يعيبه استغراق وفت طويل فى الحساب و يوجد به خمسة طرق مختلفة للحساب تختلف فى دقتها و سرعتها الملف اعددته من فترة طويلة و استغرق جهدا كبيرا ، و لكن لا أستطيع الحكم عليه و عن مدى فائدته بعد مضي هذه الفترة ، و لكن للاسف لم انشره سابقا وأوفيسنا لم يكن قد تم افتتاحه بعد ،و قد ذكرني به موضوع الأخ طارق ، لذا أنشره الآن و اتمني ان يكون مفيدا للمهتمين بهذا المجال و يعيب هذا الملف أنه قد يغيب أثناء التنفيذ خصوصا مع الطرق الأولي و أسرع الطرق و أقلها دقة هي الخامسة المسماة Turbo صراحة لم استرجع تفاصيل الملف ، فقد مضت فترة و اتركه بين يدي المهتمين بهالك الحديد و الأكواد ، الان قمت بتعديله ليعمل على 2007 ، و تذكر لابد من وجود اضافة السولفر ليعمل Solver Add-in و ايضا اوجه الانتباه الي انه قد يطول فترة التنفيذ بحسب الحالة و الطريفة المختارة فصبرا جميلا أترككم مع الملف إضغط هنـــــــــــا لتنزيل الملف 1
يحيى حسين قام بنشر مايو 11, 2010 قام بنشر مايو 11, 2010 السلام عليكم و رحمة الله أخي محمد طاهر بصراحة مجهود جبار و عمل متقن و لي اقتراح صغير حتى يتم إضافة السولفر تلقائياً لملفك ان تضيف الكود التالي AddIns("Solver Add-in").Installed = True جعله الله في ميزان حسناتك
محمد طاهر عرفه قام بنشر مايو 11, 2010 الكاتب قام بنشر مايو 11, 2010 جزاك الله خيرا معاك حق اضافة السولفر آليا لن تضر و لكن لاحظت ان اضافته فى المرة الاولي على اوفيس 2007 تأخذ بعض الوفت اذا لم يكن محملا من قبل ، لذا فى هذه الحالة قد يكون من الاسلم اضافته يدويالاول مرة على الاقل اذا لم يكن محملا ضمن تحميل الاوفيس ، ثم التحكم فى تفعيله من عدمه بالكودكما تفضلت و قد عدلت الكود الاصلي ليسمح بالتفعيل الالي كما تفضلت مع أن يصبح فيه نوع من الاستئذان فبل التفعيل لربما لا يرغب المستخدم فى التفعيل لأي سبب ، و الاصدار السابق كان فقط ينبه الى عدم التحميل و يغلق الملف If AddIns("Solver Add-in").Installed = False Then If MsgBox("You must activate the Solver Add-in to use this File", vbYesNo, "Some Thing Wrong !") = yes Then AddIns("Solver Add-in").Installed = True End If End If
أبوعبد الله قام بنشر مايو 12, 2010 قام بنشر مايو 12, 2010 أخي الحبيب وأستاذي الفاضل / محمد طاهر عمل رائع بكل ما تحمله الكلمة من معاني ، أسأل الله أن يجعله في ميزان حسناتك وأن يعم نفعه الجميع . مع حبي وتقديري أبو عبدالله
ياسر خليل أبو البراء قام بنشر مايو 12, 2010 قام بنشر مايو 12, 2010 إبداع بلا حدود جعله الله في ميزان حسناتك يوم القيامة ورزقك الجنة إن شاء الله
الجزيرة قام بنشر مايو 12, 2010 قام بنشر مايو 12, 2010 بارك الله فيك أخي الكريم / محمد طاهر فأنت دائماً معطاء للخير : )
elhadad قام بنشر مايو 23, 2010 قام بنشر مايو 23, 2010 جزراكم الله خيرا بس فى مشكلة فى الفتح مرفق صورة
abu jamal قام بنشر أبريل 30, 2011 قام بنشر أبريل 30, 2011 بسم الله الرحمن الرحيم بارك الله فيك هنالك مشكلة عند فتح الملف مع الماكرو
وليد فتحي قام بنشر ديسمبر 29, 2013 قام بنشر ديسمبر 29, 2013 الاستاذ الفاضل محمد طاهر جزاك الله كل خير وجعله في ميزان حسناتك هل من شرح بسيط للبرنامج ولك جزيل الشكر مقدما 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.