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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

السلام عليكم عندي كود شغال يقوم بتلوين البيانات في الورقة2 بناء على الورقة 1 سواء المكررة او غير المكررة وانا في ح ..



18-10-2019 07:13 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 213
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 148
الاعجاب : 51
 Online 

السلام عليكم 
عندي كود شغال يقوم بتلوين البيانات في الورقة2 بناء على  الورقة 1  سواء المكررة او  غير المكررة   وانا في حالتي  اريد تلوين  البيانات الغير المكررة    وهذ الكود 
Sub foo()
LASTROW = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To LASTROW
    For j = 2 To LASTROW
        If Sheets("ورقة1").Cells(i, 1).Value <> Sheets("ورقة2").Cells(j, 1).Value Then
            For k = 1 To 4
                If Sheets("ورقة1").Cells(i, k).Value <> Sheets("ورقة2").Cells(j, k).Value Then
                    Sheets("ورقة2").Cells(i, k).Interior.Color = RGB(255, 0, 0)
                End If
            Next k
        End If
    Next j
Next i

End Sub

 
 
 
  اظهار الاختلافات في الورقة 2 بناء على الورقة 1 وتلوينها بالاحمر.xls   تحميل xls مرات التحميل :(3)
الحجم :(52.736) KB







18-10-2019 07:31 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23793
الاعجاب : 2466
 offline 
look/images/icons/i1.gif تعديل كود المقارنة بين بيانات ورقتين
وعليكم السلام
لم أفهم المطلوب بالضبط ... ممكن تضع صورة لشكل النتائج المتوقعة بالضبط





18-10-2019 07:46 مساء
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 213
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 148
الاعجاب : 51
 Online 
look/images/icons/i1.gif تعديل كود المقارنة بين بيانات ورقتين
المطلوب  عند الضغط على الماكرو البيانات  الموجودة  في ورقة 2 وغير موجودة في الورقة 1  تتلون البيانات باللون الاحمر  اما  البيانات الموجودة في ورقة1 هي نفس البيانات الموجودة في ورقة 2  تبقى كما هي بدون اي تلوين





18-10-2019 10:11 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23793
الاعجاب : 2466
 offline 
look/images/icons/i1.gif تعديل كود المقارنة بين بيانات ورقتين
أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أثارت هذه المشاركة إعجاب: المبتدأ، ali mohamed ali، صلاح الصغير،




18-10-2019 10:33 مساء
مشاهدة مشاركة منفردة [4]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 213
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 148
الاعجاب : 51
 Online 
look/images/icons/i1.gif تعديل كود المقارنة بين بيانات ورقتين
اخي ياسر  الكود شغال  وبارك الله فيك  ولكن اريد ان افهم هذه الجزئية من الكود 
Set rng = ws.Range("G:G").Find(sh.Cells(i, 7))
ws.Columns(7).Clear: sh.Columns(7).Clear


الاحظ بالنسبة للارقام 7 فهي تشير الى العمود السابع بينما انا لدي  4 اعمدة  فقط   ايضا  المدى اللي عندي اخر شيء هو العمود الرابع فبالتالي يكون D: D  بدلا من G: G    اتمنى ان توضحها 





19-10-2019 05:17 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23793
الاعجاب : 2466
 offline 
look/images/icons/i1.gif تعديل كود المقارنة بين بيانات ورقتين
بارك الله فيك أخي الكريم
إذا تتبعت الكود ستجد أن الكود يقوم بعملية دمج للنصوص الموجودة في الأربعة أعمدة ويضع النتيجة في العمود السابع بعيداً عن نطاق البيانات ، وعلى أساس هذا العمود يتم معرفة ما إذا كانت القيمة موجودة أم لا
تقبل تحياتي





19-10-2019 02:19 مساء
مشاهدة مشاركة منفردة [6]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 213
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 148
الاعجاب : 51
 Online 
look/images/icons/i1.gif تعديل كود المقارنة بين بيانات ورقتين
شكرا  اخي  ياسر  





19-10-2019 03:11 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23793
الاعجاب : 2466
 offline 
look/images/icons/i1.gif تعديل كود المقارنة بين بيانات ورقتين
بارك الله فيك أخي الكريم
والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
المقارنة بين ارقام في عمودين محمود ابو الدهب
8 882 محمود ابو الدهب

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


 







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



الساعة الآن 10:19 صباحا

أعلن هنا
أعلن هنا
أعلن هنا