كيف تحافظ على تقطيع Pivot Table متحركًا مع تمرير ورقة العمل في Excel؟
أثناء العمل مع Pivot Table ، يمكنك إدراج مقسمات لتصفية البيانات بصريًا من الجدول. تتحدث هذه المقالة عن إبقاء أداة تقطيع Pivot Table مرئية دائمًا أثناء التمرير في ورقة العمل.
استمر في تحريك أداة تقطيع Pivot Table مع تمرير ورقة العمل باستخدام كود VBA
استمر في تحريك أداة تقطيع Pivot Table مع تمرير ورقة العمل باستخدام كود VBA
يمكن أن يساعدك البرنامج النصي VBA التالي في الحفاظ على أداة تقطيع Pivot Table تتحرك مع ورقة العمل. الرجاء القيام بما يلي.
1. اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين ThisWorkbook في الجزء الأيسر من المشروع ، ثم انسخ والصق رمز VBA أدناه في ملف ThisWorkbook (كود) نافذة او شباك. انظر لقطة الشاشة:
رمز VBA: حافظ على تحريك أداة تقطيع Pivot Table مع تمرير ورقة العمل
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ShF As Shape
Dim ShM As Shape
'specify a slicer
Application.ScreenUpdating = False
Set ShF = ActiveSheet.Shapes("Column1")
Set ShM = ActiveSheet.Shapes("Column2")
'change position of the slicer
With Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top
ShF.Left = .Left + 300
ShM.Top = .Top
ShM.Left = .Left + 100
End With
Application.ScreenUpdating = True
End Sub
ملاحظة:
1). في الكود ، Column1 و Column2 هما أسماء تقطيع الشرائح.
2). يمكنك تحديد موضع القواطع أثناء التمرير في ورقة العمل في الكود.
3). ويمكنك إضافة المزيد من تقطيع الشرائح إلى الكود أو إزالة أدوات التقطيع منه حسب حاجتك.
3. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات مربع حوار النافذة.
من الآن فصاعدًا ، سيتم نقل مقسمات العرض المحددة مع الخلية النشطة أثناء التمرير في ورقة العمل. انظر لقطة الشاشة:
مقالات ذات صلة:
- كيف تحافظ على الجدول قابل للتوسيع عن طريق إدراج صف الجدول في ورقة عمل محمية في إكسيل؟
- كيفية الجمع بين الخلايا والحفاظ على تنسيق الخلية في إكسيل؟
- كيفية إزالة التكرارات مع الاحتفاظ بالمثيل الأول في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!