فتح مستخدم من أي ورقة العمل

Question

لدي المصنف مع التعليمات البرمجية التالية في الورقة1:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
UserForm1.Show
End Sub

عند النقر المزدوج على التوالي, هذا يفتح لي نموذج مستخدم ولكن فقط إذا أنا على الورقة1.

كيف يمكن الحصول على هذا العمل لأي ورقة العمل النشطة دون مضيفا أن كل ورقة ؟

Answer 1

إذا كنت تريد الخاص بك التعليمات البرمجية ليتم تنفيذها على الورقة النشطة في المصنف الخاص بك ثم تحتاج إلى إزالة التعليمات البرمجية لديك ورقة واحدة و القيام بما يلي:

1. فتح محرر VBA و تجد ThisWorkbook كائن ضمن "Microsoft Excel الكائنات".

2. تحرير وإضافة التعليمة البرمجية التالية في داخله:

   Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
     UserForm1.Show
   End Sub
   

وهذا يعني أن انقر نقرا مزدوجا فوق الحدث سيتم الكشف عن كل الأوراق في المصنف.إذا تركت الكود في ورقة ، ورقة الحدث يحصل من أطلقت النار أولا ثم المصنف واحدة.