اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

index.php?app=downloads&module=display&section=screenshot&id=99

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

File Submitter: محمد طاهر

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  • Like 1
قام بنشر

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

أخي محمد طاهر

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

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

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

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

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

قام بنشر

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

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

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

أبو عبدالله

  • 2 weeks later...
  • 11 months later...
  • 2 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information