تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : مجموع الصف داخل الفليكس جريد
#1
السّلام عليكم و رحمة الله و بركاته
إخواني الأكارم ألتمس منكم المعذرة عن كثرة تساؤلاتي ..
أرجو منكم فضلاً لا أمرًا إذا كان بإمكانكم التّوضيح لي طيفية إجراء مجمود صف كامل داخل الفليكس جريد
حسب المثال هنا سيكون مجموع الصف الخاص باسم " عبد العزيز " يساوي 395.72
و لكم مني فائق الشكر و التقدير و الاحترام


الملفات المرفقة
.rar   المجموع.rar (الحجم : 15.67 ك ب / التحميلات : 33)
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته


تفضل 
كود :
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
الرد }}}
#3
السّلام عليكم و رحمة الله و بركاته
تمام التّمام أهي الغالي 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 , Ahmed_Mansoor , Ahmed_Mansoor
#4
امين الله يعطيك العافية على هذه الدعوة الجميلة  الله يتقبل منا جميعا 

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

(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
بقيت إشكالية وحيدة هل من الممكن جعل رقمين بعد الفاصلة بدل من عدد لا منتاهي بعد الفاصلة
ألف شكر مقدما

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


الملفات المرفقة
.rar   المجموع.rar (الحجم : 15.85 ك ب / التحميلات : 66)
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , Ahmed_Mansoor
#5
السّلام عليكم و رحمة الله و بركاته
كفيت و وفيت أخي العزيز SENDBAD100
بارك الله فيك و جعلها بميزان حسناتك
أدعو الله أن يفتح لك أبواب الخير و يهبك الصحة و العافية و الطمأنينة و راحة البال و خير الدارين الدنيا و الآخرة و يرحمك فوق الأرض و بباطنها .. فرجت عني مشكلة ربنا يفرج عنك و يجنّبك كل سوء
تمام التّمام و الحمد لله
خالص تشكّراتي
الرد }}}
تم الشكر بواسطة: sendbad100 , sendbad100 , Ahmed_Mansoor , Ahmed_Mansoor



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم