كيف يمكن تعطيل تحديد عناصر متعددة في جدول بيانات محوري؟
عند إنشائك جدولًا محوريًّا وضبطك خيار العناصر المُرشَّحة، قد لا ترغب في أن يستخدم الآخرون ميزة «تحديد عناصر متعددة» في الجدول المحوري، إذ قد يؤدي ذلك إلى تشويش البيانات الأصلية. في هذه المقالة، سأوضح لك كيفية تعطيل هذا الخيار في الجدول المحوري.
تعطيل تحديد عناصر متعددة في جدول بيانات محوري باستخدام كود VBA
تعطيل تحديد عناصر متعددة في جدول بيانات محوري باستخدام كود VBA
لحماية تحديد جدولك المحوري من التغيير، يُمكن للكود التالي من VBA أن يساعدك على تعطيل ميزة «تحديد عناصر متعددة». يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11، وسيُفتح لك ذلك نافذةMicrosoft Visual Basic for Applications.
2. انقرإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي فينافذة الوحدة النمطية.
كود VBA: تعطيل تحديد عناصر متعددة في جدول بيانات محوري
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = False
Next xPF
End Sub
3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وستُزال أزرار سهم التصفية في الجدول المحوري فورًا، كما هو موضح في لقطات الشاشة التالية:
 |  |  |
ملاحظات:
1. إذا أردت إعادة تمكين ميزة «تحديد عناصر متعددة» مرة أخرى، فطبّق الكود التالي:
كود VBA: تمكين تحديد عناصر متعددة في جدول بيانات محوري:
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = True
Next xPF
End Sub
2. يُطبَّق هذا الكود على جدول بيانات محوري واحد فقط في ورقة العمل النشطة.
مقالات ذات صلة:
كيف يمكن إخفاء أزرار التوسيع/الطَي في جدول البيانات المحوري؟
كيف يمكن إخفاء المجاميع الفرعية في جدول محوري؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل