كيفية النقر المزدوج فوق خلية لفتح ورقة عمل محددة في إكسيل؟
هل تريد التنقل بسرعة إلى ورقة عمل محددة في مصنف Excel؟ ستوفر هذه المقالة طريقة VBA لفتح ورقة عمل محددة عن طريق النقر المزدوج فوق خلية معينة في Excel.
انقر نقرًا مزدوجًا فوق خلية لفتح ورقة عمل محددة برمز VBA
انقر نقرًا مزدوجًا فوق خلية لفتح ورقة عمل محددة برمز VBA
يرجى القيام بما يلي لفتح ورقة عمل محددة بالنقر المزدوج فوق خلية في Excel.
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تحتوي على الخلية التي تريد فتح ورقة العمل عليها بالنقر فوقها. ثم انقر فوق عرض الرمز من قائمة السياق. انظر لقطة الشاشة:
2. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ رمز فبا التالي في نافذة التعليمات البرمجية.
رمز فبا: انقر نقرًا مزدوجًا فوق الخلية لفتح ورقة عمل محددة في إكسيل
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20180822
Dim xArray, xAValue As Variant
Dim xFNum As Long
Dim xStr, xStrRg, xStrSheetName As String
xRgArray = Array("A1;Sheet2", "A12;Sheet3", "A4;Sheet4", "A100;Sheet5")
On Error Resume Next
For xFNum = LBound(xRgArray) To UBound(xRgArray)
xStr = ""
xStr = xRgArray(xFNum)
xAValue = ""
xAValue = Split(xStr, ";")
xStrRg = ""
xStrRg = xAValue(0)
xStrSheetName = ""
xStrSheetName = xAValue(1)
If Not Intersect(Target, Range(xStrRg)) Is Nothing Then
Sheets(xStrSheetName).Activate
End If
Next
End Sub
ملاحظات: في كود VBA، "أ1؛ الورقة2""أ12؛ الورقة3""أ4؛ الورقة4""أ100؛ الورقة5"يعني أن النقر المزدوج على الخلية A1 سيفتح الورقة 2، والنقر المزدوج على A2 سيفتح الورقة 3...، يرجى تغييرها بناءً على احتياجاتك.
3. اضغط على قديم + Q مفاتيح معًا لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا، عند النقر المزدوج فوق الخلية A1 في ورقة العمل الحالية، سيتم تنشيط ورقة العمل المحددة على الفور.
مقالات ذات صلة:
- كيفية النقر أو النقر المزدوج فوق الخلية لفتح نموذج مستخدم محدد في Excel؟
- كيفية إضافة علامة اختيار في خلية بالنقر المزدوج في إكسيل؟
- كيفية إضافة / إدخال التاريخ / الوقت الحالي تلقائيًا في خلية بالنقر المزدوج في Excel؟
- كيفية النقر نقرًا مزدوجًا فوق خلية وإضافة 1 إلى قيمة تلك الخلية في Excel؟
- كيف تنبثق تقويم عند النقر فوق خلية معينة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!