بهاء الرزاز قام بنشر سبتمبر 11, 2016 مشاركة قام بنشر سبتمبر 11, 2016 كل عام وانت بخير بمناسبة عيد الاضحي المبارك السادة الافاضل اعظاء المنتدي المطلوب توزيع قيمة المبلغ المدون بخلية D10 علي العدد المدون بخلية G10 مع الاعتبار ان المبلغ والعدد متغير وليس ثابت اي ممكن ان يكون المبلغ 100 او 200 او 240 او او او والعدد من 1 حتي 30 لا يزيد عن العدد 30 اريد فقط ان اضع المبلغ والعدد يتم التوزيع علي عدد الخلاية بقيمة المبلغ المدون طبعا للعدد اتمني ان اكون وضحت الفكرة المطلوبة 1.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 11, 2016 مشاركة قام بنشر سبتمبر 11, 2016 مرحبا جرب هذا الكود Sub AAAAAA() Dim sh As Worksheet, v As Double, x As Integer Set sh = Sheets("a") With sh v = Val(.Range("D10").Value) / Val(.Range("G10").Value) For x = 1 To Val(.Range("G10").Value) .Cells(x + 12, 5) = v Next End With End Sub 3 رابط هذا التعليق شارك More sharing options...
بهاء الرزاز قام بنشر سبتمبر 11, 2016 الكاتب مشاركة قام بنشر سبتمبر 11, 2016 اشكرك للاهتمام لكن لا يعمل معي هذا الكود رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 11, 2016 مشاركة قام بنشر سبتمبر 11, 2016 الملف يعمل عندي كما طلبت المرفق 22.rar 2 رابط هذا التعليق شارك More sharing options...
بهاء الرزاز قام بنشر سبتمبر 11, 2016 الكاتب مشاركة قام بنشر سبتمبر 11, 2016 شكرا جدا جدا لمجهودك فعلا يوجد خطاء بسيط المطلوب عند اضافة القيمة 100 مثلا والعدد 5 مثلا يتم توذيع 100 علي عدد خانة خمس مش قسمة مسائة علي خمس المفترض يكون 100 في كل خانة من الخمس انا اشكرك جدا لمساعدتك في عملي رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 11, 2016 مشاركة قام بنشر سبتمبر 11, 2016 لو ارسلت الملف و به النتائج المتوقعة و يستحسن اكثر من مثال جرب هذا Sub AAAAAA() Dim sh As Worksheet, v As Double, x As Integer Set sh = Sheets("a") With sh .Range("E13:E42") = "" For x = 1 To Val(.Range("G10").Value) .Cells(x + 12, 5) = .Range("D10").Value Next End With End Sub 1 رابط هذا التعليق شارك More sharing options...
بهاء الرزاز قام بنشر سبتمبر 11, 2016 الكاتب مشاركة قام بنشر سبتمبر 11, 2016 اشكرك لمجهودك هذا ما اريد لا استطيع ان اعبر لك عن سعادتك بارك الله لك ولاسرتك عيد سعيد عليكم جميعا رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 11, 2016 مشاركة قام بنشر سبتمبر 11, 2016 و عيدكم اسعد 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 12, 2016 مشاركة قام بنشر سبتمبر 12, 2016 كل عاام و انتم بخير جرب هذه المعادلة في الخلية E13 ,و اسحب نزولاً =IF(ROWS($A$1:A1)>$G$10,"",ROUND($D$10/$G$10,2)) 3 رابط هذا التعليق شارك More sharing options...
قلم-الاكسل(عبدالعزيز) قام بنشر سبتمبر 12, 2016 مشاركة قام بنشر سبتمبر 12, 2016 قمت بوضع الماكرو لكود ابو حنين كي يسهل عليك ظهور النتائج انظر الملف المرفق الرزاز.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 12, 2016 مشاركة قام بنشر سبتمبر 12, 2016 اثراءً للموضوع هذا الكود Sub salim_Loop() With Sheets("a") .Range("E13:E1000") = Empty x = .[g10] t = 0 .Cells(13, "e").Activate Do While t < x ActiveCell = Round([d10] / x, 2) ActiveCell.Offset(1, 0).Activate t = t + 1 Loop End With ActiveCell.Offset(-1, 0).Activate End Sub او هذا Sub salim1() With Sheets("a") .Range("E13:E1000") = Empty .Cells(13, "e").Resize(.[g10], 1) = Round(.[d10] / .[g10], 2) End With End Sub 1 رابط هذا التعليق شارك More sharing options...
بهاء الرزاز قام بنشر سبتمبر 12, 2016 الكاتب مشاركة قام بنشر سبتمبر 12, 2016 بارك الله فيكم جميعا تم انهاء العمل بنجاح فضل الاخ ابو حنين كل عام وانتم بخير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان