كيف تُدرج رقم الصفحة في خلية أو رأس الصفحة أو تذييلها في Excel؟
عند طباعة ملف Excel، قد تحتاج إلى إدراج أرقام الصفحات في الصفحات لجعل الملف المطبوع مرتبًا وسهل القراءة. في هذه المقالة، سأعرض لك بعض الحيل السريعة لإدراج أرقام الصفحات في خلية أو رأس الصفحة أو تذييلها.
إدراج رقم الصفحة في رأس الصفحة / تذييل الصفحة في ورقة عمل واحدة
إدراج رقم الصفحة في رأس الصفحة / تذييل الصفحة عبر أوراق عمل متعددة
إدراج رقم الصفحة في خلية باستخدام كود VBA
إزالة جميع أرقام الصفحات دفعة واحدة في Excel
إدراج رقم الصفحة في رأس الصفحة / تذييل الصفحة في ورقة عمل واحدة
عادةً، يمكننا إدراج أرقام الصفحات في رأس الصفحة أو تذييلها بسرعة باستخدام دالةرأس الصفحة وتذييلها، يُرجى اتباع الخطوات التالية:
1. انتقل إلى ورقة العمل التي ترغب في إدراج أرقام الصفحات فيها ضمن رأس الصفحة أو تذييلها.
2. ثم انقر علىإدراج > رأس الصفحة وتذييلها، وستتحول ورقة العمل تلقائيًا إلى عرضتخطيط الصفحة. انظر لقطة الشاشة:
3. انقر على رأس الصفحة أو تذييلها حيث تريد إدراج رقم الصفحة، ثم ستظهر علامة التبويبتصميممع أدواترأس الصفحة وتذييلهافي الشريط. بعد ذلك، انقر علىتصميم > رقم الصفحة. انظر لقطة الشاشة:
4. سترى العنصر النائب&[Page] يظهر في القسم المحدد؛ ثم انقر في أي مكان خارج منطقة رأس الصفحة أو تذييلها لعرض أرقام الصفحات. انظر لقطة الشاشة:
5. الآن، يمكنك العودة إلى العرض العادي بالنقر علىعرض > عادي. وعند طباعة هذه الورقة، سترى أن أرقام الصفحات قد أُدرجت في رأس الصفحة أو تذييلها الذي حددته.
ملاحظة: إذا كنت تريد عرض أرقام الصفحات بالشكل 1 من 15، 2 من 15، فما عليك سوى كتابة مباشرةً&[Page] of &[Pages]في مربع حقل رأس الصفحة أو تذييلها، انظر لقطة الشاشة:
إدراج اسم الورقة، أو اسم الملف، أو وقت الإنشاء، أو وقت التعديل... في رأس الصفحة أو تذييلها أو في الخلية: مع أداةKutools لـ Excel’s إدراج معلومات الورقة العمل، يمكنك بسرعة إدراج اسم الورقة، واسم الملف، ومسار الملف والاسم، ووقت الإنشاء، ووقت التعديل وهكذا في خلية أو رأس الصفحة أو تذييلها حسب حاجتك.نزّل وجرّب مجانًا Kutools لـ Excel الآن!
Kutools لـ Excel: مع أكثر من 300 إضافة مفيدة لبرنامج Excel، جرّبها مجانًا دون أي قيود لمدة 30 يومًا.نزّل وجرّب مجانًا الآن! |
إدراج رقم الصفحة في رأس الصفحة / تذييل الصفحة عبر أوراق عمل متعددة
الطريقة السابقة تساعدك على إدراج أرقام الصفحات في ورقة عمل واحدة، أما إذا أردت إدراج أرقام الصفحات في جميع أوراق العمل في المصنف بحيث تكون جميع الصفحات مرقمة بشكل متسلسل، فاتبع ما يلي:
1.حدد جميع علامات ورقة العمل، ثم انتقل إلى علامة تبويبتخطيط الصفحة، وانقر على أيقونةزر تشغيل مربع الحوارفي مجموعةإعدادات الصفحة، انظر لقطة الشاشة:
2. في مربع الحوارإعدادات الصفحة، انقر على علامة التبويبرأس الصفحة وتذييلها، ثم انقر علىرأس صفحة مخصصأوتذييل صفحة مخصصلتحديد رأس الصفحة أو تذييلها الذي تريده. انظر لقطة الشاشة:
3. في مربع الحواررأس الصفحةأوتذييل الصفحة، حدد الموقع الذي تريد إدراج رقم الصفحة فيه بالنقر داخل مربعالقسم الأيسر:، أوالقسم الأوسط:، أوالقسم الأيمن:حسب حاجتك، ثم انقر على أيقونةإدراج رقم الصفحةليظهر العنصر النائب&[Page]. انظر لقطة الشاشة:
ملاحظة:أدخل هذا النص&[Page] of &[Pages]في مربع حقل رأس الصفحة أو تذييلها إذا كنت تفضل عرض أرقام الصفحات بالشكل 1 من 45، 2 من 45…
4. ثم انقر علىموافق>موافقلإغلاق مربعات الحوار. وعند طباعة هذا المصنف، سترى في معاينة الطباعة أن جميع أرقام الصفحات قد أُدرجت بشكل متسلسل في رأس الصفحة أو تذييلها.
إدراج رقم الصفحة في خلية باستخدام كود VBA
من السهل إدراج أرقام الصفحات في رأس الصفحة أو تذييلها، لكن إذا احتجتَ إلى وضع رقم الصفحة داخل خلية في ورقة العمل، فلا توجد طريقة مباشرة لذلك. ويمكن أن يساعدك كود VBA التالي في حل هذه المشكلة.
1. انقر على الخلية التي تريد عرض رقم الصفحة فيها.
2. اضغط باستمرار على مفتاحَيALT + F11، وسيُفتح لك نافذةمايكروسوفت فيجوال بيسيك للتطبيقات.
3. انقر علىإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذةالوحدة النمطية.
كود VBA: إدراج رقم الصفحة الحالي في خلية:
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 لتشغيل هذا الكود، وستظهر رقم الصفحة الخاصة بهذه الخلية في الخلية المحددة. انظر لقطة الشاشة:
إزالة جميع أرقام الصفحات دفعة واحدة في Excel
لإزالة جميع أرقام الصفحات، يمكنك تطبيق الخطوات التالية:
1. حدد جميع أوراق العمل، ثم انتقل إلى علامة التبويبتخطيط الصفحةفي الشريط، وانقر علىزر تشغيل مربع الحوارضمن مجموعةإعدادات الصفحة. انظر لقطة الشاشة:
2. في مربع الحوارإعدادات الصفحة، انقر على علامة التبويبرأس الصفحة وتذييلها، ثم اختر(بلا)من القائمة المنسدلة لـرأس الصفحةأوتذييل الصفحة. انظر لقطة الشاشة:
3. ثم انقر على زرموافق، وسيتم إزالة جميع أرقام الصفحات من المصنف دفعة واحدة.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل