एक्सेल में हेडर/फुटर में सेल वैल्यू कैसे डालें?
हम Excel की सुविधा के साथ फ़ाइल पथ, फ़ाइल नाम, वर्तमान दिनांक या अन्य जानकारी वाले शीर्षलेख या पादलेख को आसानी से सम्मिलित कर सकते हैं, लेकिन, कभी-कभी, हम Excel में शीर्षलेख या पादलेख के रूप में एक सेल मान का उपयोग करना चाहते हैं। हम किसी सेल की सामग्री को कार्यपुस्तिका में शीर्ष लेख या पाद लेख में कैसे डाल सकते हैं?
वीबीए कोड के साथ वर्कशीट के हेडर या फुटर में सेल वैल्यू डालें
वीबीए कोड के साथ सभी वर्कशीट के हेडर या फुटर में सेल वैल्यू डालें
एक्सेल के लिए कुटूल के साथ हेडर/फुटर में फ़ाइल जानकारी डालें
वीबीए कोड के साथ वर्कशीट के हेडर या फुटर में सेल वैल्यू डालें
यदि आप वर्तमान वर्कशीट के शीर्ष लेख या पाद लेख में एक सेल सामग्री रखना चाहते हैं, तो निम्नलिखित वीबीए कोड आपकी मदद कर सकता है। कृपया निम्न चरणों का पालन करें:
1. अपनी वर्कशीट को सक्रिय करें जिसमें आप सेल वैल्यू के साथ हेडर या फूटर सम्मिलित करना चाहते हैं, फिर दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2.Click सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित कोड पेस्ट करें।
वीबीए कोड: वर्कशीट के हेडर में एक निर्दिष्ट सेल मान डालें
Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, एक संवाद आपको उस सेल का चयन करने की याद दिलाने के लिए पॉप आउट होगा जिसकी सामग्री आप हेडर में डालना चाहते हैं।
4। और फिर क्लिक करें OK, यह निर्दिष्ट सेल मान वर्तमान वर्कशीट के बाएं हेडर में डाला गया है। आप क्लिक करके हेडर देख सकते हैं पट्टिका > छाप. स्क्रीनशॉट देखें:
टिप्पणियाँ:
1. यदि आप सेल सामग्री को सक्रिय वर्कशीट के पादलेख के रूप में उपयोग करना चाहते हैं, तो आप इस कोड को लागू कर सकते हैं:
वीबीए कोड: वर्कशीट के पाद लेख में एक निर्दिष्ट सेल मान डालें
Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub
2. आप सेल वैल्यू को दाएं हेडर/फुटर या सेंटर हेडर/फुटर में डालने के लिए उपरोक्त कोड भी लागू कर सकते हैं, बस इसे बदल दें लेफ्टहेडर / बायाँ पाद लेख साथ में राइटहेडर / दायाँ पाद लेख or सेंटरहेडर / सेंटरफुटर कोड में.
वीबीए कोड के साथ सभी वर्कशीट के हेडर या फुटर में सेल वैल्यू डालें
कभी-कभी, आप अपनी प्रारंभिक कार्यपुस्तिका के सभी कार्यपत्रकों में चयनित सेल की सामग्री के साथ शीर्षलेख या पादलेख सम्मिलित करना चाहते हैं, उपरोक्त कोड के साथ, आपको उन्हें बार-बार दोहराने की आवश्यकता होती है। इस स्थिति में, निम्नलिखित VBA कोड सेल सामग्री को एक ही बार में संपूर्ण कार्यपुस्तिका के हेडर या फ़ूटर में जोड़ सकता है।
1. अपनी कार्यपुस्तिका को सक्रिय करें जिसमें आप सेल मान के साथ हेडर या फ़ूटर सम्मिलित करना चाहते हैं, फिर दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: सभी वर्कशीट के पाद लेख में एक निर्दिष्ट सेल मान डालें
Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub
3। फिर दबायें F5 इस कोड को निष्पादित करने के लिए कुंजी, एक संवाद आपको उस सेल का चयन करने की याद दिलाने के लिए पॉप आउट होगा जिसकी सामग्री आप संपूर्ण कार्यपुस्तिका के पाद लेख में रखना चाहते हैं।
4। और फिर क्लिक करें OK, यह चयनित सेल मान सभी कार्यपत्रकों के बाएँ पादलेख में जोड़ दिया गया है। आप फ़ुटर पर क्लिक करके देख सकते हैं पट्टिका > छाप. स्क्रीनशॉट देखें:
टिप्पणियाँ:
1. यदि आप सेल सामग्री को संपूर्ण कार्यपुस्तिका के शीर्षलेख के रूप में उपयोग करना चाहते हैं, तो आप इस कोड को लागू कर सकते हैं:
वीबीए कोड: सभी वर्कशीट के हेडर में एक निर्दिष्ट सेल मान डालें
Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub
2. स्थानापन्न दायाँ शीर्षलेख/पादलेख or सेंटरहेडर/फुटर एसटी बायां शीर्षलेख/पाद लेख यदि आप चाहते हैं कि आपका शीर्षलेख या पादलेख अलग-अलग स्थान पर हो तो उपरोक्त कोड में।
एक्सेल के लिए कुटूल के साथ हेडर/फुटर में फ़ाइल जानकारी डालें
यदि आप फ़ाइलर जानकारी को हेडर या फ़ूटर में सम्मिलित करना चाहते हैं, जैसे वर्कशीट/वर्कबुक नाम, वर्कबुक पथ इत्यादि, तो आप इसका उपयोग कर सकते हैं एक्सेल के लिए कुटूलहै कार्यपुस्तिका जानकारी सम्मिलित करें उपयोगिता यदि आपने एक्सेल के लिए कुटूल स्थापित किया है।
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। | ||
बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:
1। क्लिक करें कुटूल्स प्लस > कार्यपुस्तिका > कार्यपुस्तिका जानकारी सम्मिलित करें. स्क्रीनशॉट देखें:
2। में कार्यपुस्तिका जानकारी सम्मिलित करें संवाद, उस जानकारी की जाँच करें जिसे आपको नीचे सम्मिलित करना है जानकारी अनुभाग, और जाँच करें हैडर or पाद जैसा आपको पसंद।
सुझाव: आप जानकारी को शीर्षलेख या पादलेख के तीन स्थानों पर सम्मिलित कर सकते हैं: केंद्र, बाएँ या दाएँ।
3। क्लिक करें Ok. तो फिर आप जा सकते हैं देखें > पेज लेआउट हेडर देखने के लिए.
वर्कबुक जानकारी सम्मिलित करने के साथ, आप किसी सेल या सेल की श्रेणी में फ़ाइल जानकारी भी सम्मिलित कर सकते हैं। इस उपयोगिता के बारे में अधिक जानने के लिए यहां क्लिक करें।
सेल/हेडर/फुटर पर कार्यपुस्तिका जानकारी डालें
संबंधित आलेख:
Excel में सेल/हेडर या फ़ूटर में फ़ाइल नाम या पथ कैसे डालें?
Excel में हेडर, फ़ूटर और हेडर चित्र कैसे डालें और हटाएँ?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!