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

كيف يتم عرض الرسم البياني دائمًا عند التمرير في Excel؟

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

doc احتفظ بالرسم البياني في العرض 1
السهم لأسفل
doc احتفظ بالرسم البياني في العرض 2

احتفظ دائمًا بالرسم البياني في العرض


السهم الأزرق الحق فقاعة احتفظ دائمًا بالرسم البياني في العرض

للاحتفاظ بمخطط في العرض أثناء التمرير على الورقة ، يمكنك تطبيق رمز VBA أدناه لحلها.

1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريدها لإبقاء المخطط مرئيًا ، ثم انقر فوق عرض الرمز شكل قائمة السياق. انظر لقطة الشاشة:
doc احتفظ بالرسم البياني في العرض 3

2. في ظهرت ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الصق الكود أدناه في البرنامج النصي الفارغ.

فبا: احتفظ بالرسم البياني دائمًا في العرض

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
    Dim CPos As Double
    Application.ScreenUpdating = False
    CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveSheet.Shapes("Chart 2").Top = CPos
    ActiveWindow.Visible = False
    Application.ScreenUpdating = True
End Sub

doc احتفظ بالرسم البياني في العرض 5

3. احفظ وأغلق مربع الحوار ، ثم سيتم نقل المخطط لأسفل أو لأعلى أثناء النقر فوق أي خلية.
doc احتفظ بالرسم البياني في العرض 6

الملاحظات:

(1) في رمز VBA ، الرسم البياني 2 هو اسم المخطط الذي تريد الاحتفاظ به في العرض ، ويمكنك تغييره حسب حاجتك.

(2) لا يمكن لـ VBA هذا دائمًا عرض مجموعة من المخططات.


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (15)
تقييم شنومك من شنومكس · تصنيفات 2
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كان هذا جيدًا ، لكنني أتمنى أن تكون هناك طريقة يتحرك بها فقط مع عجلة التمرير ، مثل خطوط العنوان. أيضًا إذا كنت أرغب في تحديد خلية ، فستحتاج إلى نقرتين. تقوم النقرة الأولى بتحريك المخطط ولكن أيضًا تحدد المخطط ، لذا يجب أن أقوم بالنقر مرة أخرى لتحديد الخلية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد أضفت "activecell.select" في السطر الأخير من هذا الرمز وتم إصلاح مشكلة النقر المزدوج. سيحدد تلقائيًا آخر خلية نشطة ، والتي ستكون الخلية التي نقرت عليها لتحريك الرسم البياني. أتمنى أن يساعدك هذا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا ما أحتاجه! ذهبي!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الماكرو فعل بالضبط ما أردت. ومع ذلك ، فقد خلقت مشكلة أخرى تساءلت عما إذا كان لديك حل لها.

أثناء نشاط هذا الماكرو ، لا يمكنني تحديد الخلايا لأغراض أخرى مثل التنسيق أو دمجها. انقر واسحب أو انقل أو استخدم مفتاح التحكم لتحديد مجموعة من الخلايا. يمكنني فقط تحديد خلية واحدة قمت بالنقر فوقها. كثيرًا ما أرغب في تغيير التنسيق (الخلفية ، وملء الصيغة ، وما إلى ذلك) الطريقة الوحيدة التي تمكنت من القيام بذلك هي حذف الماكرو ، والحفظ ، وإجراء تغييرات التنسيق الخاصة بي ، ولصق الماكرو مرة أخرى وحفظه.

هل هناك طريقة أبسط للقيام بذلك؟ ربما:

1. (مفضل) ضغطة مفتاح بسيطة من شأنها تعطيل الماكرو مؤقتًا ثم إعادة تمكينه.

2. تمت إضافة بعض التعليمات البرمجية إلى الماكرو للسماح بتحديد مجموعة من الخلايا.

دينيس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك صيغة مماثلة يمكن إنشاؤها لجداول بيانات Google؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة للحد من الارتفاع في الورقة التي سينتقل إليها الرسم البياني؟ لا أريده أن يثبت فوق الصف 8
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hola muchas gracias por el código، utilizando este código Hay alguna manera de limitar qué tan alto en la hoja se reubicará el gráfico؟ por ejemplo، no quiero que se coloque encima de la fila 9. Ayuda por favour.
تقييم شنومك من شنومكس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنني استخدام Kutools لاستخدام VBA تلقائيًا لمخططاتي؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عذرًا ، Wangnuli ، Kutools لم تدعم هذا حتى الآن.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكن لأي شخص أن يساعد. عندما أتبع هذه الخطوات


تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
'تحديث بواسطةExtendoffice20161111
خافت CPos As Double
Application.ScreenUpdating = خطأ
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects ("المخطط 2"). التفعيل
ActiveSheet.Shapes ("الرسم البياني 2"). الجزء العلوي = CPos
ActiveWindow.Visible = خطأ
Application.ScreenUpdating = ترو
نهاية الفرعية


حصلت على يخطئ التالية

خطأ وقت التشغيل '-2147024809 (80070057)':
لم يتم العثور على العنصر الذي يحمل الاسم المحدد

عندما أقوم بالتصحيح
ActiveSheet.ChartObjects ("المخطط 2"). التفعيل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كريستو ، أنت بحاجة إلى تغيير اسم المخطط "المخطط 2" إلى اسم المخطط الخاص بك بالفعل في البرنامج النصي. يمكنك النقر فوق الرسم البياني ورؤية اسمه في مربع الاسم. انظر لقطة الشاشة:
https://www.extendoffice.com/images/stories/comments/sun-comment/do_chart_name.png
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم شكرا. بعد إجراء السؤال ، أدركت أن اسم المخطط الخاص بي كان خاطئًا
شكر

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


ورقة عمل فرعية خاصة التحديد (ByVal target As Range)
مخطط خافت على أنه مزدوج

الرسم البياني = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.Shapes ("الرسم البياني 2"). الجزء العلوي = موضع المخطط

ActiveSheet.ChartObjects ("المخطط 3"). الجزء العلوي = موضع الرسم البياني + 250

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
A mí me pasa que la siguiente vez que abro el archivo، el script ya no funciona. Tengo que copiarlo، borrarlo، cerrar el archivo tras guardarlo، volver a abrir el archivo y volver a pegar el script en VBA. ¿Solución الألغونا؟
تقييم شنومك من شنومكس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، احفظ المصنف كمصنف تمكين ماكرو excel ، سيعمل vba عند الفتح في المرة القادمة.https://cdn.extendoffice.com/images/stories/comments/sun-comment/doc-macro-enable.png
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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