اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب تعطيل عمل كوود اثناء عمل كوود آخر


الردود الموصى بها

‏الخميس‏، 27‏/7‏/1431هـ الموافق ‏8‏/7‏/2010م

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

في المرفق ملف به 2 كود

كود يعمل تلقائيا مع صفحة اكسل -

Private Sub Worksheet_Change(ByVal Target As Range)

و كود آخر يعمل بواسطة زر للترحيل

المطلوب

اثناء عملية الترحيل و المسح ان يتم تعطيل عمل الكود الخاص بـ Worksheet_Change

آمل التكرم بالإفادة عن الطريقة

ودمتم بخير دائما

طلب_تعطيل_كود_اثناءعمل_كودآخر.rar

رابط هذا التعليق
شارك

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

اشكرك كل الشكر و التقدير استاذنا و مشرفنا الفاضل/ عادل حنفي

وجعل الله اعمالك العظيمة التي تقوم بها فيميزان حسناتك

جزاك الله كل خير

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

رابط هذا التعليق
شارك

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

بعد إذن أخي عادل .....

اخي العزيز الكود الذي يعمل تلقائيا يسمى بالحدث "Event"

وفي برنامجك يسمى "Worksheet_Change Event" وبالتالي فأنت تحتاج الى

كود لتعطيل هذا الحدث عند تنشيط الكود المسجل " كبسة الترحيل "

لذا في كود زر الترحيل ضع هذا الكود في بداية الكود المسجل

وهو كود تعطيل الاحداث

Application.EnableEvents = False
وفي نهاية الكود ضع كود تنشيط الاحداث في نهاية البرنامج
Application.EnableEvents = True

رابط هذا التعليق
شارك

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

ياسلام ياسلام

الف الف مليون شكر و تقدير لك اخي عماد

و الشكر موصول الى اخي عادل

جزاكم الله كل خير

الله لا يحرمنا من ابداعاتكم الدائمة

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information