اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


دغيدى

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

السلام عليكم

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

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

حسب ما فهمت


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

تم تعديل بواسطه عباد
  • Thanks 1
رابط هذا التعليق
شارك

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

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

أخوك بن علية

الجمع بمعلومية خلايا.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 الذي يخص هذه الدالة...

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

أخوك بن علية

تم تعديل بواسطه بن علية حاجي
  • Thanks 1
رابط هذا التعليق
شارك

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

ستتمكن من اضافه تعليقات بعد التسجيل



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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information