كيفية الحصول على معدل مجموعة متتالية من أرقام هائلة؟

[نور البدايات]

باسمه تعالى

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

أخواني لدي ملف يوجد به 36000 رقم في عمود واحد، و أود أن أحصل على معدل كل 33 خلية فيها على سبيل المثال:

=SUM(A1:A33)/33

=SUM(A34:A66)/33

.

.

.

فما هي الطرقة الأسرع لمعالجة جميع البيانات دفعة واحدة؟

شكرا مقدما أيها الأساتذة.

[ابو اسامة العينبوسي]

السلام عليكم

حل مبدئى

_______.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم



جرب الملف المرفق



السلام عليكم

Total.rar

[خالد نور]

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

بسم الله ماشاء الله كود رائع اخى الحبيب هادى بارك الله فيك ولقد سبقتنى فقد كنت على وشك ان اضع كود مشابه لآن بصراحة السؤال شد انتباهى ولكن حلك اكثر جمالا بالطبع

ولو تكرمت بالشرح للكود لتعم الفائدة للجميع سيكون اكثر جمالا

وتقبل تحياتى

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

اخى خالد :

اساس الكود هو طريقه الاشاره الى المجال

جرب الطريقه التاليه لتحديد المجال

Sub sRange()
    Range(Cells(1, "A"), Cells(10, "C")).Select
End Sub

السلام عليكم

[ابو اسامة العينبوسي]

السلام عليكم

اخي هادي

استفسر لو اردت مجموع كل 33 خليه من العمود a على حدى كما قالت الاخت

كيف افعل ؟

سؤال لي شخصيا يا استاذنا

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

اخى ابو اسامه

انظر ماذا قلت

كل 33 خليه

هذا الامر يتطلب انشاء متغييرين و سلطلق عليهم عدادان (Counter) عداد للبدايه اطلقت عليه h ثم اعطيته قيمه 1و عداد للنهايه اطلقت عليه h1 ثم اعطيته قيمه 33 و بذلك استطعت السيطره على المجال المراد جمعه ,و فى نهايه جمله التكرار قبل Next ادرجت كود يقوم باضافه 33 على كل من h و h1 و بذلك يكون المجال الجديد من h= 1+33 = 34

و h1 = 66 = 33+33

وهكذا

Sub sTotal()
    Range("C:C").ClearContents
    Dim RNG_Total As Range
    Dim h, h1, cont As Integer
    h = 1
    h1 = 33
    cont = 1
    For i = 1 To 110
        Set RNG_Total = Range(Cells(h, "A"), Cells(h1, "A"))
        Cells(cont, "C") = Application.WorksheetFunction.Sum(RNG_Total) / 33
        cont = cont + 1
        h = h + 33
        h1 = h1 + 33
    Next
End Sub

السلام عليكم

[ابو اسامة العينبوسي]

السلام عليكم

اخي هادي

انت اكثر من مبدع

[محمد عسكر]

السلام عليكم

اخى و استاذى / هادى

انت حقا أكثر من مبدع

و لا لا يمكننى سوى شكرك و ان اقول لك

جزاك الله خيرا و بارك الله فيك و فى علمك

تحياتى

[هادى محمد المامون سالم]

السلام عليكم

اخى و استاذى / هادى

انت حقا أكثر من مبدع

و لا لا يمكننى سوى شكرك و ان اقول لك

جزاك الله خيرا و بارك الله فيك و فى علمك

تحياتى

بسم الله الرحمن الرحيم

مشكور اخى محمد

انت فين مختفى منذ فتره ؟

اتمنى ان تكون بخير

السلام عليكم

[محمد عسكر]

السلام عليكم

شكرا استاذى / هادى

بارك الله فيك

انا موجود و الحمد لله و شكرا على سؤالك

تحياتى