एक्सेल स्प्रेडशीट पर प्रत्येक पृष्ठ पर अलग-अलग शीर्षलेख या पादलेख कैसे लागू करें?
डिफ़ॉल्ट रूप से, किसी कार्यपत्रक में शीर्षलेख या पादलेख सम्मिलित करते समय, शीर्षलेख या पादलेख सामग्री सभी पृष्ठों पर लागू की जाएगी। कई लोगों के लिए, अलग-अलग पेजों की वर्कशीट में अलग-अलग सामग्री हो सकती है। और वे वर्कशीट को प्रिंट करने के बाद इन पृष्ठों को शीर्ष लेख या पाद लेख सामग्री से अलग करते हैं। वर्कशीट के प्रत्येक पृष्ठ पर अलग-अलग शीर्षलेख या पादलेख कैसे लागू करें? इस लेख में दी गई विधि आपकी मदद कर सकती है।
प्रत्येक पृष्ठ पर VBA कोड के साथ अलग-अलग शीर्षलेख या पादलेख लागू करें
प्रत्येक पृष्ठ पर VBA कोड के साथ अलग-अलग शीर्षलेख या पादलेख लागू करें
निम्नलिखित VBA कोड आपको वर्कशीट के प्रत्येक पृष्ठ पर अलग-अलग शीर्षलेख या पादलेख लागू करने में मदद कर सकता है। कृपया निम्नानुसार करें.
1। दबाएं ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोग के लिए माइक्रोसॉफ्ट विज़ुअल बेसिकएस खिड़की।
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें कोड खिड़की। स्क्रीनशॉट देखें:
वीबीए कोड: एक्सेल में प्रत्येक पृष्ठ पर अलग-अलग हेडर लागू करें
Sub DifferentHeaderFooter()
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
नोट्स:
3। दबाएं F5 कोड चलाने की कुंजी. फिर पूर्वावलोकन विंडो पॉप अप होती है, कृपया क्लिक करें छाप विभिन्न शीर्षलेखों या पादलेखों वाले पृष्ठों को प्रिंट करना शुरू करने के लिए बटन।
नोट: यदि वर्कशीट में 4 निर्दिष्ट मुद्रित पृष्ठ हैं, तो आपको क्लिक करना होगा छाप संपूर्ण मुद्रण समाप्त करने के लिए चार बार बटन दबाएँ।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!