Excel में दो सूची बक्सों के बीच आइटमों को शीघ्रता से कैसे स्थानांतरित करें?
क्या आपने कभी नीचे दिखाए गए स्क्रीनशॉट के अनुसार आइटम को एक सूची बॉक्स से दूसरे सूची बॉक्स में ले जाने का प्रयास किया है? यहां मैं एक्सेल में इस ऑपरेशन के बारे में बात करूंगा।
आइटमों को सूची बक्सों के बीच ले जाएँ
आइटमों को सूची बक्सों के बीच ले जाएँ
ऐसा कोई अंतर्निहित फ़ंक्शन नहीं है जो आपको काम पूरा करने में मदद कर सके, लेकिन मेरे पास एक वीबीए कोड है जो एक उपकार कर सकता है।
1. सबसे पहले, आपको डेटा की एक सूची बनानी होगी जिसे एक नई शीट में सूची बॉक्स में आइटम के रूप में दिखाया जाएगा जिसे कहा जाता है व्यवस्थापक_सूचियाँ.
2. फिर इन डेटा को सेलेक्ट करें और पर जाएं नाम उन्हें एक नाम देने के लिए बॉक्स सामान की सूची. स्क्रीनशॉट देखें:
3. फिर एक शीट में जिसमें दो सूची बॉक्स होंगे, क्लिक करें डेवलपर > सम्मिलित करें > सूची बॉक्स (सक्रिय एक्स नियंत्रण), और दो सूची बॉक्स बनाएं। स्क्रीनशॉट देखें:
अगर डेवलपर टैब में आपका रिबन छिपा हुआ है, Excel 2007/2010/2013 रिबन में डेवलपर टैब कैसे दिखाएं/प्रदर्शित करें? यह लेख आपको बताएगा कि इसे कैसे दिखाना है।
4। तब दबायें डेवलपर > सम्मिलित करें > कमांड बटन (सक्रिय एक्स नियंत्रण), और दो सूची बक्सों के बीच चार बटन बनाएं। स्क्रीनशॉट देखें:
अब चार कमांड बटन को नए नाम से नाम बदलना है।
5. पहला कमांड बटन चुनें, क्लिक करें गुण, और इसमें गुण फलक, एक नाम दें बीटीएन_मूवऑलराइट इसे टाइप करें और टाइप करें >> बगल के टेक्स्टबॉक्स में शीर्षक. स्क्रीनशॉट देखें:
6. नीचे दिए गए नामों के साथ अंतिम तीन कमांड बटन का नाम बदलने के लिए चरण 5 को दोहराएं, और कैप्शन में अलग तीर भी टाइप करें। स्क्रीनशॉट देखें:
BTN_MoveSelectedRight
BTN_moveAllLeft
BTN_MoveSelectedLeft
7. शीट नाम पर राइट क्लिक करें जिसमें सूची बॉक्स और कमांड बटन हैं, और चयन करें कोड देखें संदर्भ मेनू से. स्क्रीनशॉट देखें:
8. मैक्रो कोड के नीचे कॉपी और पेस्ट करें मॉड्यूल स्क्रिप्ट फिर कोड को सेव करें और बंद करें अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की। स्क्रीनशॉट देखें
वीबीए: आइटम को दो सूची बक्सों के बीच ले जाएं
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20171117
Dim xCell As Range
Dim xRg As Range
Set xRg = Sheets("Admin_Lists").Range("ItemList")
Me.ListBox1.Clear
Me.ListBox2.Clear
With Me.ListBox1
.LinkedCell = ""
.ListFillRange = ""
For Each xCell In xRg
If xCell <> "" Then
.AddItem xCell.Value
End If
Next xCell
End With
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub BTN_MoveSelectedLeft_Click()
Call moveSigle(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_MoveSelectedRight_Click()
Call moveSigle(Me.ListBox1, Me.ListBox2)
End Sub
Private Sub BTN_moveAllLeft_Click()
Call moveAll(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_moveAllRight_Click()
Call moveAll(Me.ListBox1, Me.ListBox2)
End Sub
Sub moveAll(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
xListBox2.AddItem xListBox1.List(I)
Next I
xListBox1.Clear
End Sub
Sub moveSigle(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
If I = xListBox1.ListCount Then Exit Sub
If xListBox1.Selected(I) = True Then
xListBox2.AddItem xListBox1.List(I)
xListBox1.RemoveItem I
I = I - 1
End If
Next
End Sub
9. फिर दूसरी शीट पर जाएं और फिर उस शीट पर वापस जाएं जिसमें सूची बॉक्स हैं, अब आप देख सकते हैं कि सूची डेटा पहले एक सूची बॉक्स में सूचीबद्ध किया गया है। और आइटम को दो सूची बक्सों के बीच ले जाने के लिए कमांड बटन पर क्लिक करें।
चयन ले जाएँ
सभी ले जाएँ
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!