المشاركات : 2,646
المواضيع 204
الإنتساب : Dec 2015
السمعة :
337
الشكر: 17136
تم شكره 11148 مرات في 2628 مشاركات
13-12-16, 03:34 AM
(آخر تعديل لهذه المشاركة : 13-12-16, 04:53 AM {2} بواسطة عبد العزيز البسكري .)
السّلام عليكم و رحمة الله و بركاته
إخواني الأكارم ألتمس منكم المعذرة عن كثرة تساؤلاتي ..
أرجو منكم فضلاً لا أمرًا إذا كان بإمكانكم التّوضيح لي طيفية إجراء مجمود صف كامل داخل الفليكس جريد
حسب المثال هنا سيكون مجموع الصف الخاص باسم " عبد العزيز " يساوي 395.72
و لكم مني فائق الشكر و التقدير و الاحترام
الملفات المرفقة
المجموع.rar (الحجم : 15.67 ك ب / التحميلات : 33)
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4340 مرات في 1696 مشاركات
وعليكم السلام ورحمة الله وبركاته
تفضل
كود :
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
المشاركات : 2,646
المواضيع 204
الإنتساب : Dec 2015
السمعة :
337
الشكر: 17136
تم شكره 11148 مرات في 2628 مشاركات
13-12-16, 04:18 AM
(آخر تعديل لهذه المشاركة : 13-12-16, 04:36 AM {2} بواسطة عبد العزيز البسكري .)
السّلام عليكم و رحمة الله و بركاته
تمام التّمام أهي الغالي 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
بقيت إشكالية وحيدة هل من الممكن جعل رقمين بعد الفاصلة بدل من عدد لا منتاهي بعد الفاصلة
ألف شكر مقدما
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4340 مرات في 1696 مشاركات
13-12-16, 04:42 AM
(آخر تعديل لهذه المشاركة : 13-12-16, 04:44 AM {2} بواسطة sendbad100 .)
امين الله يعطيك العافية على هذه الدعوة الجميلة الله يتقبل منا جميعا
هذا المثال معدل بالمرفقات
(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 (الحجم : 15.85 ك ب / التحميلات : 66)
المشاركات : 2,646
المواضيع 204
الإنتساب : Dec 2015
السمعة :
337
الشكر: 17136
تم شكره 11148 مرات في 2628 مشاركات
السّلام عليكم و رحمة الله و بركاته
كفيت و وفيت أخي العزيز SENDBAD100
بارك الله فيك و جعلها بميزان حسناتك
أدعو الله أن يفتح لك أبواب الخير و يهبك الصحة و العافية و الطمأنينة و راحة البال و خير الدارين الدنيا و الآخرة و يرحمك فوق الأرض و بباطنها .. فرجت عني مشكلة ربنا يفرج عنك و يجنّبك كل سوء
تمام التّمام و الحمد لله
خالص تشكّراتي