सूची बॉक्स: तालिका में आसन्न कॉलम से एक सूची, वापसी आइटम प्रदर्शित करें

Question

हमारे पास एक स्प्रेडशीट है जिसे हम बिलिंग जानकारी के साथ भरते हैं और फिर FTP के माध्यम से एक होस्ट पर अपलोड करते हैं। पहले कॉलम के लिए ग्राहक के खाते की संख्या की आवश्यकता होती है। मैं जो करना चाहता हूं वह ग्राहक नाम एज़ेड की एक लटकती सूची प्रदान करता है। (मेरे पास नामों और संख्याओं का एक 2-स्तंभ तालिका है)। जब वे एक नाम चुनते हैं तो मैं ग्राहक संख्या को सेल में रखना चाहता हूं और नाम नहीं।

ड्रॉप डाउन: Aname Bname Cname। जब चयनित रिटर्न और खाता संख्या 111111,222222,333333 के साथ सेल पॉपुलेट करें। मैं इस आसान को vlookup का उपयोग करके पर्याप्त कर सकता हूं, लेकिन इसके लिए एक अतिरिक्त कॉलम की आवश्यकता होती है। मुझे उस पहले कॉलम से डबल-ड्यूटी प्राप्त करने की आवश्यकता है।

कोई विचार?

Answer 1

निम्नलिखित स्क्रीनशॉट पर विचार करें:

जब कोई ग्राहक नाम चुना जाता है, तो निम्नलिखित मैक्रो स्तंभ डी और ई में लुकअप तालिका से ग्राहक संख्या के साथ नाम को तुरंत बदल देता है। ड्रॉपडाउन ग्राहकों की सूची को बरकरार रखता है। स्क्रीनशॉट में, ग्राहक C को पहले चुना गया था और मैक्रो ने नंबर के साथ नाम बदल दिया था। अब एक अलग ग्राहक का चयन करने के लिए ड्रॉपडाउन का उपयोग किया जा सकता है।

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LookupTable As Range
Set LookupTable = ThisWorkbook.Worksheets("Sheet1").Range("D2:E100")
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Application.EnableEvents = False
        Target = Application.WorksheetFunction.VLookup(Target.Value, LookupTable, 2, False)
        Application.EnableEvents = True
    End If
End Sub

शीट टैब पर राइट-क्लिक करें, "व्यू कोड" चुनें और कोड को कोड विंडो में पेस्ट करें। अपनी कार्यपुस्तिका के अनुरूप संदर्भ समायोजित करें।

याद रखें कि फ़ाइल को मैक्रो-सक्षम कार्यपुस्तिका के रूप में सहेजना है।