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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تجزئة الاسماء المركبة وفصلها عن الاسماء العادية اكسيل اسئله واجابات


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



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





مساعدة في شرح كود

السلام عليكم الى خبراء الاكواد اود شرح هذا الكود سطر سطر حتى يتم فهمه مع العلم ان هذا الكود يقوم بمنع اضافة بيانات مك ..



01-07-2019 10:21 صباحا
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 115
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 73
الاعجاب : 15
 offline 

السلام عليكم 
الى خبراء الاكواد اود  شرح هذا الكود سطر سطر حتى يتم فهمه 
مع العلم ان هذا الكود يقوم بمنع اضافة بيانات مكررة بناء على عمود معين 


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim VRS As Variant
If ActiveCell.Column = 4 And ActiveCell.Offset(1, 0).Value = "" Then
a = ActiveCell.Offset(-1, 0).Value
lastrow = Worksheets("ورقة1").Cells(Rows.Count, 4).End(xlUp).Row
For i = 2 To lastrow - 1
If a = Worksheets("ورقة1").Cells(i, 4).Value Then
MsgBox "هذا الصنف موجود مسبقا "
Worksheets("ورقة1").Rows(lastrow).Delete
End If
Next
End If
End Sub






01-07-2019 05:22 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif مساعدة في شرح كود
وعليكم السلام أخي الكريم
يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل صحيح كما يرجى وضع الملف الذي به الكود وإن شاء الله الكود بسيط ولا مشكلة فيه

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




01-07-2019 08:20 مساء
مشاهدة مشاركة منفردة [2]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1411
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 73
قوة السمعة : 8747
الاعجاب : 111
 offline 
look/images/icons/i1.gif مساعدة في شرح كود
تم تعديل الموضوع لوضغ الكود فى مربع حوار خاص به
والشرح زى ما قال استاذ ياسر





01-07-2019 09:30 مساء
مشاهدة مشاركة منفردة [3]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 115
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 73
الاعجاب : 15
 offline 
look/images/icons/i1.gif مساعدة في شرح كود
هذا هو الملف 
 
 
  عدم ادراج صنف مكرر وحدفه مع ظهور رسالة‫‬.xls   تحميل xls مرات التحميل :(4)
الحجم :(38.912) KB






01-07-2019 11:14 مساء
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 362
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 15
قوة السمعة : 3052
الاعجاب : 140
 offline 
look/images/icons/i1.gif مساعدة في شرح كود
جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 And Target.Row > 1 Then
verify_data
End If
Application.EnableEvents = True
End Sub

Sub verify_data()
Dim my_row%, x%
 my_row = Cells(Rows.Count, "D").End(3).Row

If Range("d" & my_row) = vbNullString Then Exit Sub
 x = Application.CountIf(Range("d2:d" & my_row), Range("d" & my_row))
 If x > 1 Then
    MsgBox "There Are duplicate in columns D" & Chr(10) & _
    "This Recorde Will Be Deleted ....OK?!"
    Range("A" & my_row).Resize(, 4).ClearContents
  End If
End Sub

 

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




01-07-2019 11:16 مساء
مشاهدة مشاركة منفردة [5]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 115
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 73
الاعجاب : 15
 offline 
look/images/icons/i1.gif مساعدة في شرح كود
اخي سالم شكرا لك ولكن لا اريد اكواد ما اريده هو شرح الكود في الاعلى او الملف الذي ارفقته  بحيث يتم  توضيح كل سطر 





02-07-2019 06:55 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif مساعدة في شرح كود
تفضل أخي الكريم عله يفي بالغرض
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'إعلان عن متغير
    Dim VRS As Variant

    'يتم تنفيذ الكود التالي بشروط الشرط الأول أن يكون عمود الخلية النشطة هو العمود الرابع
    'الشرط الثاني أن تكون الخلية التالية للخلية النشطة تساوي فراغ
    If ActiveCell.Column = 4 And ActiveCell.Offset(1, 0).Value = "" Then

        'تخزين قيمة الخلية السابقة للخلية النشطة في متغير
        a = ActiveCell.Offset(-1, 0).Value

        'حساب رقم آخر صف به بيانات في العمود الرابع
        lastrow = Worksheets("ورقة1").Cells(Rows.Count, 4).End(xlUp).Row

        'عمل حلقة تكرارية من الصف الثاني إلى آخر صف - 1
        For i = 2 To lastrow - 1

            'إذا كانت قيمة الخلية السابقة للخلية النشطة تساوي قيمة الخلية في الصف المحدد في العمود الرابع
            If a = Worksheets("ورقة1").Cells(i, 4).Value Then

                'يتم إظهار رسالة للسمتخدم
                MsgBox "هذا الصنف موجود مسبقا "

                'يتم حذف الصف الأخير
                Worksheets("ورقة1").Rows(lastrow).Delete

                'نهاية جملة الشرط الداخلية
            End If

            'الانتقال للصف التالي
        Next

        'نهاية جملة الشرط الخارجية
    End If
End Sub

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




02-07-2019 07:52 مساء
مشاهدة مشاركة منفردة [7]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 115
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 73
الاعجاب : 15
 offline 
look/images/icons/i1.gif مساعدة في شرح كود
شكرا اخي ياسر على هذا الشرح 

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




03-07-2019 04:14 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif مساعدة في شرح كود
بارك الله فيك أخي الكريم والحمد لله الذي بنعمته تتم الصالحات

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مساعدة في بناء كود داخل ملف الاكسل MrSeen
0 15 MrSeen
مساعدة في كود تكرار امر معين e97h
7 42 YasserKhalil
المساعدة عمل بحث فى شيت يحتوى على اكثر من ورقة اكسل moh_gdvet
3 181 أحمد يوسف
طلب مساعدة في عمل برنامج في الاكسس bader004
0 129 bader004
طلب المساعدة في ادراج كود لترحيل واستدعاء البيانات foular
2 221 YasserKhalil

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


 







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



الساعة الآن 10:47 مساء

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