استدعاء عدة قيم بشكل عامودي في ListBox

[nicola]

السلام عليكم ورحمة الله تعالى وبركاته

تحية وتقدير لاساتذة المنتدى الاكارم

حفظهم الله 

 

عنوان الموضوع هو المشكلة التي اتمنى مساعدتكم في حلها 

والتفاصيل موجودة في المرفق 

وشكرا جزيلا لكم 

 

 

استدعاء عدة قيم بشكل عامودي في الست بوكس.rar

تم تعديل فبراير 4, 2013 بواسطه دغيدى

[رجب جاويش]

السلام عليكم

تفضل أخى

سيكون التعديل بهذا الشكل

Private Sub UserForm_Activate()
x = Sheets("Sheet1").Range("A1")
arr = Split(x, Chr(10))
For i = 0 To UBound(arr)
Me.ListBox1.AddItem arr(i)
Next
End Sub

 

استدعاء عدة قيم بشكل عامودي في الست بوكس1.rar

[nicola]

بارك الله فيك استاذ رجب جاويش

وشكرا جزيلا لك

[عبدالله باقشير]

السلام عليكم

 

فقط زيادة في الخير

 

هذا سطر واحد يحقق المطلوب

 

Me.ListBox1.List = Split(Sheet1.Range("A1"), Chr(10))
 

في امان الله

[رجب جاويش]

أستاذى الحبيب / عبد الله باقشير

دائما تعطى السهل الممتنع

نتعلم منك كل يوم الجديد والمفيد

بارك الله فيك

وجزاك الله كل خير