كيفية النقر أو النقر المزدوج فوق الخلية لفتح نموذج مستخدم محدد في Excel؟
من الملائم فتح نموذج مستخدم محدد بمجرد النقر أو النقر المزدوج فوق خلية في Excel. لكن كيف تحقق ذلك؟ طريقة في هذه المقالة يمكن أن تساعدك.
انقر أو انقر نقرًا مزدوجًا فوق خلية لفتح نموذج مستخدم محدد برمز VBA
انقر أو انقر نقرًا مزدوجًا فوق خلية لفتح نموذج مستخدم محدد برمز VBA
يرجى القيام بما يلي للنقر أو النقر المزدوج فوق خلية لفتح نموذج مستخدم محدد في Excel.
1. افتح ورقة العمل بالخلايا التي تريد النقر فوقها أو انقر نقرًا مزدوجًا لفتح نموذج مستخدم.
2. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ثم انقر فوق عرض الرمز من قائمة السياق. انظر لقطة الشاشة:
3. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز فبا التالي في نافذة التعليمات البرمجية.
رمز VBA: انقر فوق خلية لفتح نموذج مستخدم محدد في Excel:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby20171226
If Not Application.Intersect(Target, Range("A1:B9")) Is Nothing Then
UserForm1.Show
End If
End Sub
رمز VBA: انقر نقرًا مزدوجًا فوق خلية لفتح نموذج مستخدم محدد في Excel:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
If Not Application.Intersect(Target, Range("A1:B9")) Is Nothing Then
Cancel = True
UserForm1.Show
End If
End Sub
ملاحظات: في الكود، A1:B9 هو نطاق الخلايا الذي ستفتح نموذج المستخدم بناءً عليه. وUserForm1 هو اسم نموذج المستخدم الذي ستفتحه بالنقر فوق الخلايا أو النقر عليها نقرًا مزدوجًا. يرجى تغييره بناء على حاجتك.
4. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا، عند النقر أو النقر المزدوج على أي خلية في نطاق معين، سيتم فتح نموذج المستخدم المحدد على الفور كما هو موضح في لقطة الشاشة أدناه.
مقالات ذات صلة:
- كيفية النقر المزدوج فوق خلية لفتح ورقة عمل محددة في إكسيل؟
- كيفية إضافة علامة اختيار في خلية بالنقر المزدوج في إكسيل؟
- كيفية إضافة / إدخال التاريخ / الوقت الحالي تلقائيًا في خلية بالنقر المزدوج في Excel؟
- كيفية النقر نقرًا مزدوجًا فوق خلية وإضافة 1 إلى قيمة تلك الخلية في Excel؟
- كيف تنبثق تقويم عند النقر فوق خلية معينة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!