دغيدى قام بنشر سبتمبر 27, 2012 قام بنشر سبتمبر 27, 2012 مطلوب من السادة الأفاضل عمل كود يقوم بجمع صفوف تحدد من خلال خلايا محددة للبداية والنهاية الجمع بمعلومية خلايا.rar
الـعيدروس قام بنشر سبتمبر 27, 2012 قام بنشر سبتمبر 27, 2012 الاستاذ الحبيب دغيدي على أي أعمده ينطبق الجمع
دغيدى قام بنشر سبتمبر 27, 2012 الكاتب قام بنشر سبتمبر 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 وعليكم السلام اكرمك الله اخي الحبيب و جمعة مباركة ( ج م ) قد تفسر انها جنيه مصري تقبل تحياتي وشكري 1
دغيدى قام بنشر سبتمبر 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 قام بنشر سبتمبر 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 بواسطه عباد 1
بن علية حاجي قام بنشر سبتمبر 28, 2012 قام بنشر سبتمبر 28, 2012 السلام عليكم ورحمة الله أخي الكريم، والله أكواد رائعة من إخوة رائعين بارك الله فيكم جميعا... هذا حل آخر باستعمال المعادلات (وقد تجد فيه إجابة على تساؤلك الأخير "أرغب في تحديد بداية صف الجمع من خلال خلية معينة في الشيت")... أخوك بن علية الجمع بمعلومية خلايا.rar
دغيدى قام بنشر سبتمبر 28, 2012 الكاتب قام بنشر سبتمبر 28, 2012 أخى الفاضل / العيدروس ALIDROOS ( أبو نصار ) سلام الله عليكم ====================== شكرا لكم وليس بغريب عنكم أخى الكريم الكود الخاص بكم يعطى نتيجة مغايرة فى الصف الأول والعمود الأول فى الجمع ========== جمعة مباركة
دغيدى قام بنشر سبتمبر 28, 2012 الكاتب قام بنشر سبتمبر 28, 2012 حبيبى وأخى / بن علية حاجي سلام الله عليكم ============= الله الله على تجمع وتسابق الأحبة فى الله أنا سعيد جدا بالاحتفالية شكرا لكم برجاء توضيح عمل الدالة ADDRESS جمعة مباركة
الـعيدروس قام بنشر سبتمبر 28, 2012 قام بنشر سبتمبر 28, 2012 الاستاذ القدير دغيدي هكذا جمع الصفوف باليدوي أعتقد أنه مطابق لنتائج الكود ؟؟ ======================= جمع قيم الصفوف " 17:10" = 84 ======================= جمع قيم الصفوف " 25:18" = 148 ======================= جمع قيم الصفوف " 32:26" = 182 ======================= جمع قيم الصفوف " 17:10" = 84
دغيدى قام بنشر سبتمبر 28, 2012 الكاتب قام بنشر سبتمبر 28, 2012 أخى وحبيبى / أبو نصـــار حياكم الله النتيجة مطابقة .. وللهالحمد ولكم الشكر
بن علية حاجي قام بنشر سبتمبر 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 بواسطه بن علية حاجي 1
دغيدى قام بنشر سبتمبر 28, 2012 الكاتب قام بنشر سبتمبر 28, 2012 حبيبى / بن علية حاجي ==================== سلام الله عليكم شكرا على اسهامكم فى التواصل .. انها شيمكم ====================
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.