एक्सेल में कमांड बटन नाम को गतिशील कैसे बनाएं?
यह आलेख एक निर्दिष्ट सेल मान परिवर्तन के साथ कमांड बटन का नाम गतिशील रूप से बदलने के बारे में बात कर रहा है। उदाहरण के लिए, जब सेल A1 में मान को "परीक्षण" में बदल दिया गया है, तो एक निश्चित कमांड बटन का नाम स्वचालित रूप से "परीक्षण" में बदल जाएगा।
वीबीए कोड द्वारा सेल वैल्यू के साथ कमांड बटन नाम को गतिशील बनाएं
वीबीए कोड द्वारा सेल वैल्यू के साथ कमांड बटन नाम को गतिशील बनाएं
निम्नलिखित VBA कोड आपको वर्कशीट में निर्दिष्ट सेल मान के साथ कमांड बटन के नाम को गतिशील बनाने में मदद कर सकता है। कृपया निम्नानुसार करें.
1। क्लिक करें डेवलपर > सम्मिलित करें > कमांड बटन (एक्टिवएक्स कंट्रोल) वर्कशीट में कमांड बटन डालने के लिए। स्क्रीनशॉट देखें:
2. कमांड बटन डालने के बाद शीट टैब पर राइट क्लिक करके क्लिक करें कोड देखें नीचे दिखाए गए स्क्रीनशॉट के अनुसार राइट-क्लिक मेनू से:
3. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया नीचे दिए गए VBA कोड को कॉपी करके विंडो में पेस्ट करें।
वीबीए कोड: सेल वैल्यू के साथ कमांड बटन नाम को गतिशील बनाएं
Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xShapeRg As ShapeRange
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Me.CommandButton1.Caption = Target.Text
Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
Application.EnableEvents = False
xShapeRg.Select
Application.EnableEvents = True
Selection.Name = Target.Text
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
xStr = Target.Text
End If
End Sub
नोट: कोड में, CommandButton1 उस बटन का नाम है जिसका नाम आप गतिशील बनाना चाहते हैं, और A1 वह सेल है जिसका मान आप स्वचालित रूप से बटन नाम के लिए संदर्भित करेंगे।
4। दबाएं ऑल्ट + Q बाहर निकलने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
5. क्लिक करके डिज़ाइन मोड को बंद करें डेवलपर > डिजाइन मोड.
अब से, कमांड बटन का नाम आपके वर्कशीट में निर्दिष्ट सेल मान के साथ गतिशील रूप से बदल दिया जाएगा।
जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, जब सेल A1 का मान बदल दिया गया है, तो कमांड बटन का नाम स्वचालित रूप से उसी मान में बदल जाएगा।
संबंधित आलेख:
- एक्सेल में सक्रिय वर्कशीट को पीडीएफ फाइल के रूप में सहेजने के लिए कमांड बटन का उपयोग कैसे करें?
- एक्सेल में कमांड बटन द्वारा स्वचालित रूप से एक खाली नई पंक्ति कैसे डालें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!