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

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

عند طباعة ملف 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 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
Hay forma de convertir esta sub en una función?
This comment was minimized by the moderator on the site
Hola,el codigo si me funciono, sin embargo 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?
This comment was minimized by the moderator on the site
May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
This comment was minimized by the moderator on the site
May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
This comment was minimized by the moderator on the site
terima kasih, kawan
This comment was minimized by the moderator on the site
Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
This comment was minimized by the moderator on the site
I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
This comment was minimized by the moderator on the site
Hello I used the Insert page number into cell with VBA code above and it works a charm. My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across). I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35. Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :( Assistance would be hugely appreciated! Antoinette
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations