एक्सेल ड्रॉपडाउन सूची में चयन के आधार पर आसन्न सेल पर तुरंत कैसे जाएं?
क्या आपने कभी एक्सेल में ड्रॉप डाउन सूची में चयन के आधार पर आसन्न सेल पर जाने की कल्पना की है? उदाहरण के लिए, यहां मेरे पास सेल C1 में एक ड्रॉप डाउन सूची है जिसमें कार्यदिवस के नाम शामिल हैं, कॉलम A तारीखों की सूची है, और कॉलम B समय की सूची है। अब जब मैं ड्रॉप डाउन सूची से कार्यदिवस का नाम चुनता हूं, उदाहरण के लिए, गुरुवार, तो कर्सर B5 पर पहुंच जाता है, जो कॉलम ए में गुरुवार के निकट है। एक्सेल में, इस कार्य को हल करने के लिए कोई अंतर्निहित सुविधा नहीं है, लेकिन शक्तिशाली VBA कोड कर सकता है.
VBA द्वारा ड्रॉप डाउन सूची में मूल्य के आधार पर आसन्न सेल पर जाएं
VBA द्वारा ड्रॉप डाउन सूची में मूल्य के आधार पर आसन्न सेल पर जाएं
1. ड्रॉप डाउन सूची से वह दिन चुनें जिसे आप उपयोग करना चाहते हैं, फिर दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, नीचे दिए गए कोड को पेस्ट करें मॉड्यूल.
वीबीए: मूल्य के आधार पर आसन्न सेल पर जाएं
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
If Target.Address <> [C1].Address Then
Exit Sub
Else
JumpToCell
End If
End Sub
Sub JumpToCell()
Dim xRg, yRg As Range
Dim strAddress As String
strAddress = ""
Set yRg = Range("A2:A8")
For Each xRg In yRg
'MsgBox Cell.Value
If xRg.Value = ActiveCell.Value Then
strAddress = xRg.Address
End If
Next
If strAddress = "" Then
MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
vbInformation, "Kutools for Excel"
Exit Sub
Else
Range(strAddress).Offset(0, 1).Select
End If
End Sub
3। दबाएँ F5 कुंजी, फिर कर्सर ड्रॉप डाउन सूची में मान के आधार पर आसन्न सेल पर चला जाता है।
VBA कोड में, A2:A8 वह सूची है जिसमें ड्रॉप डाउन सूची के मानों से मेल खाने वाले मान शामिल हैं, आप इस संदर्भ को अपनी आवश्यकता के अनुसार बदल सकते हैं।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
