الفارس محمد رجب قام بنشر ديسمبر 26, 2022 مشاركة قام بنشر ديسمبر 26, 2022 السلام عليكم ورحمة الله وبركاته اخوانى الاعزاء مرفق ملف اكسيل وهو عبارة عن ملف به فورم يتكون من list box--text box وقد استطعت عمل عناصر الليست بوكس ----والليست بوكس تاخذ عناصرها من اسماء العاملين والمطلوب هو كود يقوم ب:( عند كتابة اسم اى موظف فى التكست بوكس يتم البحث بمجرد كتابة اول حرف فى التكسن بوكس (البحث فى عناصر الليست بوكس) اسماء العاملين.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر ديسمبر 26, 2022 أفضل إجابة مشاركة قام بنشر ديسمبر 26, 2022 وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Private Sub UserForm_Initialize() Me.ListBox1.List = [liste].Value End Sub ''''''''''''''''''''''''''''''''''''''''' Private Sub TxtSearch_Change() Me.ListBox1.Clear i = 0 For Each c In Application.Index([liste], , 1) If UCase(c) Like UCase(Me.TxtSearch) & "*" Then Me.ListBox1.AddItem Me.ListBox1.List(i, 0) = c.Value i = i + 1 End If Next c End Sub اسماء العاملين.xlsm 5 رابط هذا التعليق شارك More sharing options...
الفارس محمد رجب قام بنشر ديسمبر 28, 2022 الكاتب مشاركة قام بنشر ديسمبر 28, 2022 شكرا لك اخى Mohamed Hicham وجعله الله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.