Excel में कक्षों की श्रेणी या कक्ष मान प्रदर्शित करने के लिए संदेश बॉक्स को कैसे पॉप अप करें?
कुछ मामलों में, आपको अपने द्वारा चुने गए रेंज स्कोप की याद दिलाने या निर्दिष्ट रेंज के सभी मान प्रदर्शित करने की आवश्यकता हो सकती है। इस आलेख में, आपको एक्सेल में चयनित सेल संदर्भ या विस्तृत सेल मान प्रदर्शित करने के लिए संदेश बॉक्स को पॉप अप करने के तरीके मिलेंगे।
VBA कोड के साथ कक्षों की श्रेणी प्रदर्शित करने के लिए संदेश बॉक्स पॉप अप करें
VBA कोड के साथ निर्दिष्ट सीमा के मान प्रदर्शित करने के लिए संदेश बॉक्स पॉप अप करें
VBA कोड के साथ कक्षों की श्रेणी प्रदर्शित करने के लिए संदेश बॉक्स पॉप अप करें
निम्नलिखित वीबीए कोड आपको पॉप अप संदेश बॉक्स में आपके द्वारा चुने गए रेंज स्कोप को प्रदर्शित करने में मदद करता है। कृपया निम्नानुसार करें.
1. वर्कशीट में सेल्स की रेंज चुनने के बाद दबाएँ ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी करके मॉड्यूल विंडो में पेस्ट करें।
वीबीए कोड: कोशिकाओं की श्रेणी प्रदर्शित करने के लिए संदेश बॉक्स
Sub Test()
On Error Resume Next
MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub
3। दबाएं F5 कोड चलाने की कुंजी. फिर एक संदेश बॉक्स पॉप अप होता है जिसमें चयनित सेल का रेंज स्कोप अंदर प्रदर्शित होता है।
VBA कोड के साथ निर्दिष्ट सीमा के मान प्रदर्शित करने के लिए संदेश बॉक्स पॉप अप करें
मान लीजिए कि आपको नीचे दिखाए गए स्क्रीनशॉट के अनुसार श्रेणी A1:D13 के सभी सेल मान प्रदर्शित करने के लिए एक संदेश बॉक्स पॉप अप करने की आवश्यकता है। कृपया नीचे दिया गया VBA कोड चलाएँ।
1। दबाएँ ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी करके मॉड्यूल विंडो में पेस्ट करें।
वीबीए कोड: एक्सेल में चयनित सेल मान प्रदर्शित करने के लिए संदेश बॉक्स
Sub mesage()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xStr As String
Dim xRow As Long
Dim xCol As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For xRow = 1 To xRg.Rows.Count
For xCol = 1 To xRg.Columns.Count
xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
Next
xStr = xStr & vbCrLf
Next
MsgBox xStr, vbInformation, "Kutools for Excel"
End Sub
3। दबाएं F5 पॉप अप में कोड को चलाने की कुंजी एक्सेल के लिए कुटूल संवाद बॉक्स में, कृपया उस श्रेणी का चयन करें जिसकी आपको संदेश बॉक्स में सेल मान प्रदर्शित करने के लिए आवश्यकता है, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
फिर आपको नीचे दिखाए गए स्क्रीनशॉट के अनुसार एक संदेश बॉक्स मिलेगा, और निर्दिष्ट सीमा के सभी सेल मान संदेश बॉक्स में प्रदर्शित होंगे।
संबंधित लेख:
- Excel में निश्चित समय के बाद संदेश बॉक्स को स्वत: बंद करने के लिए संदेश बॉक्स टाइमर कैसे बनाएं?
- Excel में किसी निश्चित सेल पर क्लिक करने पर संदेश बॉक्स कैसे पॉप अप होता है?
- एक्सेल में मैसेज बॉक्स से टेक्स्ट कैसे कॉपी करें?
- एक्सेल में निर्दिष्ट वर्कशीट को सक्रिय/खोलने पर एक संदेश बॉक्स कैसे पॉप अप करें?
- यदि Excel में किसी सीमा के भीतर सेल मान बदलता है तो संदेश बॉक्स कैसे पॉप अप करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!