كيفية إدراج رقم الصفحة في الخلية / الرأس / التذييل في إكسيل؟
عند طباعة ملف 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 الزر ، تتم إزالة كافة أرقام الصفحات من المصنف مرة واحدة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!