मुख्य सामग्री पर जाएं

एक्सेल में सेल/हेडर/फुटर में पेज नंबर कैसे डालें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-04-21

जब आप किसी एक्सेल फ़ाइल को प्रिंट करते हैं, तो मुद्रित फ़ाइल को साफ-सुथरा और पठनीय बनाने के लिए आपको पृष्ठों में पेज नंबर डालने की आवश्यकता हो सकती है। इस लेख में, मैं आपके लिए सेल, हेडर या फ़ुटर में पेज नंबर डालने के लिए कुछ त्वरित तरकीबें पेश करूंगा।

एक वर्कशीट में हेडर/फुटर में पेज नंबर डालें

एकाधिक कार्यपत्रकों में शीर्षलेख/पादलेख में पृष्ठ संख्या डालें

वीबीए कोड के साथ सेल में पेज नंबर डालें

एक्सेल में सभी पेज नंबर एक साथ हटा दें


तीर नीला दायां बुलबुला एक वर्कशीट में हेडर/फुटर में पेज नंबर डालें

आम तौर पर, हम इसका उपयोग करके पृष्ठ संख्याओं को शीर्ष लेख या पादलेख में शीघ्रता से सम्मिलित कर सकते हैं अगुआ पुछल्ला फ़ंक्शन, कृपया निम्नानुसार करें:

1. उस वर्कशीट पर जाएँ जिसके शीर्ष लेख या पाद लेख में आप पृष्ठ संख्याएँ सम्मिलित करना चाहते हैं।

2। तब दबायें सम्मिलित करें > अगुआ पुछल्ला, और आपकी वर्कशीट अंदर होगी पेज लेआउट देखें, स्क्रीनशॉट देखें:

दस्तावेज़ पृष्ठ क्रमांक 1 सम्मिलित करें

3. उस शीर्षलेख या पादलेख पर क्लिक करें जहां आप पृष्ठ संख्या डालना चाहते हैं, और फिर a डिज़ाइन टैब के साथ शीर्षलेख और पाद लेख उपकरण रिबन में प्रदर्शित होता है, फिर क्लिक करें डिज़ाइन > पृष्ठ संख्या, स्क्रीनशॉट देखें:

दस्तावेज़ पृष्ठ क्रमांक 2 सम्मिलित करें

4. और आप प्लेसहोल्डर देख सकते हैं &[पृष्ठ] चयनित अनुभाग में दिखाई दें, फिर पृष्ठ क्रमांक प्रदर्शित करने के लिए शीर्ष लेख या पाद लेख क्षेत्र के बाहर कहीं भी क्लिक करें। स्क्रीनशॉट देखें:

दस्तावेज़ पृष्ठ क्रमांक 3 सम्मिलित करें

5. अब, आप क्लिक करके वापस सामान्य दृश्य पर रीसेट कर सकते हैं देखें > साधारण, और जब आप इस वर्कशीट को प्रिंट करते हैं, तो आप देखेंगे कि पेज नंबर आपके द्वारा चुने गए हेडर या फ़ूटर में डाले गए हैं।

नोट: यदि आप चाहते हैं कि पृष्ठ संख्याएँ 1 में से 15, 2 में से 15 प्रारूप में प्रदर्शित हों, तो आपको बस इसे सीधे दर्ज करना होगा &[पेज] का &[पेज] शीर्ष लेख या पाद लेख फ़ील्ड बॉक्स में, स्क्रीनशॉट देखें:

दस्तावेज़ पृष्ठ क्रमांक 4 सम्मिलित करें


तीर नीला दायां बुलबुला एकाधिक कार्यपत्रकों में शीर्षलेख/पादलेख में पृष्ठ संख्या डालें

उपरोक्त विधि आपको एक वर्कशीट में पेज नंबर डालने में मदद कर सकती है, यदि आप वर्कबुक के सभी वर्कशीट में पेज नंबर डालना चाहते हैं ताकि सभी पेज अनुक्रमिक क्रम में क्रमांकित हो जाएं, तो कृपया ऐसा करें:

1. सभी शीट टैब चुनें, फिर पर जाएँ पेज लेआउट टैब, और क्लिक करें डायलॉग बॉक्स लॉन्चर बटन में आइकन पृष्ठ सेटअप समूह, स्क्रीनशॉट देखें:

दस्तावेज़ पृष्ठ क्रमांक 5 सम्मिलित करें

2. में पृष्ठ सेटअप संवाद बॉक्स, कृपया क्लिक करें अगुआ पुछल्ला टैब पर क्लिक करें, और उसके बाद क्लिक करें कस्टम हैडर or कस्टम पाद लेख अपने इच्छित शीर्षलेख या पादलेख को सेट करने के लिए स्क्रीनशॉट देखें:

दस्तावेज़ पृष्ठ क्रमांक 6 सम्मिलित करें

3। और इसमें हैडर or पाद संवाद बॉक्स के अंदर क्लिक करके कृपया उस स्थान को परिभाषित करें जहां पेज नंबर डाले गए हैं बायां खंड:, केंद्र अनुभाग:या, दायां भाग: आपकी आवश्यकतानुसार बॉक्स, और फिर क्लिक करें पेज नंबर डालें आइकन, और प्लेसहोल्डर &[पृष्ठ] प्रकट होता है। स्क्रीनशॉट देखें:

दस्तावेज़ पृष्ठ क्रमांक 7 सम्मिलित करें

नोट: इसे दर्ज करें &[पेज] का &[पेज] यदि आपको 1 में से 45, 2 में से 45 के रूप में प्रदर्शित पृष्ठ संख्याएँ पसंद हैं तो शीर्षलेख या पादलेख फ़ील्ड बॉक्स में...

4. तब क्लिक करो OK > OK संवाद बॉक्स को बंद करने के लिए, जब आप इस कार्यपुस्तिका को प्रिंट करते हैं, तो प्रिंट पूर्वावलोकन में, आप देख सकते हैं कि सभी पृष्ठ संख्याएँ अनुक्रमिक क्रम में शीर्ष लेख या पाद लेख में डाली गई हैं।


तीर नीला दायां बुलबुला वीबीए कोड के साथ सेल में पेज नंबर डालें

आपके लिए पृष्ठ संख्याओं को शीर्ष लेख या पाद लेख में सम्मिलित करना आसान है, लेकिन, यदि आपको पृष्ठ संख्याओं को वर्कशीट सेल में सम्मिलित करने की आवश्यकता है, तो आपके लिए ऐसा करने का कोई सीधा तरीका नहीं है। निम्नलिखित 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 इस कोड को चलाने के लिए कुंजी, और इस सेल का पृष्ठ क्रमांक चयनित सेल में प्रदर्शित होता है, स्क्रीनशॉट देखें:

दस्तावेज़ पृष्ठ क्रमांक 8 सम्मिलित करें


तीर नीला दायां बुलबुला एक्सेल में सभी पेज नंबर एक साथ हटा दें

सभी पृष्ठ क्रमांक हटाने के लिए, आप निम्नलिखित चरण लागू कर सकते हैं:

1. सभी शीट टैब का चयन करें, और पर जाएँ पेज लेआउट रिबन पर टैब करें, फिर क्लिक करें डायलॉग बॉक्स लॉन्चर बटन में आइकन पृष्ठ सेटअप समूह, स्क्रीनशॉट देखें:

दस्तावेज़ पृष्ठ क्रमांक 9 सम्मिलित करें

2. में पृष्ठ सेटअप संवाद बॉक्स पर क्लिक करें अगुआ पुछल्ला टैब, और फिर चुनें (कोई नहीं) से हैडर or पाद ड्रॉप डाउन सूची, स्क्रीनशॉट देखें:

दस्तावेज़ पृष्ठ क्रमांक 10 सम्मिलित करें

3. तब क्लिक करो OK बटन, कार्यपुस्तिका से सभी पृष्ठ क्रमांक एक ही बार में हटा दिए जाते हैं।

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 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