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

**دغيدى** · سبتمبر 27, 2012

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

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

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

**الـعيدروس** · سبتمبر 27, 2012

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

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

**دغيدى** · سبتمبر 27, 2012

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

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

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

**عبدالله باقشير** · سبتمبر 27, 2012

السلام عليكم

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

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

حسب ما فهمت


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

**دغيدى** · سبتمبر 27, 2012

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

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

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

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

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

**عبدالله باقشير** · سبتمبر 27, 2012

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

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

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

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

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

**دغيدى** · سبتمبر 27, 2012

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

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

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

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

شكرا لكم

**الـعيدروس** · سبتمبر 27, 2012

السلام عليكم

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

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


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

**الـعيدروس** · سبتمبر 27, 2012

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

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

بداية صف الجمع حسب الرقم المدرج في "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 بواسطه عباد

**بن علية حاجي** · سبتمبر 28, 2012

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

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

أخوك بن علية

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

**دغيدى** · سبتمبر 28, 2012

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

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

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

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

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

==========

جمعة مباركة

**دغيدى** · سبتمبر 28, 2012

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

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

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

الله الله

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

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

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

جمعة مباركة

**الـعيدروس** · سبتمبر 28, 2012

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

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

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

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

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

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

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

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

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

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

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

**دغيدى** · سبتمبر 28, 2012

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

حياكم الله

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

ولكم الشكر

**بن علية حاجي** · سبتمبر 28, 2012

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

أخي الحبيب دغيدي، الدالة 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 بواسطه بن علية حاجي

**دغيدى** · سبتمبر 28, 2012

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

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

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

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

انها شيمكم

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

تسجيل الدخول

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

الردود الموصى بها

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

من فضلك سجل دخول لتتمكن من التعليق

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information