एक्सेल में एकाधिक वर्कशीट में ड्रॉप-डाउन सूचियों को कैसे सिंक्रनाइज़ करें?
मान लीजिए कि आपके पास किसी कार्यपुस्तिका में कई कार्यपत्रकों पर ड्रॉप-डाउन सूचियां हैं जिनमें बिल्कुल समान ड्रॉप-डाउन आइटम हैं। अब आप सभी कार्यपत्रकों में ड्रॉप-डाउन सूचियों को सिंक्रनाइज़ करना चाहते हैं ताकि एक बार जब आप एक कार्यपत्रक में ड्रॉप-डाउन सूची से किसी आइटम का चयन कर लें, तो अन्य कार्यपत्रकों में ड्रॉप-डाउन सूचियां उसी चयन के साथ स्वचालित रूप से सिंक्रनाइज़ हो जाएं। यह आलेख इस समस्या को हल करने में आपकी सहायता के लिए एक VBA कोड प्रदान करता है।
VBA कोड के साथ एकाधिक कार्यपत्रकों में ड्रॉप-डाउन सूचियों को सिंक्रनाइज़ करें
VBA कोड के साथ एकाधिक कार्यपत्रकों में ड्रॉप-डाउन सूचियों को सिंक्रनाइज़ करें
उदाहरण के लिए, ड्रॉप-डाउन सूचियाँ नामित पाँच कार्यपत्रकों में हैं शीट1, शीट2, ... शीट5, शीट1 में ड्रॉप-डाउन चयन के अनुसार अन्य कार्यपत्रकों में ड्रॉप-डाउन सूचियों को सिंक्रनाइज़ करने के लिए, कृपया इसे पूरा करने के लिए निम्नलिखित VBA कोड लागू करें।
1. शीट1 खोलें, शीट टैब पर राइट क्लिक करें और चुनें कोड देखें राइट-क्लिक मेनू से
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो में निम्नलिखित VBA कोड पेस्ट करें शीट1 (कोड) खिड़की.
वीबीए कोड: एकाधिक कार्यपत्रकों में ड्रॉप-डाउन सूची को सिंक्रनाइज़ करें
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
Dim tSheet1 As Worksheet
Dim tRange As Range
Dim xRangeStr As String
On Error Resume Next
If Target.Count > 1 Then Exit Sub
xRangeStr = "A2:A11"
Set tRange = Intersect(Target, Range(xRangeStr))
If Not tRange Is Nothing Then
xRangeStr = tRange.Address
Application.EnableEvents = False
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
tSheet1.Range(xRangeStr).Value = Target.Value
Application.EnableEvents = True
End If
End Sub
टिप्पणियाँ:
3। दबाएं ऑल्ट + Q बंद करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
अब से, जब आप ड्रॉप-डाउन सूची से कोई आइटम चुनते हैं शीट1, निर्दिष्ट कार्यपत्रकों में ड्रॉप-डाउन सूचियाँ समान चयन के लिए स्वचालित रूप से सिंक्रनाइज़ हो जाएंगी। नीचे डेमो देखें.
डेमो: एक्सेल में एकाधिक वर्कशीट में ड्रॉप-डाउन सूचियों को सिंक्रनाइज़ करें
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!