كيفية التحقق مما إذا كان جدول محوري موجودًا في مصنف؟
إذا كان لديك العديد من الجداول المحورية في مصنفك، وترغب الآن في معرفة ما إذا كان جدول محوري معين موجودًا في هذا المصنف. عادةً، قد تذهب إلى مربع الحوار خيارات الجدول المحوري للتحقق من أسماء الجداول المحورية واحدًا تلو الآخر، لكن هذا يستغرق وقتًا طويلاً ومملًا عندما يكون لديك العشرات أو المئات من الجداول المحورية. هنا، يمكنني أن أقدم لك حيلة لحل هذه المهمة.
التحقق مما إذا كان جدول محوري موجودًا في مصنف باستخدام دالة معرفة من قبل المستخدم
التحقق مما إذا كان جدول محوري موجودًا في مصنف باستخدام دالة معرفة من قبل المستخدم
لمعرفة بسرعة ما إذا كان جدول محوري موجودًا في المصنف الحالي، يمكنك إنشاء دالة معرفة من قبل المستخدم لحل المشكلة.
1. افتح المصنف الذي تريد التحقق فيه مما إذا كان الجدول المحوري موجودًا.
2. اضغط باستمرار على مفتاحي ALT + F11، وسيتم فتح نافذة Microsoft Visual Basic for Applications.
3. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.
كود VBA: التحقق مما إذا كان جدول محوري موجودًا في مصنف
Function PivotExist(Name As String) As Boolean
'Update 20141112
Dim sh As Worksheet
Dim pt As PivotTable
PivotExist = False
For Each sh In ActiveWorkbook.Worksheets
For Each pt In sh.PivotTables
If pt.Name = Name Then
PivotExist = True
Exit For
End If
Next
Next
End Function
4. ثم احفظ وأغلق هذا الكود، عد إلى ورقة العمل الخاصة بك، وأدخل هذه الصيغة =pivotexist("salereport") في خلية فارغة، انظر إلى لقطة الشاشة:
ملاحظات: (1.) في الصيغة أعلاه، "salereport" هو اسم الجدول المحوري الذي تريد التحقق منه.
(2.) يجب إدخال اسم الجدول المحوري ضمن علامتي اقتباس مزدوجتين، ويجب أن يكون الاسم حساسًا لحالة الأحرف.
5. بعد إدخال الصيغة، اضغط على مفتاح Enter، إذا حصلت على نعم في الخلية، فإن الجدول المحوري موجود، وإذا حصلت على لا، فإن الجدول المحوري غير موجود.
مقالات ذات صلة:
كيفية سرد جميع الجداول المحورية من مصنف؟
كيفية إضافة حقول متعددة إلى الجدول المحوري؟
أفضل أدوات زيادة الإنتاجية لمجموعة Office
عزز مهاراتك في Excel مع Kutools لـ Excel، وتمتع بكفاءة غير مسبوقة. يقدم Kutools لـ Excel أكثر من300 ميزة متقدمة لتعزيز الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب تجربة التبويبات إلى Office، ويجعل عملك أسهل بكثير
- فعّل تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint
- افتح وأنشئ مستندات متعددة في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ جديدة.
- يمنحك زيادة إنتاجية تصل إلى50% ويوفر عليك مئات النقرات يومياً!