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

توزيع القيمة آليا علي عدد من الخلايا أفقيا


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

هذا كود بسيط لتوزيع القيمة أفقيا علي مجموعة من الخلايا بالتساوي

اكتب رقم فى أي خلية

شغل الماكرو

سيسأل عن عدد الخلايا المطلوب التوزيع عليها

نفذ

مفيد لمن يقومون بالتدفقات النقدية المتساوية

مع تحياتي

DistributeEqual.rar

  • Thanks 1
رابط هذا التعليق
شارك

  • 2 weeks later...

أستاذي بعد تجربة البرنامج

ظهر لي التوزيع أصفار

بمعنى لم يوزع الرقم الذي استخدمت

بل وضع أصفار بعدد الرقم الذي وضعت بالإنبوت بوكس

أنا أستخدم أوفيس 2000

رابط هذا التعليق
شارك

هل كتبت القيمة المراد توزيعها فى الخلية الفعلة قبل تشغيل الماكرو

مثلا اكتب 1000

ثم و انت مازلت فى نفس الخلية التي بها ا 1000

شغل الماكرو

و اختار 10 فترات

رابط هذا التعليق
شارك

  • 3 weeks later...

شكرا جزيلا استاذي الفاضل محمد طاهر الملف يعمل بطريقة جيده وبالنسبه للاستاذ ابوأحمد بعد تشغيل الماكرو وانت في نفس الخلية المكتوب بها 1000 يفتح قائمة الماكرو قبل تشغيل run اختار من اسفل macros in واختار thes workbook ثم اضغط على run وحدد عدد الخلايا المراد التوزيع عليها الرقم

رابط هذا التعليق
شارك

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

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

Important Information