أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





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

سلام عليكم طلب اخوتي الكرام تعديل الكود في المرافق لجمع عمودين وإظهار النتائج في العمود الثلاث لحد اخر صف به البيانات ب ..



30-05-2020 09:49 مساء
احمد 9598
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 130
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 71
 offline 

سلام عليكم طلب اخوتي الكرام تعديل الكود في المرافق لجمع عمودين وإظهار النتائج في العمود الثلاث لحد اخر صف به البيانات 
بحيث يتم جمع العمودين لحد اخر صف يوجد في بيانات وجزاكم الله خير وبارك الله فيكم
من فضلك لا تجعل ردودك دائما بعد عمل اقتباس من الرد السابق
 
 
  المصنف1.xls   تحميل xls مرات التحميل :(1)
الحجم :(36.864) KB


30-05-2020 10:32 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود جمع عمودين لحد اخر صف به بيانات
لا حاجة لليوزرفروم في هذه احالة
يكفي هذا الكود

Sub SUM_FOR_ME()
Dim ro%
Range("D4").CurrentRegion.ClearContents
ro = Range("A4").CurrentRegion.Rows.Count
  With Cells(4, 4).Resize(ro)
    .Formula = "=SUM(A4:B4)"
    .Value = .Value
  End With
End Sub

الملف مرفق
 
 
  MY-sum.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(25.452) KB


30-05-2020 10:40 مساء
مشاهدة مشاركة منفردة [2]
احمد 9598
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 130
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 71
 offline 
look/images/icons/i1.gif كود جمع عمودين لحد اخر صف به بيانات
يكفي هذا الكود انا اريد استخدم علي مدي طويل نن البيانات بحيث يتم الجمع لحد اخر صف بيه بيانات اخي الكريم
 

30-05-2020 10:53 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود جمع عمودين لحد اخر صف به بيانات
الكود يقوم بما تريد
حتى ولو زادت او نقصت البيانات

30-05-2020 10:55 مساء
مشاهدة مشاركة منفردة [4]
احمد 9598
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 130
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 71
 offline 
look/images/icons/i1.gif كود جمع عمودين لحد اخر صف به بيانات
في حالات طرح بين تاريخين كيف تكون طريق الكود
 هذا الكود في حالات الجمع وطريق ثبته امالا حتي يتم تعديل عليه اخي الكريم يعني في حلات طرف او حتي ضرب او قسمه
 

31-05-2020 06:16 صباحا
مشاهدة مشاركة منفردة [5]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود جمع عمودين لحد اخر صف به بيانات
يمكن اختيار اي عملية داخل هذا الملف ويتم تنفيذها رأساً في حال اختيارها
يتم تنفيذ ما تم اختياره على كامل العامودين (شرط عدم وجود خلايا فارغة)
في حال وجود خلايا فارغة يتوقف الكود عند اخر خلية قبل أول خلية الفارغة)
 
 
  My_Operation.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(25.273) KB


31-05-2020 01:27 مساء
مشاهدة مشاركة منفردة [6]
احمد 9598
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 130
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 71
 offline 
look/images/icons/i1.gif كود جمع عمودين لحد اخر صف به بيانات
اليك طريقه اخي الكريم وتم الحل والحمد الله وجزاك الله  خير وبارك الله فيك
Dim lr2 As Long
Dim d As Date
Dim c As Long
lr2 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
For X = 2 To lr2
a = Date
d = Sheet2.Range("g" & X).Value
Sheet2.Range("n" & X).Value = d - a
Next X




الكلمات الدلالية
عمودين ، بيانات ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:06 مساء