logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil لا تميز خلال هذه الفترة اكسيل اسئله واجابات



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





30-01-2020 09:29 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس :
تاريخ الميلاد : 17-8-1981
قوة السمعة : 244
الاعجاب : 0
السلام عليكم
احتاج مساعدة في تعديل كود حيث يقوم الكود بدمج البيانات المكررة وجمعها لكن عملية الطرح تعطي ناتج خطا
يقوم بعملية الجمع من A:E اما ناتج الطرح يظهر في العمود F=D-E وهذا الكود
CODE
Sub mcrCombineAndScrubDups()
For Each a In Range("A2", Cells(Rows.Count, "A").End(xlUp))
For r = 1 To Cells(Rows.Count, "A").End(xlUp).Row - a.Row
If a = a.Offset(r, 0) And a.Offset(0, 1) = a.Offset(r, 1) And a.Offset(0, 2) = a.Offset(r, 2) Then
a.Offset(0, 3) = a.Offset(0, 3) + a.Offset(r, 3)
a.Offset(0, 4) = a.Offset(0, 4) + a.Offset(r, 4)
a.Offset(0, 5) = a.Offset(0, 4) - a.Offset(r, 3)
a.Offset(r, 0).EntireRow.Delete
r = r - 1
End If
Next r
Next a
End Sub
 
 
  MERGE DATA ‫‬.xls   تحميل xls مرات التحميل :(1)
الحجم :(38.4) KB





اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل كود منع تكرار ادخال او ترحيل بيانات مكررة شبل
3 1621 شبل
تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items YasserKhalil
16 2576 YasserKhalil
مساعدة في تعديل كود ترحيل بيانات غير مكررة من ورقة1 الى ورقة2 المبتدأ
5 1637 المبتدأ
تعبئة كومبو بوكس ببيانات غير مكررة من اكثر من شيت عبدالرحمن صبحى
8 2378 sobhi67
تعديل في كود حدف البيانات لمكررة المبتدأ
2 1218 المبتدأ

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









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

الساعة الآن 09:30 AM