Note: The other languages of the website are Google-translated. Back to English

كيف تحافظ على تقطيع 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 مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات مربع حوار النافذة.

من الآن فصاعدًا ، سيتم نقل مقسمات العرض المحددة مع الخلية النشطة أثناء التمرير في ورقة العمل. انظر لقطة الشاشة:


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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (10)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
شكرا لك على هذا VBA.

ليس لدي أي فكرة على الإطلاق عن VBA وبالتالي سؤالي.

لقد استخدمت VBA وكان لدي سؤال.
كيف يمكنني تغيير VBA بحيث يعمل فقط لورقة واحدة.

الآن ، لدي 8 أوراق وفي كل مرة أذهب فيها إلى ورقة أخرى ، تفشل وتطلب مني الإنهاء أو التصحيح.
لقد فعلت بالضبط بالطريقة الموضحة أعلاه.


هذا هو VBA الخاص بي هنا ..
Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object ، ByVal Target As Range)
خافت ShF كشكل
خافت SHM كشكل
'تحديد القطاعة
Application.ScreenUpdating = خطأ
تعيين ShF = ActiveSheet.Shapes ("العميل 1")
تعيين ShM = ActiveSheet.Shapes ("التذكير 1")
تغيير موضع آلة التقطيع
مع نظام التشغيل Windows (1) .VisibleRange.Cells (1، 1)
ShF.Top = .Top + 2
ShF. اليسار =. اليسار + 475
ShM.op = أعلى + 180
ShM اليسار =. اليسار + 475
انتهت ب
Application.ScreenUpdating = ترو
نهاية الفرعية


الرجاء المساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
شكرا لك على هذا VBA.

ليس لدي أي فكرة على الإطلاق عن VBA وبالتالي سؤالي.

لقد استخدمت VBA وكان لدي سؤال.
كيف يمكنني تغيير VBA بحيث يعمل فقط لورقة واحدة.

الآن ، لدي 8 أوراق وفي كل مرة أذهب فيها إلى ورقة أخرى ، تفشل وتطلب مني الإنهاء أو التصحيح.
لقد فعلت بالضبط بالطريقة الموضحة أعلاه.


هذا هو VBA الخاص بي هنا ..
Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object ، ByVal Target As Range)
خافت ShF كشكل
خافت SHM كشكل
'تحديد القطاعة
Application.ScreenUpdating = خطأ
تعيين ShF = ActiveSheet.Shapes ("العميل 1")
تعيين ShM = ActiveSheet.Shapes ("التذكير 1")
تغيير موضع آلة التقطيع
مع نظام التشغيل Windows (1) .VisibleRange.Cells (1، 1)
ShF.Top = .Top + 2
ShF. اليسار =. اليسار + 475
ShM.op = أعلى + 180
ShM اليسار =. اليسار + 475
انتهت ب
Application.ScreenUpdating = ترو
نهاية الفرعية


الرجاء المساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي جون،
انقل إلى ورقة العمل التي تريد أن تعمل التعليمات البرمجية لـ VBA معها فقط ، ثم انقر بزر الماوس الأيمن فوق علامة التبويب "الورقة" وحدد "عرض الرمز" من قائمة السياق.
ثم انسخ والصق رمز فبا أدناه في نافذة الكود الافتتاحية. انظر أدناه لقطة الشاشة:

تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
خافت ShF كشكل
خافت SHM كشكل
'تحديد القطاعة
Application.ScreenUpdating = خطأ
تعيين ShF = ActiveSheet.Shapes ("الفاكهة")
تعيين ShM = ActiveSheet.Shapes ("البيع")
تغيير موضع آلة التقطيع
مع نظام التشغيل Windows (1) .VisibleRange.Cells (1، 1)
ShF.Top = .Top
ShF. اليسار =. اليسار + 300
ShM.Top = أعلى
ShM اليسار =. اليسار + 100
انتهت ب
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي كريستال ،

شكرا جزيلا على الرمز لك.
لقد فعلت بالضبط ما قلته وهو يعمل مثل السحر.

نقدر ذلك حقا.
في صحتك :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد قمت بتحديث الرمز الخاص بي كما أشرت. لم يعد يتم تمرير أداة التقطيع مع النافذة ، ولكن إذا قمت بالنقر فوق خلية جديدة ، فسيتم تحريك أداة التقطيع. هل هذا هو السلوك الصحيح؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا يشير الصف الأول وكيف نقوم بتخصيصه ليناسب آلة التقطيع الخاصة بنا؟
أنا في حيرة من أمري بشأن ذلك في الأساس في كل سطر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزتي كاتي
لا أعرف ما إذا كنت أفهم سؤالك تمامًا.
كما ذكرت في الملاحظات أعلاه ، تحتاج إلى استبدال Column1 و Column2 بأسماء تقطيع الشرائح الخاصة بك في الكود من أجل الحفاظ على التمرير الخاص بك باستخدام ورقة العمل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي 4 شرائح تم تجميعها معًا عن طريق تحديد الكل 4 والنقر بزر الماوس الأيمن لاستخدام أمر المجموعة.

هل من الممكن تعيين VBA بواسطة مجموعة؟ كيف تقوم بتسمية المجموعة وتكتب VBA للتعرف عليها كواحدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا مايكل،
آسف لا يمكن أن تساعد في هذا. شكرا على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حسنًا ، لذلك يقول العنوان "كيفية الحفاظ على أداة تقطيع الجدول المحوري تتحرك باستخدام ورقة العمل التمرير في Excel؟ "، ولكن رمز VBA هذا لا يفعل ذلك إلا للخلية المحددة الحالية ، كيف يمكننا القيام بذلك من أجل التمرير من المصنف ، وليس الخلية المحددة فقط؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL