جمع صفوف بمعرفة أرقامها

[دغيدى]

مطلوب من السادة الأفاضل

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

الجمع بمعلومية خلايا.rar

[الـعيدروس]

الاستاذ الحبيب دغيدي

على أي أعمده ينطبق الجمع

[دغيدى]

أخى الحبيب / عباد

سلام الله عليكم

على كل الاعمدة

[عبدالله باقشير]

السلام عليكم

اخي الحبيب دغيدي----------- حفظه الله

مع ملاحظة ان ارقام الصفوف توخذ من خلايا الجمع

حسب ما فهمت

Sub kh_Sum()

Dim RngTest As Range

Dim R As Integer, C As Integer

Dim RR1 As Integer, RR2 As Integer

Set RngTest = Range("MySumRow")

With Range("A4:H61")

    For R = 1 To RngTest.Rows.Count

        RR1 = RngTest.Cells(R, 1).Value

        RR2 = RngTest.Cells(R, 2).Value

        For C = 1 To .Columns.Count

            Range("A64").Cells(R, C) = WorksheetFunction.Sum(Range(.Cells(RR1, C), .Cells(RR2, C)))

        Next

    Next


End With


Set RngTest = Nothing

End Sub

تفضل المرفق 2003

الجمع بمعلومية خلايا.rar

[دغيدى]

سلام الله عليكم أهلى اهل اليمن

حفظكم الله من كل شر وسوء

أفضل ما فيكم كرم العلم

الشكر لكم .. يقولون فى الرياضيات هـ ط ث أى هو المطلوب اثباته

**********************

[عبدالله باقشير]

وعليكم السلام

اكرمك الله اخي الحبيب

و جمعة مباركة ( ج م )

قد تفسر انها جنيه مصري

تقبل تحياتي وشكري

[دغيدى]

أخى الحبيب / عبدالله باقشير

==========================

هل لى أطلب طلبا ليلبى حاجة عندى الا وهى :-

أرغب فى تحديد بداية صف الجمع من خلال خلية معينة فى الشيت .

شكرا لكم

[الـعيدروس]

السلام عليكم

جزاك الله خير استاذ عبدالله

كنت توصلت لحل ولكنه بدائي جدا

Sub Su_Alidroos()

On Error Resume Next

A = [J2]: AA = [K2]

B = [J3]: BB = [K3]

Ct = [J4]: CC = [K4]

D = [J5]: DD = [K5]

RR = Range("A4").CurrentRegion.Rows.Count + 1

For C = 1 To 8

Cells(RR, C) = S_Ali(Range(Cells(A, C), Cells(AA, C)))

Cells(RR + 1, C) = S_Ali(Range(Cells(B, C), Cells(BB, C)))

Cells(RR + 2, C) = S_Ali(Range(Cells(Ct, C), Cells(CC, C)))

Cells(RR + 3, C) = S_Ali(Range(Cells(D, C), Cells(DD, C)))

Next

End Sub

Function S_Ali(m_r As Range)

Dim C_Ali As Range, C_D As Double

For Each C_Ali In m_r

If IsNumeric(C_Ali) Then

C_D = C_D + C_Ali.Value

End If

Next

S_Ali = C_D

End Function

[الـعيدروس]

الاستاذ الحبيب دغيدي

هذا تعديل الكود من قبلي لطلبك الاخير

بداية صف الجمع حسب الرقم المدرج في "L2"

Sub Su_Alidroos()

On Error Resume Next

A = [J2]: AA = [K2]

B = [J3]: BB = [K3]

Ct = [J4]: CC = [K4]

D = [J5]: DD = [K5]

'=============================================

'خلية تحدد فيها بداية رقم صف الجمع المراد

RR = Val([L2])

'=============================================

For C = 1 To 8

Cells(RR, C) = S_Ali(Range(Cells(A, C), Cells(AA, C)))

Cells(RR + 1, C) = S_Ali(Range(Cells(B, C), Cells(BB, C)))

Cells(RR + 2, C) = S_Ali(Range(Cells(Ct, C), Cells(CC, C)))

Cells(RR + 3, C) = S_Ali(Range(Cells(D, C), Cells(DD, C)))

Next

End Sub

Function S_Ali(m_r As Range)

Dim C_Ali As Range, C_D As Double

For Each C_Ali In m_r

If IsNumeric(C_Ali) Then

C_D = C_D + C_Ali.Value

End If

Next

S_Ali = C_D

End Function

وبعد اذن الاستاذ القدير خوبر خير وهذا كود العلامه خوبر خير

Sub kh_Sum()

Dim RngTest As Range

Dim R As Integer, C As Integer

Dim RR1 As Integer, RR2 As Integer

'=============================================

'خلية تحدد فيها بداية رقم صف الجمع المراد

Kh_Add = [L2]

'=============================================

Set RngTest = Range("MySumRow")

With Range("A4:H61")

	 For R = 1 To RngTest.Rows.Count

			 RR1 = RngTest.Cells(R, 1).Value

			 RR2 = RngTest.Cells(R, 2).Value

			 For C = 1 To .Columns.Count

					 Range("A" & Kh_Add).Cells(R, C) = WorksheetFunction.Sum(Range(.Cells(RR1, C), .Cells(RR2, C)))

			 Next

	 Next

End With

Set RngTest = Nothing

End Sub

الجمع بمعلومية خلايا_1.rar

تم تعديل سبتمبر 27, 2012 بواسطه عباد

[بن علية حاجي]

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

أخي الكريم، والله أكواد رائعة من إخوة رائعين بارك الله فيكم جميعا... هذا حل آخر باستعمال المعادلات (وقد تجد فيه إجابة على تساؤلك الأخير "أرغب في تحديد بداية صف الجمع من خلال خلية معينة في الشيت")...

أخوك بن علية

الجمع بمعلومية خلايا.rar

[دغيدى]

أخى الفاضل / العيدروس ALIDROOS ( أبو نصار )

سلام الله عليكم

======================

شكرا لكم وليس بغريب عنكم

أخى الكريم الكود الخاص بكم يعطى نتيجة مغايرة فى الصف الأول والعمود الأول فى الجمع

==========

جمعة مباركة

[دغيدى]

حبيبى وأخى / بن علية حاجي

سلام الله عليكم

=============

الله الله

على تجمع وتسابق الأحبة فى الله

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

برجاء توضيح عمل الدالة ADDRESS

جمعة مباركة

[الـعيدروس]

الاستاذ القدير دغيدي

هكذا جمع الصفوف باليدوي

أعتقد أنه مطابق لنتائج الكود ؟؟

=======================

جمع قيم الصفوف " 17:10" = 84

=======================

جمع قيم الصفوف " 25:18" = 148

=======================

جمع قيم الصفوف " 32:26" = 182

=======================

جمع قيم الصفوف " 17:10" = 84

[دغيدى]

أخى وحبيبى / أبو نصـــار

حياكم الله

النتيجة مطابقة .. وللهالحمد

ولكم الشكر

[بن علية حاجي]

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

أخي الحبيب دغيدي، الدالة ADRESS تعطي مرجعا (عنوانا) لخلية حسب الوسائط المستعملة مع الدالة وصيغتها كما يلي:

=ADRESS(Row_Num, Column_Num, [Type], [a1], [Sheet_Name])

شرح الوسائط: * Row_Num : رقم السطر (ضروري) * Column_Num : رقم العمود (ضروري) * Type : (غير ضروري) نوع المرجع وهي رقم من 1 إلى 4 حسب ما يلي: 1 أو فراغ : مرجع مطلق مثل 1$A$ 2 : مرجع مطلق للسطر مثل A$1 3 : مرجع مطلق للعمود مثل A1 $ 4 : مرجع نسبي مثل A1 * a1 : قيمة منطقية (غير ضروري)، TRUE أو فارغة: للترميز لعمود الخلية بحرف وسطرها برقم مثل A1 و FALSE : للترميز لعمود وسطر برقم مثل L1C1 (المرجع المطلق في هذا الترميز هو رقم دون قوسين والمرجع النسبي هو رقم بين قوسين)... * Sheet_Name : (غير ضروري) اسم الشيت بين علامتي التنصيص "" إذا أردنا أن يُذكر اسم الشيت في المرجع مثل Sheet1!A1 أو غيرها أمثلة :

=ADRESS(2;4)

تعطي المرجع : D$D$2$

=ADRESS(2;1;3)

تعطي المرجع : A2$A2

=ADRESS(2;1;3;FALSE)

تعطي المرجع : L(2)C1

=ADRESS(5;3;;;"SHEET1")

تعطي المرجع : SHEET1!$C$5

ويمكن إعطاء أمثلة أخرى حسب الشرح بالأعلى...

أرجو أني وُفقت في إعطاء شرح بسيط للدالة ADRESS ولزيادة في الفهم يمكن الاستعانة بما يقدمه الإكسيل في Help الذي يخص هذه الدالة...

ملاحظة: في عبارة الدالة ينبغي التأكد من الفاصلة المنقوطة أو الفاصلة بين وسائط هذه الدالة حسب نسخة الأوفيس...

أخوك بن علية

تم تعديل سبتمبر 28, 2012 بواسطه بن علية حاجي

[دغيدى]

حبيبى / بن علية حاجي

====================

سلام الله عليكم

شكرا على اسهامكم فى التواصل ..

انها شيمكم

====================