مكتبة الموقع - برنامج لتقليل هالك الحديد

[محمد طاهر عرفه]

إسم الملف: برنامج لتقليل هالك الحديد

File Submitter: محمد طاهر

تاريخ الإضافة: 11 May 2010

آخر تحديث: 17 Jun 2010

القسم فى المكتبة: دورات و دروس فى الإدارة والعمل و الحياة

هذا الملف لتقليل هالك الحديد

و يعتمد على اضافة السولفر فى الاكسيل 2007

و يعيبه استغراق وفت طويل فى الحساب

و يوجد به خمسة طرق مختلفة للحساب تختلف فى دقتها و سرعتها

الملف اعددته من فترة طويلة و استغرق جهدا كبيرا ، و لكن لا أستطيع الحكم عليه و عن مدى فائدته بعد مضي هذه الفترة ، و لكن للاسف لم انشره سابقا وأوفيسنا لم يكن قد تم افتتاحه بعد ،و قد ذكرني به موضوع الأخ طارق ، لذا أنشره الآن و اتمني ان يكون مفيدا للمهتمين بهذا المجال

و يعيب هذا الملف أنه قد يغيب أثناء التنفيذ خصوصا مع الطرق الأولي

و أسرع الطرق و أقلها دقة هي الخامسة المسماة Turbo

صراحة لم استرجع تفاصيل الملف ، فقد مضت فترة و اتركه بين يدي المهتمين بهالك الحديد و الأكواد ، الان قمت بتعديله ليعمل على 2007 ، و تذكر لابد من وجود اضافة السولفر ليعمل Solver Add-in

و ايضا اوجه الانتباه الي انه قد يطول فترة التنفيذ بحسب الحالة و الطريفة المختارة فصبرا جميلا

أترككم مع الملف

إضغط هنـــــــــــا لتنزيل الملف

[يحيى حسين]

السلام عليكم و رحمة الله

أخي محمد طاهر

بصراحة مجهود جبار و عمل متقن

و لي اقتراح صغير

حتى يتم إضافة السولفر تلقائياً لملفك

ان تضيف الكود التالي

AddIns("Solver Add-in").Installed = True

جعله الله في ميزان حسناتك

[محمد طاهر عرفه]

جزاك الله خيرا

معاك حق اضافة السولفر آليا لن تضر

و لكن لاحظت ان اضافته فى المرة الاولي على اوفيس 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

[أبوعبد الله]

أخي الحبيب وأستاذي الفاضل / محمد طاهر

عمل رائع بكل ما تحمله الكلمة من معاني ، أسأل الله أن يجعله في ميزان حسناتك وأن يعم نفعه الجميع .

مع حبي وتقديري

أبو عبدالله

[ياسر خليل أبو البراء]

إبداع بلا حدود

جعله الله في ميزان حسناتك يوم القيامة ورزقك الجنة إن شاء الله

[الجزيرة]

بارك الله فيك أخي الكريم / محمد طاهر

فأنت دائماً معطاء للخير : )

[نور الرحمة]

بارك الله فيك

استاذ محمد طاهر

[elhadad]

جزراكم الله خيرا بس فى مشكلة فى الفتح

مرفق صورة

[abu jamal]

بسم الله الرحمن الرحيم

بارك الله فيك هنالك مشكلة عند فتح الملف مع الماكرو

[وليد فتحي]

الاستاذ الفاضل محمد طاهر

جزاك الله كل خير وجعله في ميزان حسناتك

هل من شرح بسيط للبرنامج

ولك جزيل الشكر مقدما