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

كيفية إدراج فواصل الصفحات عندما تتغير القيمة في إكسيل؟

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

أدخل فواصل الصفحات عندما تتغير القيمة باستخدام التعليمات البرمجية لـ VBA

أدخل فواصل الصفحات عندما تتغير القيمة بميزة قوية


أدخل فواصل الصفحات عندما تتغير القيمة باستخدام التعليمات البرمجية لـ VBA

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية على إدراج فواصل الصفحات أدناه بناءً على تغيير بيانات العمود مرة واحدة ، يرجى القيام بما يلي:

1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود فبا: أدخل فواصل الصفحات عندما تتغير القيمة:

Sub insertpagebreaks()
'updateby Extendoffice
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، تم إدراج جميع فواصل الصفحات في الورقة عندما تتغير البيانات في العمود أ. انظر لقطة الشاشة:

ملاحظة:في التعليمات البرمجية أعلاه، A هو رأس العمود الذي تريد إدراج فاصل الصفحة بناءً عليه ، يمكنك تغييره حسب حاجتك.

أدخل فواصل الصفحات عندما تتغير القيمة بميزة قوية

إذا كان لديك كوتولس ل إكسيل، بما لديها ميّز الاختلافات الميزة ، يمكنك إدراج فواصل الصفحات أو الصفوف الفارغة أو خطوط الحدود السفلية أو لون الخلفية بسرعة بناءً على تغييرات القيمة. انقر لتنزيل Kutools for Excel!

نصيحة:لتطبيق هذا ميّز الاختلافات الميزة ، أولاً ، يجب عليك تنزيل ملف كوتولس ل إكسيل، ثم قم بتطبيق الميزة بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. انقر كوتولس > شكل > ميّز الاختلافات، انظر لقطة الشاشة:

2. في خرجت التمييز بين الاختلافات حسب العمود الرئيسي في مربع الحوار ، قم بالعمليات التالية:

  • حدد نطاق البيانات وعمود المفتاح الذي تريد استخدامه ؛
  • اختار الصفحة استراحة من العلاج مربع.

3. ثم اضغط Ok زر ، تم إدراج فواصل الصفحات في النطاق بناءً على تغييرات القيمة ، انظر الصورة:

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


المزيد من المقالات ذات الصلة:

  • قم بتمييز الصفوف عندما تتغير قيمة الخلية في Excel
  • إذا كانت هناك قائمة بالقيم المكررة في ورقة العمل الخاصة بك ، وتحتاج إلى تمييز الصفوف بناءً على العمود A الذي تتغير قيمة الخلية كما هو موضح في لقطة الشاشة التالية. في الواقع ، يمكنك إنهاء هذه المهمة بسرعة وسهولة باستخدام ميزة التنسيق الشرطي.
  • زيادة الأرقام عندما تتغير القيمة في عمود آخر
  • لنفترض أن لديك قائمة بالقيم في العمود A ، وتريد الآن زيادة الرقم بمقدار 1 في العمود B عندما تتغير القيمة الموجودة في العمود A ، مما يعني زيادة الأرقام في العمود B حتى تتغير القيمة في العمود A ، ثم تبدأ الزيادة في الرقم من 1 مرة أخرى كما هو موضح في لقطة الشاشة اليسرى. في Excel ، يمكنك حل هذه المهمة بالطريقة التالية.
  • مجموع الخلايا عندما تتغير القيمة في عمود آخر
  • عندما تعمل على ورقة عمل Excel ، في وقت ما ، قد تحتاج إلى جمع الخلايا بناءً على مجموعة من البيانات في عمود آخر. على سبيل المثال ، هنا ، أريد جمع الطلبات في العمود B عندما تتغير البيانات في العمود A للحصول على النتيجة التالية. كيف يمكنك حل هذه المشكلة في Excel؟
  • أدخل صفوفًا فارغة عند تغيير القيمة في Excel
  • لنفترض أن لديك نطاقًا من البيانات ، وتريد الآن إدراج صفوف فارغة بين البيانات عندما تتغير القيمة ، بحيث يمكنك فصل القيم المتسلسلة نفسها في عمود واحد كما هو موضح في لقطات الشاشة التالية. في هذا المقال سوف أتحدث عن بعض الحيل لك لحل هذه المشكلة.
  • قم بتشغيل الماكرو عند تغيير قيمة الخلية في Excel
  • عادةً ، في Excel ، يمكننا الضغط على مفتاح F5 أو زر تشغيل لتنفيذ كود فبا. ولكن ، هل حاولت تشغيل رمز الماكرو المحدد عندما تتغير قيمة الخلية؟ في هذه المقالة ، سأقدم بعض الحيل السريعة للتعامل مع هذه الوظيفة في Excel.

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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (8)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا وشكرا لكم! التفكير في VBA يجعلني أتعرق. لدي مشكلة واحدة مع نتائج هذا الرمز بالرغم من ذلك. العمود الأول هو رأس العمود. يتعامل الرمز مع هذا على أنه تغيير. تعرض صفحتي الأولى رأس العمود فقط ، لكن الصفحات التالية جيدة. لمعلوماتك: هذا لتقرير شهري ويتغير عدد الصفوف لكل معيار شهريًا. أيه أفكار؟ شكرا لكم مقدما.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف. تحرير: الصف الأول هو رأس العمود.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع حقا! لقد تابعت مثال VB الخاص بك وقد نجح! أنا أيضًا مالك KUTools لذا سألعب بهذا أيضًا.

معجب جدا وشكرا!

ميكروفون
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن تخطي أول 20 صفًا من الورقة؟ إذا كنت أحاول جميع أنواع الأشياء ولكن معرفتي بـ VBA تقتصر على adjuist الكود بنفسي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ويلكو ،
لإدراج فاصل الصفحة مع تخطي أول 20 صفًا ، تحتاج فقط إلى تغيير معلمة واحدة كما هو موضح أدناه:

فواصل الصفحات الفرعية ()

'تحديث بواسطة Extendoffice

خافت أنا وطول ، J طالما

J = ActiveSheet.Cells (Rows.Count، "A"). End (xlUp) .Row

بالنسبة إلى I = J إلى 21 خطوة -1

إذا كان النطاق ("A" & I) .Value <> Range ("A" & I - 1) .Value ثم

ActiveSheet.HPageBreaks.Add Before: = النطاق ("A" & I)

إنهاء حالة

التالي أنا

نهاية الفرعية

من فضلك حاول ، شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Tôi không muốn ngắt trang tại những hàng bị n. Thì phải làm sao؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Lê Tuấn
لحل مشكلتك ، يرجى تطبيق كود فبا أدناه:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
End Sub


من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

Merci pour le code qui fonctionne très bien، seulement je souhaite ajouter un saut de page après et non avant chaque change de valeur ... que faut-il changer dans le code؟

شكرا جزيلا لك!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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