KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف يمكنني النقر أو النقر المزدوج على خلية لفتح نموذج مستخدم معيّن في Excel؟

المؤلفSiluviaتاريخ التعديل

من المفيد أن يفتح نموذج مستخدم معيّن تلقائيًا بمجرد النقر أو النقر المزدوج على خلية في Excel. ولكن كيف يمكنك تحقيق ذلك؟ تقدم هذه المقالة طريقة تساعدك على تنفيذ ذلك بسهولة.

النقر أو النقر المزدوج على خلية لفتح نموذج مستخدم معيّن باستخدام رمز VBA


النقر أو النقر المزدوج على خلية لفتح نموذج مستخدم معيّن باستخدام رمز VBA

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

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

2. انقر بزر الماوس الأيمن على لسان الورقة، ثم اختر من قائمة السياق الخيارعرض الرمز (View Code). راجع لقطة الشاشة:

لقطة شاشة تُظهر خيار عرض الرمز من قائمة سياق لسان التبويب في Excel

3. في نافذةمايكروسوفت Visual Basic for Applicationsالمفتوحة، يُرجى نسخ ولصق رمز VBA التالي في نافذة الرمز.

رمز 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. اضغط على مفاتيحAlt+Q لإغلاق نافذةمايكروسوفت Visual Basic for Applications.

ابتداءً من الآن، سيتم فتح نموذج المستخدم المعيّن فورًا عند النقر أو النقر المزدوج على أي خلية ضمن النطاق المحدد، كما هو موضح في لقطة الشاشة أدناه.

لقطة شاشة تُظهر نموذج مستخدم مفتوحًا في Excel بعد النقر أو النقر المزدوج على خلية


مقالات ذات صلة:

أفضل أدوات الإنتاجية لمكتبتك

🤖KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...


يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

  • تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل