+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [ تمّ الحل ] : مجموع الصف داخل الفليكس جريد (/showthread.php?tid=18408)
[ تمّ الحل ] : مجموع الصف داخل الفليكس جريد - عبد العزيز البسكري - 13-12-16
السّلام عليكم و رحمة الله و بركاته
إخواني الأكارم ألتمس منكم المعذرة عن كثرة تساؤلاتي ..
أرجو منكم فضلاً لا أمرًا إذا كان بإمكانكم التّوضيح لي طيفية إجراء مجمود صف كامل داخل الفليكس جريد
حسب المثال هنا سيكون مجموع الصف الخاص باسم " عبد العزيز " يساوي 395.72
و لكم مني فائق الشكر و التقدير و الاحترام
RE: مجموع الصف داخل الفليكس جريد - sendbad100 - 13-12-16
وعليكم السلام ورحمة الله وبركاته
تفضل
كود :
Private Sub Command1_Click()
With MSFlexGrid1
For i = 1 To .Rows - 1
.TextMatrix(i, 14) = Val(.TextMatrix(i, 2)) + Val(.TextMatrix(i, 3)) + Val(.TextMatrix(i, 4)) + Val(.TextMatrix(i, 5)) + Val(.TextMatrix(i, 6)) + Val(.TextMatrix(i, 7)) + Val(.TextMatrix(i, 8)) + Val(.TextMatrix(i, 9)) + Val(.TextMatrix(i, 10)) + Val(.TextMatrix(i, 11)) + Val(.TextMatrix(i, 12)) + Val(.TextMatrix(i, 13))
Next
End With
End SubRE: مجموع الصف داخل الفليكس جريد - عبد العزيز البسكري - 13-12-16
السّلام عليكم و رحمة الله و بركاته
تمام التّمام أهي الغالي SENDBAD100
الله يرضى عليك دنيا و آخرة و رزقك من حيث لا تحتسب و وهبك خيرات الدّاريْن إن شاء الله
بقيت لي جزئية أخيرة لم أطرحها منذ البداية حتى لا تختلط عني الأمور ..
أضفت بقاعدة البيانات حقل جديد باسم المتوسط الحسابي MOYENNE
حاولت إضافتها على الفليكس لست أدري مابه لم يشتغل كما أريد
ما أرجوه هو قسمة المحموع الذي تكرمت أنت بتوضيحه على عدد القيم 12
في مثل حالتي المتوسط الحسابي 395.72 /12 = 32.98
بارك الله فيك مقدّمًا
تمام أخي الغالي
إستوعبت الفكرة و الحمد لله
كود :
For i = 1 To .Rows - 1
.TextMatrix(i, 14) = Val(.TextMatrix(i, 2)) + Val(.TextMatrix(i, 3)) + Val(.TextMatrix(i, 4)) + Val(.TextMatrix(i, 5)) + Val(.TextMatrix(i, 6)) + Val(.TextMatrix(i, 7)) + Val(.TextMatrix(i, 8)) + Val(.TextMatrix(i, 9)) + Val(.TextMatrix(i, 10)) + Val(.TextMatrix(i, 11)) + Val(.TextMatrix(i, 12)) + Val(.TextMatrix(i, 13))
Next
For j = 1 To .Rows - 1
.TextMatrix(j, 15) = Val(.TextMatrix(j, 14)) / 12
Next
End Withبقيت إشكالية وحيدة هل من الممكن جعل رقمين بعد الفاصلة بدل من عدد لا منتاهي بعد الفاصلة
ألف شكر مقدما
RE: مجموع الصف داخل الفليكس جريد - sendbad100 - 13-12-16
امين الله يعطيك العافية على هذه الدعوة الجميلة الله يتقبل منا جميعا
هذا المثال معدل بالمرفقات
(13-12-16, 04:18 AM)عبد العزيز البسكري كتب :السّلام عليكم و رحمة الله و بركاتهتمام التّمام أهي الغالي SENDBAD100الله يرضى عليك دنيا و آخرة و رزقك من حيث لا تحتسب و وهبك خيرات الدّاريْن إن شاء اللهبقيت لي جزئية أخيرة لم أطرحها منذ البداية حتى لا تختلط عني الأمور ..أضفت بقاعدة البيانات حقل جديد باسم المتوسط الحسابي MOYENNEحاولت إضافتها على الفليكس لست أدري مابه لم يشتغل كما أريدما أرجوه هو قسمة المحموع الذي تكرمت أنت بتوضيحه على عدد القيم 12في مثل حالتي المتوسط الحسابي 395.72 /12 = 32.98بارك الله فيك مقدّمًا
تمام أخي الغاليإستوعبت الفكرة و الحمد لله
كود :
For i = 1 To .Rows - 1
.TextMatrix(i, 14) = Val(.TextMatrix(i, 2)) + Val(.TextMatrix(i, 3)) + Val(.TextMatrix(i, 4)) + Val(.TextMatrix(i, 5)) + Val(.TextMatrix(i, 6)) + Val(.TextMatrix(i, 7)) + Val(.TextMatrix(i, 8)) + Val(.TextMatrix(i, 9)) + Val(.TextMatrix(i, 10)) + Val(.TextMatrix(i, 11)) + Val(.TextMatrix(i, 12)) + Val(.TextMatrix(i, 13))
Next
For j = 1 To .Rows - 1
.TextMatrix(j, 15) = Val(.TextMatrix(j, 14)) / 12
Next
End Withبقيت إشكالية وحيدة هل من الممكن جعل رقمين بعد الفاصلة بدل من عدد لا منتاهي بعد الفاصلةألف شكر مقدما
لاحظتها وقمت بتعديلها في المثال
RE: مجموع الصف داخل الفليكس جريد - عبد العزيز البسكري - 13-12-16
السّلام عليكم و رحمة الله و بركاته
كفيت و وفيت أخي العزيز SENDBAD100
بارك الله فيك و جعلها بميزان حسناتك
أدعو الله أن يفتح لك أبواب الخير و يهبك الصحة و العافية و الطمأنينة و راحة البال و خير الدارين الدنيا و الآخرة و يرحمك فوق الأرض و بباطنها .. فرجت عني مشكلة ربنا يفرج عنك و يجنّبك كل سوء
تمام التّمام و الحمد لله
خالص تشكّراتي