Combo Box مصدره أكثر من عمود

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

تستطيع ان تعرض البيانات فى Combo Box و مصدر البيانات اكثر من عمود بهذا الكود

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ComboBox1.Clear
    Dim cont As Integer
    cont = 1
    Do Until Cells(cont, 1) = ""
        ComboBox1.AddItem (Cells(cont, 1) & " | " & Cells(cont, 2))
        cont = cont + 1
    Loop
End Sub

مرفق ملف

السلام عليكم

ComboBoxFor2_01.rar

[الجزيرة]

شكراً مشرفنا العزيز هادي سالم

على هذا الابداع المتواصل

[azim2002]

بارك الله فيك هل من اممكن التوضيح ان كان مكرو

[ابو اسامة العينبوسي]

السلام عليكم

شكرا جزيلا