एकाधिक कॉलम के साथ एक सूची बॉक्स में आइटम जोड़ना

Question

मैं 2 columns के साथ सूची में आइटम कैसे जोड़ सकता हूं? यदि मैं ListBox.AddItem का उपयोग करता हूं तो यह आइटम केवल पहले कॉलम में जोड़ता है। मैं 2nd column में भी आइटम जोड़ना चाहता हूं। धन्यवाद!

Answer 1

List संपत्ति का उपयोग करके।

ListBox1.AddItem "foo" 
ListBox1.List(ListBox1.ListCount - 1, 1) = "bar" 

Answer 2

चयन propety

पंक्ति स्रोत प्रकार => मूल्य सूची

कोड:

ListbName.ColumnCount = 2

ListbName.AddItem "मान स्तम्भ 1; मान कॉलम 2 "

Answer 3

एक और जिस तरह से यह प्राप्त करने के लिए नहीं है: -

Private Sub UserForm_Initialize() 
Dim list As Object 
Set list = UserForm1.Controls.Add("Forms.ListBox.1", "hello", True) 
With list 
    .Top = 30 
    .Left = 30 
    .Width = 200 
    .Height = 340 
    .ColumnHeads = True 
    .ColumnCount = 2 
    .ColumnWidths = "100;100" 
    .MultiSelect = fmMultiSelectExtended 
    .RowSource = "Sheet1!C4:D25" 
End With End Sub 

यहाँ, मैं रेंज सी 4 का उपयोग कर रहा: स्तंभों के लिए डेटा के स्रोत के रूप में D25। इसके परिणामस्वरूप कॉलम दोनों मूल्यों के साथ आबादी होंगे।

गुण स्वयं स्पष्टीकरणपूर्ण हैं। आप UserForm में ListBox ड्राइंग करके और विकल्प मानों के साथ खेलने के लिए "गुण विंडो (F4)" का उपयोग कर अन्य विकल्पों का पता लगा सकते हैं।