एक्सेल में सेल वैल्यू के आधार पर कुछ पेज या वर्कशीट कैसे प्रिंट करें?
क्या आपने कभी एक्सेल में सेल वैल्यू के आधार पर कुछ पेज या वर्कशीट प्रिंट करने का प्रयास किया है? और इसे कैसे हासिल करें? इस लेख में दिए गए तरीके आपको इसे विस्तार से हल करने में मदद कर सकते हैं।
वीबीए कोड के साथ सेल वैल्यू के आधार पर कुछ पेज प्रिंट करें
वीबीए कोड के साथ सेल वैल्यू के आधार पर कुछ वर्कशीट प्रिंट करें
वीबीए कोड के साथ सेल वैल्यू के आधार पर कुछ पेज प्रिंट करें
उदाहरण के लिए, आप चाहते हैं कि वर्तमान वर्कशीट में सेल A1 में पेज नंबर 1 दर्ज करते समय एक निश्चित पेज जैसे कि वर्तमान वर्कशीट का पेज 1 स्वचालित रूप से मुद्रित हो जाए। इसे प्राप्त करने के लिए आप निम्नानुसार कार्य कर सकते हैं।
1. उस सेल का चयन करें जिसमें वह पृष्ठ संख्या है जिसके आधार पर आप प्रिंट करना चाहते हैं, फिर दबाएँ ऑल्ट और F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की। तब दबायें सम्मिलित करें > मॉड्यूल.
2. फिर अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो पॉप अप हो जाती है, कृपया निम्नलिखित VBA कोड को कॉपी और पेस्ट करें कोड खिड़की.
वीबीए कोड: सेल वैल्यू के आधार पर पेज प्रिंट करें
Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
xPage = .Value
Else: MsgBox "Please specify a cell and enter a page in cell"
Exit Sub
End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
Exit Sub
End If
End Sub
3। दबाएँ F5 कोड चलाने की कुंजी. पॉप अप में एक्सेल के लिए कुटूल संवाद बॉक्स में, क्लिक करें हाँ विशिष्ट पृष्ठ मुद्रित करने के लिए बटन, या क्लिक करें नहीं यदि आप प्रिंट नहीं करना चाहते तो संवाद बॉक्स से बाहर निकलने के लिए बटन दबाएँ। स्क्रीनशॉट देखें:
फिर वर्तमान वर्कशीट के निश्चित पृष्ठ की पूर्वावलोकन विंडो खुलती है, कृपया क्लिक करें छाप मुद्रण प्रारंभ करने के लिए बटन।
वीबीए कोड के साथ सेल वैल्यू के आधार पर कुछ पेज प्रिंट करें
मान लीजिए कि आप सक्रिय वर्कशीट को प्रिंट करना चाहते हैं जब इस शीट के सेल बी2 में मान संख्या 1001 के बराबर है। आप इसे निम्नलिखित वीबीए कोड के साथ प्राप्त कर सकते हैं। कृपया निम्नानुसार करें.
1. राइट क्लिक करें शीट टैब जिसे आप सेल वैल्यू के आधार पर प्रिंट करना चाहते हैं, और फिर क्लिक करें कोड देखें राइट-क्लिक मेनू से।
2. फिर अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो पॉप अप हो जाती है, कृपया निम्नलिखित VBA कोड को कॉपी करें और कोड विंडो में पेस्ट करें।
वीबीए कोड: सेल वैल्यू के आधार पर वर्कशीट प्रिंट करें
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
If xCell.Value = 1001 Then
xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut
Else
Exit Sub
End If
End If
End Sub
नोट: आप अपनी आवश्यकतानुसार कोड में सेल और सेल वैल्यू को बदल सकते हैं।
3। दबाएँ ऑल्ट + Q बंद करने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
सेल बी1001 में नंबर 2 दर्ज करते समय, ए एक्सेल के लिए कुटूल संवाद बॉक्स पॉप अप होता है, कृपया क्लिक करें हाँ मुद्रण प्रारंभ करने के लिए बटन। या क्लिक करें नहीं मुद्रण के बिना सीधे संवाद बॉक्स से बाहर निकलने के लिए बटन। स्क्रीनशॉट देखें:
संबंधित लेख:
- एक्सेल में डायनामिक प्रिंट एरिया कैसे बनाएं?
- Excel में वर्कशीट का केवल अंतिम पृष्ठ कैसे प्रिंट करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!