تكرار استخدام كود استدعاء الفورم لعدد من الاعمدة

[جلال الجمال_ابو أدهم]

تحياتى 

مرفق كود خاص باستدعاء الفورم عن طريق دبل كليك فى النطاق من _A2 : A20000

و المطلوب تكرار استخدام نفس الفورم فى نطاق اعمده اخرى و لتكن_F2:F20000

و J2:J20000

و الكود المستخدم هو
 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2 : A20000")) Is Nothing Then
Cancel = True
KH_T_SEARSH.Show
End If
End Sub

و شكرا

[أبو حنــــين]

الكود يصبح بهذا الشكل

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("A2:A20000"), Range("F2:F20000"))) Is Nothing Then
Cancel = True
KH_T_SEARSH.Show
End If
End Sub

 

27 دقائق مضت, جلال الجمال_ابو أدهم said:

تحياتى 

مرفق كود خاص باستدعاء الفورم عن طريق دبل كليك فى النطاق من _A2 : A20000

و المطلوب تكرار استخدام نفس الفورم فى نطاق اعمده اخرى و لتكن_F2:F20000

و J2:J20000

و الكود المستخدم هو
 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2 : A20000")) Is Nothing Then
Cancel = True
KH_T_SEARSH.Show
End If
End Sub

و شكرا

 

هناك جزئية ناقصة و هذا التصحيح

If Not Intersect(Target, Union(Range("A2:A20000"), Range("F2:F20000"), Range("J2:J20000"))) Is Nothing Then

 

[ليلى الهلالي]

السلام عليكم.

لكم جزيل الشكر على هذا الكود حاولت تطبيقه ولكن يبدوا أني لم أطبقه جيداً.

أضفت فورم في ورقة العمل. هل أضع الكود في حدث الشيت أم في كود الفورم نفسها أم باستخدام زر؟

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

مع جزيل الشكر مرة أخرى.

[جلال الجمال_ابو أدهم]

أبو حنــــين

اخى الفاضل جزاك الله خيرا
ما شاء الله عليك و تم التنفيذ
و تم زيادة العمود J

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("A2:A20000"), Range("F2:F20000", Range("J2:J20000")))) Is Nothing Then
Cancel = True
KH_T_SEARSH.Show
End If
End Sub

و شكرا

morestudy

تحياتى 
ضعه فى حدث ورقة العمل و مرفق مثال من هنا
كود مميز جاهز_كود دبل كليك لاستدعاء اى فورم ...الخ

تحياتى

تم تعديل نوفمبر 10, 2016 بواسطه جلال الجمال_ابو أدهم

[أبو حنــــين]

5 دقائق مضت, morestudy said:

السلام عليكم.

لكم جزيل الشكر على هذا الكود حاولت تطبيقه ولكن يبدوا أني لم أطبقه جيداً.

أضفت فورم في ورقة العمل. هل أضع الكود في حدث الشيت أم في كود الفورم نفسها أم باستخدام زر؟

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

مع جزيل الشكر مرة أخرى.

و عليكم السلام

أخي انسخ الكود كما هو و ألصقه في ورقة العمل و لا تنسي ان تغير إسم الفورم    KH_T_SEARSH   حسب الفورم التي أنشأتها

[ليلى الهلالي]

أشكركم  أستاتذتي 

جلال الجمال_ابو أدهم

أبو حنــــين

  تم التطبيق ومعرفة أين الخطأ.

لكم جزيل الشكر وبارك الله فيكم جميعاً.

تم تعديل نوفمبر 10, 2016 بواسطه morestudy