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

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

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

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

إدراج رقم الصفحة في الخلية باستخدام كود VBA

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

إدراج رقم الصفحة في الخلية باستخدام كود VBA

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

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

2. اضغط مع الاستمرار على ALT + F11، ويفتح نافذة Microsoft Visual Basic for Applications.

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. ثم انقر فوق زر موافق، جميع أرقام الصفحات تتم إزالتها من المصنف دفعة واحدة.