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

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


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



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





تعرف على حدث التغير في ورقة العمل Worksheet Change

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله الكثير منا يحتاج لوضع أكواد في حدث التغير في ورقة العمل عند حدوث ..



08-07-2019 09:44 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20696
الاعجاب : 1430
 offline 

السلام عليكم ورحمة الله وبركاته

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

سنأخذ مثال ونقوم بشرحه لتتضح الصورة

هذا هو الكود الي يمكن وضعه في حدث ورقة العمل ، ويتم ذلك بعمل كليك يمين على اسم ورقة العمل ثم View Code ثم ضع الكود
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    
    Application.EnableEvents = False
        Target.value = UCase(Target.value)
    Application.EnableEvents = True
End Sub


السطر الأول
Private Sub Worksheet_Change(ByVal Target As Range)

لا يتم في الغالب كتابة هذا السطر بشكل يدوي بل تقوم باختيار الخيار Worksheet من القائمة المنسدلة الموجودة في نافذة الأكواد ، ومن القائمة المجاورة تختار الحدث Change
أي أن الكود سيتم تنفيذه بمجرد إحداث أي تغيير في ورقة العمل

بالطبع إذا ترك الكود بدون تحديد خلايا معينة سيكون عبء على الملف لأنه مع أي تغيير سينفذ الكود ، وفي رأيي إذا كان الأمر كذلك أفضل استخدام المعادلات (إذا كانت بديلاً للأكواد)
عموماً سيتم تحجيم النطاق باستخدام السطر التالي
If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub


حيث سيتم الخروج من الإجراء إذا كانت الخلية الهدف لا تقع في النطاق من A1 إلى A10 ، كما سيتم الخروج من النطاق إذا كان عدد الخلايا الهدف أكبر من 1
أي إذا حاولت إحداث تغيير على مجموعة من الخلايا في ورقة واحد لن يتم تنفيذ الكود
فقط سيتم التنفيذ في حالة أن الخلية الهدف (المراد التعديل فيها) تقع ضمن النطاق وتكون خلية واحدة فقط

والدالة Intersect تعني تقاطع (أي تقاطع الخلية الهدف مع النطاق المطلوب التعامل معه)

المطلوب في الكود هو أن يقوم الكود بتحويل حالة الأحرف للكلمات المدخلة في الخلية الهدف لأحرف كبيرة بهذا الشكل
Target.value = UCase(Target.value)


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

لذا ستجد في الكود سطرين أحدهما يوقف هذه المشكلة 
Application.EnableEvents = False

حيث يعني إيقاف تمكين الأحداث إلى حين اكتمال عمل الكود ، لكي لا ينفذ الكود مرة أخرى أثناء عملية التغيير في الخلية الهدف

وبالطبع لابد من إرجاع هذه الخاصية مرة أخرى لأنه لو تم تجاهل الخاصية لن يعمل الكود في حدث التغير إلا بعد إغلاق الملف وفتحه مرة أخرى أو تنفيذ هذا السطر في النافذة الفورية أو أي إجراء عادي
Application.EnableEvents = True


أرجو أن تكون المعلومة مفيدة لكم ، وفقني الله وإياكم لكل خير

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

أخوكم في الله / ياسر خليل أبو البراء

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





02-08-2019 08:16 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif تعرف على حدث التغير في ورقة العمل Worksheet Change
بارك الله فيكم إخواني على عدم التفاعل الذي لا يشجع على تقديم المزيد ...g

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




02-08-2019 04:35 مساء
مشاهدة مشاركة منفردة [2]
عبدالله فتحى
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-07-2018
رقم العضوية : 7066
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 28-11-1982
يتابعهم : 20
يتابعونه : 2
قوة السمعة : 168
الاعجاب : 19
 offline 
look/images/icons/i1.gif تعرف على حدث التغير في ورقة العمل Worksheet Change
جزاك الله خيرا نتعلم منك الكثير وحضرتك لا تبخل علينا بمعلومة اشكرك على مجهودك الرائع 
 

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




02-08-2019 04:52 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif تعرف على حدث التغير في ورقة العمل Worksheet Change
وجزيت خيراً أخي الكريم عبد الله ومشكور على مرورك العطر

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




03-08-2019 12:51 صباحا
مشاهدة مشاركة منفردة [4]
عبدالله فتحى
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-07-2018
رقم العضوية : 7066
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 28-11-1982
يتابعهم : 20
يتابعونه : 2
قوة السمعة : 168
الاعجاب : 19
 offline 
look/images/icons/i1.gif تعرف على حدث التغير في ورقة العمل Worksheet Change
والله الحق يقال 
انت صاحب الفضل علينا 
لا تبخل بعلمك ولا بوقتك 
لك منى كل تقدير واحترام وحب 
جزاك الله خيرا

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




03-08-2019 05:26 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif تعرف على حدث التغير في ورقة العمل Worksheet Change
بارك الله فيك أخي الكريم عبد الله وجزيت خيراً على كلماتك الطيبة وتشجعيك لي

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




03-08-2019 07:16 صباحا
مشاهدة مشاركة منفردة [6]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1711
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 571
قوة السمعة : 17638
الاعجاب : 326
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تعرف على حدث التغير في ورقة العمل Worksheet Change

جزاكم الله خيرا ابوبراء 81



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


توقيع :الصقر

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



03-08-2019 07:46 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif تعرف على حدث التغير في ورقة العمل Worksheet Change
وجزيت خيراً أخي وحبيبي حسام 81

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




04-08-2019 11:28 صباحا
مشاهدة مشاركة منفردة [8]
مالك ماريه
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 550
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 8
قوة السمعة : 865
الاعجاب : 106
 offline 
look/images/icons/i1.gif تعرف على حدث التغير في ورقة العمل Worksheet Change
خيركم من تعلم العلم وعلمه

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




04-08-2019 11:49 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif تعرف على حدث التغير في ورقة العمل Worksheet Change
جزاك الله خيراً أخي العزيز مالك ومشكور على مرورك العطر







الكلمات الدلالية
Change ، Worksheet ، العمل ، ورقة ، التغير ، تعرف ،


 







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



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

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