Excel में डेटा सत्यापन ड्रॉप-डाउन सूची में डिफ़ॉल्ट मान कैसे सेट करें?
डेटा सत्यापन ड्रॉप-डाउन सूची में एक डिफ़ॉल्ट मान सेट करने से दूसरों को वर्कशीट में एक नज़र में ड्रॉप-डाउन सूची कोशिकाओं को आसानी से पहचानने में मदद मिलती है। यह आलेख विवरण में डेटा सत्यापन ड्रॉप-डाउन सूची में डिफ़ॉल्ट मान सेट करने के लिए एक वीबीए विधि प्रदान करता है।
VBA कोड के साथ डेटा सत्यापन ड्रॉप-डाउन सूची में एक डिफ़ॉल्ट मान सेट करें
VBA कोड के साथ डेटा सत्यापन ड्रॉप-डाउन सूची में एक डिफ़ॉल्ट मान सेट करें
नीचे दिए गए स्क्रीनशॉट के अनुसार, मान लीजिए कि श्रेणी B2:C7 में सभी कक्षों में ड्रॉप-डाउन सूची है, और आप एक डिफ़ॉल्ट मान सेट करना चाहते हैं (कहते हैं) - सूची में से चुनें -) उनमें से मान चुनने से पहले इन ड्रॉप-डाउन सूची में। आप निम्नलिखित VBA कोड आज़मा सकते हैं.
1. ड्रॉप-डाउन सूचियों के साथ शीट टैब पर राइट क्लिक करें, आपको एक डिफ़ॉल्ट मान सेट करने की आवश्यकता है, फिर क्लिक करें कोड देखें मेनू से।
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्नलिखित VBA कोड को कॉपी करें और कोड विंडो में पेस्ट करें।
वीबीए कोड: डेटा सत्यापन ड्रॉप-डाउन सूची में एक डिफ़ॉल्ट मान सेट करें
Sub DropDownListToDefault()
Dim xCell As Range
Dim xRg As Range
Dim xAcCell As Range
Dim xScreen As Boolean
On Error Resume Next
Set xAcCell = Application.ActiveCell
Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
If xRg Is Nothing Then
MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
Exit Sub
End If
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell.Validation.Type = 3 Then
If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
End If
Next
xAcCell.Select
Application.ScreenUpdating = xScreen
End Sub
नोट: आप VBA कोड में डिफ़ॉल्ट मान को अपनी आवश्यकतानुसार बदल सकते हैं।
6। दबाएं F5 कोड चलाने की कुंजी. जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, आप देख सकते हैं कि सभी ड्रॉप-डाउन सूची सेल में डिफ़ॉल्ट मान जोड़े गए हैं।
नोट्स:
संबंधित आलेख:
- एक्सेल ड्रॉप डाउन सूची में टाइप करते समय स्वतः पूर्ण कैसे करें?
- Excel में ड्रॉप डाउन सूची कैलेंडर कैसे बनाएं?
- एक्सेल में खोजने योग्य ड्रॉप डाउन सूची कैसे बनाएं?
- एक्सेल में एकाधिक चयनों या मानों के साथ ड्रॉप डाउन सूची कैसे बनाएं?
- एक्सेल ड्रॉप डाउन सूची में मानों का चयन करते समय अन्य कोशिकाओं को स्वचालित रूप से कैसे पॉप्युलेट करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!