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

كيفية إدراج رقم الصفحة في الخلية / الرأس / التذييل في إكسيل؟

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

أدخل رقم الصفحة في الرأس / التذييل في ورقة عمل واحدة

أدخل رقم الصفحة في الرأس / التذييل عبر أوراق عمل متعددة

أدخل رقم الصفحة في الخلية برمز VBA

قم بإزالة جميع أرقام الصفحات مرة واحدة في Excel


السهم الأزرق الحق فقاعة أدخل رقم الصفحة في الرأس / التذييل في ورقة عمل واحدة

عادةً ، يمكننا إدراج أرقام الصفحات في الرأس أو التذييل بسرعة باستخدام ملف تذييل الرأس وظيفة ، يرجى القيام بما يلي:

1. انتقل إلى ورقة العمل التي تريد إدراج أرقام الصفحات في الرأس أو التذييل.

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

doc إدراج أرقام الصفحات 1

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

doc إدراج أرقام الصفحات 2

4. ويمكنك أن ترى العنصر النائب & [صفحة] تظهر في القسم المحدد ، ثم انقر في أي مكان خارج منطقة الرأس أو التذييل لعرض أرقام الصفحات. انظر لقطة الشاشة:

doc إدراج أرقام الصفحات 3

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

ملاحظة: إذا كنت تريد عرض أرقام الصفحات بتنسيق 1 من 15 ، 2 من 15 ، فأنت تحتاج فقط إلى إدخال هذا مباشرة & [صفحة] من & [صفحات] في مربع حقل الرأس أو التذييل ، انظر لقطة الشاشة:

doc إدراج أرقام الصفحات 4


السهم الأزرق الحق فقاعة أدخل رقم الصفحة في الرأس / التذييل عبر أوراق عمل متعددة

يمكن أن تساعدك الطريقة أعلاه على إدراج أرقام الصفحات في ورقة عمل واحدة ، إذا كنت تريد إدراج أرقام الصفحات في جميع أوراق العمل الخاصة بالمصنف لجعل جميع الصفحات مرقمة بترتيب تسلسلي ، يرجى القيام بذلك على النحو التالي:

1. حدد جميع علامات تبويب الأوراق ، ثم انتقل إلى تخطيط الصفحة علامة التبويب وانقر فوق زر مشغل مربع الحوار في صفحة الإعداد المجموعة ، انظر لقطة الشاشة:

doc إدراج أرقام الصفحات 5

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

doc إدراج أرقام الصفحات 6

3. وفي رأس or تذييل في مربع الحوار ، يرجى تحديد الموقع حيث يتم إدراج أرقام الصفحات بالنقر داخل ملف القسم الأيسر:, قسم المركز:، أو القسم الأيمن: مربع كما تحتاج ، ثم انقر فوق أدخل رقم الصفحة والعنصر النائب & [صفحة] يبدو. انظر لقطة الشاشة:

doc إدراج أرقام الصفحات 7

ملاحظة: أدخل هذا & [صفحة] من & [صفحات] في مربع حقل الرأس أو التذييل إذا كنت تحب أرقام الصفحات المعروضة على أنها 1 من 45 ، 2 من 45 ...

4. ثم اضغط OK > OK لإغلاق مربعات الحوار ، عند طباعة هذا المصنف ، في معاينة الطباعة ، يمكنك مشاهدة جميع أرقام الصفحات مدرجة في الرأس أو التذييل بترتيب تسلسلي.


السهم الأزرق الحق فقاعة أدخل رقم الصفحة في الخلية برمز VBA

من السهل عليك إدراج أرقام الصفحات في الرأس أو التذييل ، ولكن إذا كنت بحاجة إلى إدراج أرقام الصفحات في خلية ورقة عمل ، فلا توجد طريقة مباشرة للقيام بذلك. قد يساعدك رمز VBA التالي في حل هذه المشكلة.

1. انقر فوق الخلية حيث تريد عرض رقم الصفحة لهذه الخلية.

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

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

رمز فبا: أدخل رقم الصفحة الحالية في خلية:

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

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

doc إدراج أرقام الصفحات 8


السهم الأزرق الحق فقاعة قم بإزالة جميع أرقام الصفحات مرة واحدة في Excel

لإزالة جميع أرقام الصفحات ، يمكنك تطبيق الخطوات التالية:

1. حدد جميع علامات تبويب الأوراق ، وانتقل إلى ملف تخطيط الصفحة علامة التبويب على الشريط ، ثم انقر فوق زر مشغل مربع الحوار في صفحة الإعداد المجموعة ، انظر لقطة الشاشة:

doc إدراج أرقام الصفحات 9

2. في صفحة الإعداد مربع الحوار، انقر فوق تذييل الرأس علامة التبويب ، ثم اختر (لا يوجد) من رأس or تذييل القائمة المنسدلة ، انظر لقطة الشاشة:

doc إدراج أرقام الصفحات 10

3. ثم اضغط OK الزر ، تتم إزالة كافة أرقام الصفحات من المصنف مرة واحدة.


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

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 أعلاه وهو يعمل بشكل رائع. يمكن أن تتكون الورقة الخاصة بي إما من صفحتين (صفحتان لأسفل وواحدة عرضية) ، أو 2 صفحات (صفحتان لأسفل و 2 عرضًا) أو 1 صفحات (صفحتان لأسفل و 4 عبر). لقد قمت بإدخال الكود في كل خلية من الخلايا الستة التي تتطلب طباعة رقم الصفحة (عن طريق تحديد الخلايا كل على حدة وتشغيل VBA) ، وعناوين الخلية هي H2 ، H2 ، T6 ، T2 ، AF3 ، AF6. الآن أود إضافة زر لتحديث أرقام الصفحات هذه دون التأثير على أي خلية قد تكون نشطة عندما يختار المستخدم المعني تشغيلها ، حاليًا يتعين علي تحديد كل خلية بدورها مرة أخرى وتشغيل VBA :( ستكون المساعدة بشكل كبير أقدر! أنطوانيت
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد جربت ماكرو VBA ، لكنني أحصل على خطأ خارج النطاق ... هل فعلت شيئًا خاطئًا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hola، hay un error en la format porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. منفردا hace el conteo de páginas el segundo valor. مراجعة بودريان ... غراسياس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تيريما كاسيه ، كوان
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل لي أن أعرف ما إذا كان لدي نطاق من الخلايا أريد إدخالها في أرقام الصفحات ، فما الذي يجب علي تغييره؟ يسمح لي VBA الحالي فقط بتغيير واحد تلو الآخر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل لي أن أعرف كيف يمكنني تعديل VBA أعلاه والذي يسمح لي بتنفيذ هذا على نطاق من الخلايا في مصنف وبمفتاح اختصار واحد لتطبيق جميع الخلايا المحددة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hola، el codigo si me funciono، sin blockgo al momento de Imprimir، siempre me sale 1 de 5 y es que mi encabezado lo tengo como área de Impresión en todas mis paginas، ¿hay alguna forma de lograr que al momento de Imprimir، se pueda cambiar la pagina، en la misma pestaña؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hay forma de convertir esta sub en una función؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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