بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
اكسيل| البحث عن الصور من خلال الفورم (صور الموظفيين )
ومازلنا نتواصل معكم فى شرح كود جديد من مكتبة اكواد VBA
- واليوم سنقوم من خلال كود جديد بالبحث عن بيانات الموظف واظهارها على اليوزرفورم وايضا اظهار صورة الموظف
بطريقة سهلة وجميلة
الكود
TextBox1.Value = WorksheetFunction.VLookup(ComboBox1.Text, Range("a2:e1000"), 2, 0)
TextBox2.Value = WorksheetFunction.VLookup(ComboBox1.Text, Range("a2:e1000"), 3, 0)
TextBox3.Value = WorksheetFunction.VLookup(ComboBox1.Text, Range("a2:e1000"), 4, 0)
mypicture = WorksheetFunction.VLookup(ComboBox1.Text, Range("a2:f1000"), 5, 0)
Image1.Picture = LoadPicture(mypicture)
- لمعرفة الية عمل الكود يرجى متابعة شرح الفيديو