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

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


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


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





معادلة عدم التكرار

السادة الافاضل اريد معادلة عند كتابة رقم او اسم تظهر رسالة انه مكرر ولايمكن ادراجة . وشكرا



16-07-2019 06:25 مساء
RANDA
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 13-07-2019
رقم العضوية : 13787
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 24-11-1973
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
السادة الافاضل
اريد معادلة عند كتابة رقم او اسم تظهر رسالة انه مكرر ولايمكن ادراجة .
وشكرا




16-07-2019 07:00 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8294
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif معادلة عدم التكرار
السلام عليكم أخي الكريم
يرجى إرفاق ملف لتتضح صورة طلبك للأخوة الأعضاء

أثارت هذه المشاركة إعجاب: RANDA،



16-07-2019 07:03 مساء
مشاهدة مشاركة منفردة [2]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 433
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3417
الاعجاب : 302
 offline 
look/images/icons/i1.gif معادلة عدم التكرار
جرب هذا الملف في النطاق من  A2 الى A10 
 
 
 
  NO_Dup.xlsx   تحميل xlsx مرات التحميل :(9)
الحجم :(8.472) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil، محمد الدسوقى،



16-07-2019 07:55 مساء
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 695
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 66
يتابعهم : 9
يتابعونه : 610
قوة السمعة : 7436
الاعجاب : 400
 offline 
look/images/icons/i1.gif معادلة عدم التكرار
أحسنتم أستاذنا الفاضل / سليم
وإثراء للموضوع 
يمكن استخدام كود رائع من المبدع / ياسر العربى يقوم بالمطلوب
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim son As Long, onay, bul As String
    Dim ara As Range
    
    If Intersect(Target, Range("C2:C10")) Is Nothing Then Exit Sub
    son = Cells(Rows.Count, Target.Column).End(xlUp).Row
    On Error Resume Next
    If WorksheetFunction.CountIf(Range(Cells(2, Target.Column), Cells(son, Target.Column)), Target) < 1 Then
        Exit Sub
    End If
    If WorksheetFunction.CountIf(Range(Cells(2, Target.Column), Cells(son, Target.Column)), Target) > 1 Then
        bul = Empty
        Set ara = Range(Cells(2, Target.Column), Cells(son, Target.Column)).Find(Target, , xlValues, xlWhole)
        If Not ara Is Nothing Then
            adres = ara.Address
            Do
                bul = bul & ara.Row & "      -      " & Cells(ara.Row, Target.Column) & Chr(10)
                Set ara = Range(Cells(2, Target.Column), Cells(son, Target.Column)).FindNext(ara)
            Loop While Not ara Is Nothing And ara.Address <> adres
        End If
        onay = MsgBox("المكرر :        رقم الصف :" & vbCrLf & Chr(10) & bul & vbLf & "هل ترغب في اظافته?", vbYesNo)
        If onay = vbYes Then MsgBox "تمت الاظافة.", vbInformation, "اكاديمية الصقر للتدريب"
        If onay = vbNo Then Target.ClearContents
    End If
End Sub



أثارت هذه المشاركة إعجاب: YasserKhalil، عبدالرحمن صبحى،



23-07-2019 07:29 مساء
مشاهدة مشاركة منفردة [4]
gedo_hafs
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-06-2019
رقم العضوية : 13592
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 1-10-1980
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif معادلة عدم التكرار
الرجاء من السيد الفاضل محمد الدسوقى 
شرح الكود 
 




24-07-2019 11:41 صباحا
مشاهدة مشاركة منفردة [5]
RANDA
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 13-07-2019
رقم العضوية : 13787
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 24-11-1973
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif معادلة عدم التكرار
المشاركة الأصلية كتبت بواسطة: YasserKhalil
السلام عليكم أخي الكريم
يرجى إرفاق ملف لتتضح صورة طلبك للأخوة الأعضاء

المعادلة اريدها تكون فى العمود A , والعمود J ولكم جزيل الشكر وياريت تكون المعادلة ظاهرة وليست مخفية
 
 
  اكسيل ارسي سي يورب 001(تم الاسترداد تلقائياً).xlsx   تحميل xlsx مرات التحميل :(1)
الحجم :(434.977) KB







المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
معادلة لجلب بداية ونهاية الشهر mostah
3 53 mostah
معادلة خصم الأيام من رصيد الأجازات بملف الحضور والغياب للموظفين احمد السويسى
1 130 احمد السويسى
تنفيذ المعادلة من VBA بدلا من الخلية محمد أبو حفصة
18 358 YasserKhalil
مطلوب تصحيح لكود معادلة if صلاح الصغير
12 144 صلاح الصغير
تعديل معادلة لاستخراج حساب (محطة) باستثناء بعض الارقام محمد لؤي
1 121 محمد لؤي

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


 







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

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

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