منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - [ تمّ الحل ] : مجموع الصف داخل الفليكس جريد

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

إخواني الأكارم ألتمس منكم المعذرة عن كثرة تساؤلاتي ..

أرجو منكم فضلاً لا أمرًا إذا كان بإمكانكم التّوضيح لي طيفية إجراء مجمود صف كامل داخل الفليكس جريد

حسب المثال هنا سيكون مجموع الصف الخاص باسم " عبد العزيز " يساوي 395.72

و لكم مني فائق الشكر و التقدير و الاحترام

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

تفضل

كود :

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 Sub

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

تمام التّمام أهي الغالي 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

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

ألف شكر مقدما

امين الله يعطيك العافية على هذه الدعوة الجميلة الله يتقبل منا جميعا

هذا المثال معدل بالمرفقات

(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

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

ألف شكر مقدما

لاحظتها وقمت بتعديلها في المثال

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

كفيت و وفيت أخي العزيز SENDBAD100

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

أدعو الله أن يفتح لك أبواب الخير و يهبك الصحة و العافية و الطمأنينة و راحة البال و خير الدارين الدنيا و الآخرة و يرحمك فوق الأرض و بباطنها .. فرجت عني مشكلة ربنا يفرج عنك و يجنّبك كل سوء

تمام التّمام و الحمد لله

خالص تشكّراتي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عبد العزيز البسكري

sendbad100

عبد العزيز البسكري

sendbad100

عبد العزيز البسكري