بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
من اهم ادوات الاكسيل هى الليست بوكس وقد فمنا بعمل شرح الليست بوكس وايضا تعرفنا على كيفية انشاء ليست بوكس اكسل
واليوم لدينا موضوع مهم خاص بالليست بوكس
كيفية عمل ليست بوكس(List Box) يأخذ محتوياتة من ملف عمل مغلق
جأنا سؤال من احد الاصدقاء انة يريد عمل ليست بوكس ياخذ محتوياتة من ليست بوكس اخر
فقد قمنا بانشاء هذا الكود لمساعدتة فى ذلك
Private
Sub UserForm_Initialize()
Dim
ListItems As Variant, i As Integer
Dim
oWbSourc As Workbook
With Me.ListBox1
.Clear '
Application.ScreenUpdating = False
Set oWbSourc =
Workbooks.Open("C:\Users\EmadMohamedGhazi\Desktop\New folder
(3)\test.xlsm", _
False, True)
ListItems =
oWbSourc.Worksheets("Students").Range("b5:b100").Value
oWbSourc.Close False '
Set oWbSourc = Nothing
Application.ScreenUpdating = True
ListItems =
Application.WorksheetFunction.Transpose(ListItems)
For i = 1 To UBound(ListItems)
.AddItem ListItems(i)
Next i
.ListIndex = -1
End With
End
Sub