सेल वैल्यू के आधार पर शीट टैब का रंग कैसे बदलें?
आम तौर पर, आप एक्सेल में टैब का रंग आसानी से और जल्दी से बदल सकते हैं, लेकिन, क्या आपने कभी वर्कशीट में सेल वैल्यू के आधार पर टैब का रंग बदलने की कोशिश की है? यदि आप इस कार्य में रुचि रखते हैं, तो मैं आपके लिए एक्सेल में एक विशिष्ट सेल मान के आधार पर शीट टैब को रंगने के लिए कुछ कोड के बारे में बात करूंगा।
वीबीए कोड के साथ सेल वैल्यू के आधार पर एक शीट टैब का रंग बदलें
वीबीए कोड के साथ सेल वैल्यू के आधार पर एकाधिक शीट टैब बदलें
वीबीए कोड के साथ सेल वैल्यू के आधार पर एक शीट टैब का रंग बदलें
उदाहरण के लिए, मैं चाहता हूं कि यदि A1 में सेल मान टेक्स्ट "TRUE" है तो वर्तमान शीट टैब का रंग हरा होगा, यदि A1 में टेक्स्ट "गलत" है तो टैब का रंग लाल होगा और यदि A1 में टेक्स्ट "गलत" है तो टैब का रंग नीला होगा सेल AXNUMX में मान कोई अन्य टेक्स्ट है जैसा कि स्क्रीनशॉट में दिखाया गया है:
1. उस शीट टैब पर राइट क्लिक करें जिसका रंग आप सेल A1 में डेटा के आधार पर बदलना चाहते हैं, और फिर चुनें कोड देखें संदर्भ मेनू से
2. में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें मॉड्यूल खिड़की.
वीबीए कोड: सेल मान के आधार पर एक शीट टैब का रंग बदलें:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "False"
Me.Tab.Color = vbRed
Case "True"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
नोट: उपरोक्त कोड में, A1 वह सेल संदर्भ है जिसके आधार पर आप टैब को रंगना चाहते हैं, "यह सच है","झूठा"वे टेक्स्ट हैं जिनकी आपको आवश्यकता है, आप उन्हें अपनी आवश्यकता के अनुसार बदल सकते हैं, और आप आवश्यकतानुसार कोड में रंग बदल सकते हैं।
3. फिर इस कोड विंडो को सेव करें और बंद करें, अब, जब आप सेल A1 में "True" टेक्स्ट दर्ज करेंगे, तो वर्तमान टैब का रंग हरा हो जाएगा, और जब आप सेल A1 में "गलत" टेक्स्ट दर्ज करेंगे, तो टैब का रंग लाल हो जाएगा, और यदि सेल A1 में अन्य टेक्स्ट दर्ज किया जाता है, तो टैब का रंग स्वचालित रूप से नीला हो जाएगा।
वीबीए कोड के साथ सेल वैल्यू के आधार पर एकाधिक शीट टैब बदलें
यदि आपको सेल वैल्यू के आधार पर एकाधिक शीट टैब का रंग बदलने की आवश्यकता है, तो यहां एक कोड भी आपकी मदद कर सकता है, कृपया निम्नानुसार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, खुली हुई विंडो में, डबल क्लिक करें यह नीचे वीबीएप्रोजेक्ट अनुभाग, फिर नीचे दिए गए कोड को कॉपी करें और रिक्त स्थान पर चिपकाएँ मॉड्यूल:
वीबीए कोड: सेल वैल्यू के आधार पर एकाधिक शीट टैब बदलें:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Updateby Extendoffice 20160930
Select Case Sheets("Master").Range("A1").Value
Case "KTE"
Sheets("Sheet1").Tab.Color = vbRed
Case "KTO"
Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW"
Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub
नोट: उपरोक्त कोड में, A1 और मास्टर वह सेल और वर्कशीट है जिसके आधार पर आप टैब को रंगना चाहते हैं, Sheet1, Sheet2, Sheet3 वे कार्यपत्रक हैं जिनमें आप टैब को रंगना चाहते हैं। केटीई, केटीडब्ल्यू, KTO A1 में वे सेल मान हैं जिनके आधार पर आप टैब को रंगना चाहते हैं, आप आवश्यकतानुसार कोड में संदर्भ और रंग बदल सकते हैं।
2. फिर इस कोड विंडो को सेव करें और बंद करें, अब, जब आप मास्टर शीट के सेल A1 में KTE टेक्स्ट दर्ज करेंगे, तो शीट1 टैब लाल रंग में रंग जाएगा, जब आप सेल A1 में KTO दर्ज करेंगे, तो शीट2 हरे रंग में रंग जाएगा, और जब आप सेल A1 में KTW दर्ज करें, शीट3 नीले रंग में रंग जाएगी, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!