كيفية إدراج رقم الصفحة في الخلية / الرأس / التذييل في إكسيل؟
عند طباعة ملف Excel ، قد تحتاج إلى إدخال أرقام الصفحات في الصفحات لجعل الملف المطبوع أنيقًا ومقروءًا. في هذه المقالة ، سأقدم بعض الحيل السريعة لإدراج أرقام الصفحات في الخلية أو الرأس أو التذييل نيابة عنك.
أدخل رقم الصفحة في الرأس / التذييل في ورقة عمل واحدة
أدخل رقم الصفحة في الرأس / التذييل عبر أوراق عمل متعددة
أدخل رقم الصفحة في الخلية برمز VBA
قم بإزالة جميع أرقام الصفحات مرة واحدة في Excel
أدخل رقم الصفحة في الرأس / التذييل في ورقة عمل واحدة
عادةً ، يمكننا إدراج أرقام الصفحات في الرأس أو التذييل بسرعة باستخدام ملف تذييل الرأس وظيفة ، يرجى القيام بما يلي:
1. انتقل إلى ورقة العمل التي تريد إدراج أرقام الصفحات في الرأس أو التذييل.
2. ثم اضغط إدراج > تذييل الرأس، وستكون ورقة العمل الخاصة بك بتنسيق تخطيط الصفحة عرض ، انظر لقطة الشاشة:
3. انقر فوق الرأس أو التذييل حيث تريد إدراج رقم الصفحة ، ثم انقر فوق ملف الإنشاء التبويب مع أدوات الرأس والتذييل يتم عرضه في الشريط ، ثم انقر فوق الإنشاء > رقم الصفحة، انظر لقطة الشاشة:
4. ويمكنك أن ترى العنصر النائب & [صفحة] تظهر في القسم المحدد ، ثم انقر في أي مكان خارج منطقة الرأس أو التذييل لعرض أرقام الصفحات. انظر لقطة الشاشة:
5. الآن ، يمكنك إعادة تعيين العرض العادي عن طريق النقر فوق مشاهدة > خرسانة عادية، وعند طباعة ورقة العمل هذه ، سترى أن أرقام الصفحات قد تم إدراجها في الرأس أو التذييل الذي حددته.
ملاحظة: إذا كنت تريد عرض أرقام الصفحات بتنسيق 1 من 15 ، 2 من 15 ، فأنت تحتاج فقط إلى إدخال هذا مباشرة & [صفحة] من & [صفحات] في مربع حقل الرأس أو التذييل ، انظر لقطة الشاشة:
أدخل رقم الصفحة في الرأس / التذييل عبر أوراق عمل متعددة
يمكن أن تساعدك الطريقة أعلاه على إدراج أرقام الصفحات في ورقة عمل واحدة ، إذا كنت تريد إدراج أرقام الصفحات في جميع أوراق العمل الخاصة بالمصنف لجعل جميع الصفحات مرقمة بترتيب تسلسلي ، يرجى القيام بذلك على النحو التالي:
1. حدد جميع علامات تبويب الأوراق ، ثم انتقل إلى تخطيط الصفحة علامة التبويب وانقر فوق زر مشغل مربع الحوار في صفحة الإعداد المجموعة ، انظر لقطة الشاشة:
2. في صفحة الإعداد مربع الحوار ، الرجاء الضغط تذييل الرأس ثم انقر فوق مخصص رأس or تذييل مخصص للذهاب لتعيين الرأس أو التذييل الذي تريده ، انظر لقطة الشاشة:
3. وفي رأس or تذييل في مربع الحوار ، يرجى تحديد الموقع حيث يتم إدراج أرقام الصفحات بالنقر داخل ملف القسم الأيسر:, قسم المركز:، أو القسم الأيمن: مربع كما تحتاج ، ثم انقر فوق أدخل رقم الصفحة والعنصر النائب & [صفحة] يبدو. انظر لقطة الشاشة:
ملاحظة: أدخل هذا & [صفحة] من & [صفحات] في مربع حقل الرأس أو التذييل إذا كنت تحب أرقام الصفحات المعروضة على أنها 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 مفتاح لتشغيل هذا الرمز ، ويتم عرض رقم الصفحة لهذه الخلية في الخلية المحددة ، انظر الصورة:
قم بإزالة جميع أرقام الصفحات مرة واحدة في Excel
لإزالة جميع أرقام الصفحات ، يمكنك تطبيق الخطوات التالية:
1. حدد جميع علامات تبويب الأوراق ، وانتقل إلى ملف تخطيط الصفحة علامة التبويب على الشريط ، ثم انقر فوق زر مشغل مربع الحوار في صفحة الإعداد المجموعة ، انظر لقطة الشاشة:
2. في صفحة الإعداد مربع الحوار، انقر فوق تذييل الرأس علامة التبويب ، ثم اختر (لا يوجد) من رأس or تذييل القائمة المنسدلة ، انظر لقطة الشاشة:
3. ثم اضغط OK الزر ، تتم إزالة كافة أرقام الصفحات من المصنف مرة واحدة.
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!








