انتقل إلى المحتوى الرئيسي

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

لنفترض أن لدي مجموعة من الخلايا ، والآن ، أريد إدراج فواصل الصفحات في ورقة العمل عندما تتغير القيم الموجودة في العمود 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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,

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

Merci beaucoup !
This comment was minimized by the moderator on the site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
This comment was minimized by the moderator on the site
Hello, Lê Tuấn
To solve your problem, please apply the below VBA code:
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


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is it possible to skip the first 20 rows of the sheet? If been trying all kinds of stuff but my knowledge of VBA is to limited to adjuist the code myself.
This comment was minimized by the moderator on the site
Hi, Wilco,
To insert the page break but skip the first 20 rows, you just need to change one parameter as below code:

Sub insertpagebreaks()

'updateby Extendoffice

Dim I As Long, J As Long

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

For I = J To 21 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

Please try, thank you!
This comment was minimized by the moderator on the site
That is truly brilliant! I followed along on your VB example and it worked! I also am an owner of KUTools so I will play with that too.

Very impressed and thanks!

Mike
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
This comment was minimized by the moderator on the site
Hello, Thank you! The thought of VBA makes me sweat. I do have one problem with the results of this code though. The first column is a column header. The code treats this as a change. My first page only shows the column header, but he following pages are fine. FYI: This is for a monthly report and the number of rows for each criteria change monthly. Any Ideas? Thank you in advance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations