تصميم واجهة ادخال بيانات واضافة صورة للموظف

استخدام الاكسيل فى تصميم واجهة ادخال بيانات واضافة صورة للموظف وترحيلهم الى ورقة العمل وامكانية التعديل على البيانات وحذف البيانات بطريقة سهلة احترافية ويوجد نظام بحث عن الاسماء بمجرد كتابة اول حرف من الاسم ليقوم البرنامج بعمل تصفية للاسماء ويعرض الاسماء التى تبدأ بنفس الحرف التى تم ادخاله فى محرك البحث ومن ثم يقوم بعرض بيانات وصورة الموظف بشكل اوتوماتيكى بمجرد الضغط على الاسم
#واجهة_ادخال_بيانات_وصورة_بالاكسيل
#نموذج_ادخال_بيانات_فى_الاكسيل
رابط الجزء الاول : تصميم واجهة ادخال بيانات وصورة الموظف في شيت الاكسل
• تصميم واجهة ادخال بيان...
رابط الجزء الثاني : تصميم نافذة لعرض بيانات وصورة الموظف في الاكسل
• طريقة تصميم واجهة ادخا...
رابط الجزء الثالث : تصميم واجهة لتعديل بيانات وصورة الموظف في شيت الاكسل
• واجهة ادخال بيانات وصو...
رابط الجزء الرابع : تصميم واجهة لحذف بيانات وصورة الموظف من شيت الاكسل
• تصميم واجهة ادخال بيان...
رابط الجزء الخامس : البحث بالحروف الاولى عن اسم وصورة الموظف
• البحث بالحرف الأول عن ...

[@gaafargmaladden909]

سلمت يداك وبوركت يا استاذ على هذا الشرح الوافي والرائع من حضرتك

[@user-xh6nx2nz6u]

بارك الله فيك شرح ممتع والميزة إنك لما تكتب الكود تشرح مهمته

[@mido_egypt]

الله يجعله في ميزان حسناتك يارب

[@mabroukimohamed9975]

جزاك الله بخير و جعله في ميزان حسناتك

[@user-qi1pn7hi5g]

شكرا كثيرا على المحتوى الهادف.

[@user-wx8kx8vi8f]

شكرا لك اخي على تعبك ومجهودك

[@abushahdraghad8825]

ماشاء الله عليك ربنا يعطيك العافيه و يوفقك يا استاذ

[@nidalahmad6100]

ألف شكر على الشرح المفيد و الممتع

[@som-3aa]

والله حضرتك محترم جدا شكرا على مجهودك

[@EPL831]

رائع جداً جزاكم الله خيراً فى انتظار الدروس القادمة إن شاء اللّه

[@user-cb4vv4yw4q]

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

[@user-mn6wq9nx3p]

ممتاز استمر يا استاذ (فى انتظار الفيدو القادم)

[@IO-ml3xh]

رائع بارك الله فيك

[@nourayad8725]

دائما مبدع

[@KAMA11661]

جزاك الله عنا كل خير ممتاز جدا ممكن ترفع ملف العمل عشان نستفيد منه اكثر

[@naidemnaidem6440]

سلام عليكم استاذ المحترم ارجو منك مساعدك لعمل مقطع تصميم زر الماسح الضوئي لسحب المستندات مباشر على برنامج اكسل واكون لك ممنون والله يوافق وشكرا

[@belalmusallam]

مجهود مبااااارك... ما شاء الله ربنا يبارك في حضرتك وفي علمك... استاذي العزيز،، ازاي اقدر استفيد من الكلام ده في عمل برنامج لارشفة ملفات الموظفين... تقدر حضرتك تساعدني بالكلام ده لو تكرمت حضرتك؟

[@galalco307]

استاذ وجيه دروسك حلوة جدا وتخلي الواحد في متعة التعليم فعلا بس باقي البحث عن الاسماء والصورة ياريت تعمله الفديو بسرعه ودروس التقسيط الاربعه الفديوهات ما شرحت 2 اليست بوكس وكيف جعلت قيمة التقسيط وعدد الاقساط المتبقيه تطلع هل بكود او عملت داله ياريت فديوهات اخرى تنزل فيها طيب كمان مفروض تكون في فاتورة قبل فورم التقسيط من الفاتورة اذا اخترنا فاتورة بيع بالتقسيط تظهر بعدها فورم التقسيط اما اذا كان نقديه لا يظهر فورم التقسيط

[@belalmusallam]

مجهود عظيم استاذن الكريم .. بعد اذن حضرتك فين الاقي الكود بتاع البحث اللي حضرتك عرضته اول الدرس ربنا يكرمك

[@zekrymaldini2479]

الله ينور عل حضرتك مجهود رائع. لكن ممكن ملف العمل أو الاكواد شكراً

[@youssefzrouki8575]

TOOOOOOP

[@ningaok7778]

جزاك الله عنا كل خير ممتاذ بس ليا طلب لو تكرمت كيف اشغل ملف اكسل على الموبايل يعنى الفورم يشتغل مثل الكمبيوتر بظبط

[@awadhbinamro948]

ممتاز جدا دائما مبدع... ممكن ترفع ملف العمل عشان نستفيد اكثر

[@wagihalaskary]

بعد الانتهاء من الاجزاء المتبقية سيتم رفع الملف

[@abdelkaderbouazza1248]

@@wagihalaskary لم نستطع مجارات العمل لان بعض الامور لم تمشي معنا و شكرا

[@user-zb2ss1el5h]

درس ممتاز بارك الله فيك. ارجو ارسال لينك الشيت .

[@safiashaker3322]

تسلم إيدك والله شرحك جمييييييل .. لاحظت لما بتبحث مش بيظهر سطر العناوين داخل اليست بوكس .. وطلب أخر لو تكرمت تخصص درس للقواثم المنسدلة المتتابعة المرتبطة ببعضها بس عن طريق الكومبوبوكسات داخل فورم بال VBA وجزيل الشكر والتقدير لمجهودك الرائع

[@wagihalaskary]

حاضر

[@safiashaker3322]

ربنا يبارك فيك والله بنتعلم منك حاجات منتخيلهاش كنا

[@lolololo_me9579]

عفوا استاذ وجيه عندي سؤال هل يمكن اضافة اعمدة مختلفة وليست مرتبة ومن اكثر من شيت على الليست بوكس انا حاولت استخدم طريقة AddItem وشكرا على كل الفيديوهات التعليمية استفدت منها بارك الله فيك

[@user-kg1tz9rz9g]

سلام عليكم استاذى الفاضل عندى طلب من فضلك فين طريقه البحث عن الاسم فى الليست بوكس مع تغيير الخلفيه

[@redouanlkhaloufi5773]

جزاك الله خيرا يا أخي. بس عندي سؤال كيف يمكن وضع خانة خاصة بالسنوات. يعني اختار سنة معينة و أضيف فيها البيانات. تم أختار سنة اخرى و أضيف فيها البيانات

[@user-wesam77]

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

[@wagihalaskary]

لا

[@kaddouraouachria5768]

لو حذفت الصورة من مثلا في c هل تحذف من الفورم كمان أو كيف تحفظ في الفورم

[@user-se5ol9dd2i]

بارك الله بكم اخي الكريم لو سمحت من خلال متابعتي للفيديو اعلاه ارجو منك ان تضع شرط لترحيل الصورة ( بمعنى لا ترحل البيانات الا اذا حملت الصورة)

[@meguenifethi6634]

شكرا على المعلومات القيمة ممكن اخي تحميل الملف

[@alati33]

شرح مميز ماشاء الله ممكن شرح طريقة اضافة ملف PDF

[@78weee]

ممكن رابط الملف وجزاك الله خير

[@abdelkaderbouazza1248]

ارجة الافادة وشكرا لانني متوقف و لماستطع الاستمرار

[@wagihalaskary]

برجاء التأكد من اسم الشيت هل اسمه ورقة ١ او اسمه sheet1 ولا انت مسميه اسم تانى خالص

[@abdelkaderbouazza1248]

سيد وجيه شكرا على التوجيه لق ابدلت sheet بكلمة feuil و عملت جيدا شكر ثاني

[@galalco307]

لو سمحت استاذ وجيه اضف كود للموظف قبل الاسم حاولت اعمل بس ماعرفت خالص والمشكله في ترتيب اليست بوكس وLabal6 الصورة والبحث بيكون في العمود الثاني مالذي اغيره في تكست بوكس البحث وليست بوكس البحث فضلا توضح لي او اعمله فديو لو ممكن وشكرا

[@gafestreasagafestr5294]

فيديوهاتك حلوة لكن بوتن الحزف والتعديل مع اشتغلتو

[@wagihalaskary]

لا موجود في الفيديو اللى بعده

[@gafestreasagafestr5294]

@@wagihalaskary تمام شكراً جزيلاً

[@galalco307]

كود التعديل تمام كود البحث باقي

[@RkSoft-rj4gq]

هل يمكن يكون كل موظف ادخله يأخذ شيت جديد . يعني اسم الشيت يصبح بإسم الموظف

[@wagihalaskary]

طبعا ممكن

[@RkSoft-rj4gq]

@@wagihalaskary اعملنا حلقة عنها pliiiiz

[@RkSoft-rj4gq]

مع امكانية البحث عن الموظف بالحروف الاولى يعني ( البحث عن الشيتات )

[@abdelkaderbouazza1248]

من فضلك لم تعمل معي لا ادري لماذا Private Sub CommandButton1_Click() Dim lrw lrw = sheet1.Cells(Rows.Count, 1).End(xlUp).Row هده العبارة تكتب باللون الاصفر lrw = lrw + 1 sheet1.Cells(lrw, 1) = TextBox1.Text sheet1.Cells(lrw, 2) = TextBox1.Text sheet1.Cells(lrw, 3) = TextBox2.Text sheet1.Cells(lrw, 4) = TextBox4.Text sheet1.Cells(lrw, 5) = TextBox5.Text End Sub

[@alaaalafifi5643]

لو سمحت عندي سؤال عندي شيت اكسل. من عده صفحات تحتوي جميعها نفس الاعمده لعده فروع وتحتوي كالتالي اسم العميل. اسم ثاني للعميل صله القرابه لقب العميل هاتف العميل 1 هاتف العميل 2 هاتف العميل 3 اسم الفرع رمز الفرع رقم العميل الانطباع العام عنوان العميل اريد عمل بحث عن رقم الهاتف بجميع الشيتات سواء كان رقم هاتف العميل 1او 2او 3 و عمل بحث بجزء من الاسم بجميع الشيتات و يظهر باليست بوكس حاولت عن طريق جميع الفيديوهات لك الموجوده على القناه بارك الله فيك و لكنني لم استطيع ممكن فيديو توضيحي لو سمحت

[@tahahsen1952]

if i. show =-1then S=i. selectteditems(1) لماذا نكتب-١ وهنا نكتب (١)

[@user-ub3dt2qi2j]

ممكن تتواصل معي واتساب لطفا استاذ وجيه ضروري

[@abdelkaderbouazza1248]

و الله سيد وجيه انا حائر لماذا لم تعمل مع رغم اني كاتبها صح اين الخلل Private Sub CommandButton1_Click() Dim lrw lrw = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row lrw = lrw + 1 Sheet1.Cells(lrw, 1) = TextBox1.Text Sheet1.Cells(lrw, 2) = TextBox2.Text Sheet1.Cells(lrw, 3) = TextBox3.Text Sheet1.Cells(lrw, 4) = TextBox4.Text

[@wagihalaskary]

اسم الشيت عندك إيه ؟

[@abdelkaderbouazza1248]

اسمه بالفرنسية feuil1

[@abdelkaderbouazza1248]

في ورقة الاكسل

[@abdelkaderbouazza1248]

و في vba كذلك

[@wagihalaskary]

يبقى لازم تعدل الكود وتمسح كلمة sheet1 وتحط مكانها اسم الشيت اللى انت كاتبه ده

[@abdelkaderbouazza1248]

لا استطيع ترحيل البيانات لماذا و اين الخطا Private Sub CommandButton2_Click() Dim x As Long Dim z As Worksheet Set z = Sheets("sheet1") ................................ هذه العبارة مكتوبة بالاصفر x = z.Range("A" & Rows.Count).End(xlUp).Row With z .Cells(x + 1, "A").Value = TextBox1.Text .Cells(x + 1, "B").Value = TextBox2.Text .Cells(x + 1, "C").Value = TextBox3.Text .Cells(x + 1, "D").Value = TextBox4.Text .Cells(x + 1, "E").Value = TextBox5.Text End With Dim i As String i = TextBox1.Text FileCopy fpath, "Bibliothèques\Images\" & i & ".JPG" Me.TextBox1.Text = "" TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" End Sub