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

تفعيل والغاء تفعيل كود


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

اخواني الاعزاء تحية طيبه الحاجة ماسه لكود او كودين لتفعيل والغاء تفعيل الكود ادناه مع الشكر والامتنان

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Not Intersect(Target, Range("ad2:ae2,aj5:an50")) Is Nothing Then Cells(Target.Row, 30).Select

If Not Intersect(Target, Range("r4:x4,c2:x2")) Is Nothing Then Cells(Target.Row, 1).Select

End Sub

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

ممكن ان تضع شرط الكود بقيمة خلية فاذا كانت 1 يعمل الكود واذا كانت غير ذلك ليكن 5 يتوقف

انا افترضت الخلية AA2


Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If [AA2] = 1 Then

GoTo 1

Else: Exit Sub

End If

1:

If Not Intersect(Target, Range("ad2:ae2,aj5:an50")) Is Nothing Then Cells(Target.Row, 30).Select

If Not Intersect(Target, Range("r4:x4,c2:x2")) Is Nothing Then Cells(Target.Row, 1).Select

End Sub

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

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

أستاذي وسيدي الفاضل أبا أحمد حفظكم الله

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

أسمح لي أصيغ سؤالي هنا وهو ما أحتاج إليه بعض الأحيان وربما قد يتوافق مع سؤال السائل الفاضل.

هل بالأمكان يكون هنالك كودين (يتم وضعهما في كود ثالث) الأول يكون في بداية الكود يقوم بتعطيل الكود الذي في حدث الصفحة ثم تنفيذ الكود الأساسي ثم في آخر الكود يتم أعادة تفعيل كود حدث الصفحة.

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

تقبل خالص الشكر والتقدير.

أبو أنس

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

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

أستاذي وسيدي الفاضل أبا أحمد حفظكم الله

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

أسمح لي أصيغ سؤالي هنا وهو ما أحتاج إليه بعض الأحيان وربما قد يتوافق مع سؤال السائل الفاضل.

هل بالأمكان يكون هنالك كودين (يتم وضعهما في كود ثالث) الأول يكون في بداية الكود يقوم بتعطيل الكود الذي في حدث الصفحة ثم تنفيذ الكود الأساسي ثم في آخر الكود يتم أعادة تفعيل كود حدث الصفحة.

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

تقبل خالص الشكر والتقدير.

أبو أنس

تجد ما تريد (حسب فهمي) في الكود MySub فهو يلغي حدث الصفحة ثم يفعله

استاذنا القدير مع شكري وتقديري هل بالامكان عمل زرين للتفعيل والغاؤه

تم عمل الزرين

الرجاء التجربة

إيقاف.rar

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

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

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

ما شاء الله عليك

(حسب فهمي)
فهمك عالي الجودة والكفاءة.

تقبل كل الشكر والأحترام لشخصكم النبيل.

بارك الله بك وفيك وفي ذريتك من بعدك (بعد عمر طويل إن شاء الله حتى ينتفع بعلمك زادك الله علماً على علم ووسع أبواب رزقك).

أبو أنس ناصر حاجب

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

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

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



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

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

Important Information