يمكنك الانتساب للقناة للحصول على ملفات الاكسل th-cam.com/channels/6HYHWSz54U500KsyZfte0A.htmljoin و للحصول على كورس فى برمجة الاكسل من خلال موقع Boost ex.net boost-ex.net/courses-vba-excel قناة كود7 للبرمجيات المتخصصة فى شروحات الاكسس www.youtube.com/@code7programming
ماشاءالله تبارك الرحمن فنان ، ربي يرزقك من خيراته ونعيمة 👍، سؤال استاذ حسن بعد التصميم وتنفيذ ونجاح البرنامج ؟ هل بالامكان أستخدامة على الجهاز اللوحي مثل التابلت أو الايباد او حتى جهاز الموبايل ؟؟ وشكرا لك 🫡على نشر العلم وأدعو الله أن يجعله في ميزان حسناتك 🤲
و عليكم السلام ورحمه الله اكتب السطر البرمجى التالى MainSheet.Range("H12").value="" طبعا H12 تعبر عن الخلية التى بها كلمة المرور و يُكتب هذا الكود فى نهاية كود الدخول
الله يوفقك ايها المحترم.. لو سمحت اريد اضافه List (مثل الذي موجوده في يوزرفورم) ولاكن على قاعدة البيانات التي صممتها حضرتك كيف؟؟؟ واتمنى لكم دوام الصحه والعافيه
@@alhassanabuelkhair اريد من حضرتك تعمل محاضره (انشاء عقد بيع،ايجار) في يوزر فورم وطريقه طباعه مع وجود شعار وعدد وتاريخ يتغير اوتوماتك وان كان هنالك احراجات فهذا حقك ومشكور منك مقدما
السلام عليكم، ما شاء الله عليك يا استاذ برنامج في المستوى باؤك الله فيك، لكن هناك ملاحظات: عند كتابة الرقم السري يكون ظتهرا كيف يكتب بالرموز للمحافظة على السرية، اضافة الى تعديلات اخرى مثلا في حالة عدم ملأ كل البيانات التي على النموذج و الضغط على اضافة او تعديل من المفروض يظهر رسالة يمنع التغيير لان المعلومات فارقة، اضافة الى ملاحظة اخرى في حالة البحث عن اسم غير موجود يظهر رسالة.
و عليكم السلام ورحمه الله وبركاته شكراً جزيلاً لملاحظاتك القيمة بالنسبة لأول ملاحظة لا يمكن عمل تشفير للارقام لانها داخل خلية أما المشكلة الثانية و الثالثة يمكن حلها من خلال هذا الفيديو th-cam.com/video/7mCxum1clFg/w-d-xo.html تحياتى لحضرتك
السلام عليكم اخي العزيز اولا بارك الله فيك ممكن تعمل تعديل على زر الاضافه بحيث لايسمح بادخال نفس الاسم مره ثانيه وكذلك زر البحث عند البحث عن اسم غير موجود تظر رساله ان الاسم غير موجود وشكرا لك
السلام عليكم استاذ اشكرك كثيرا علئ هذا الشرح لكن عندي مشكله عندما اكتب البيانات واضغط اضافة تجيني رسالة تم ترحيل البيانات لكن عندما اذهب الئ ورقة البيانات لا اجد شي بالجدول ❤
السلام عليكم انا عندي قاعدة البيانات اكسل على فيجول بيزك هو برنامج يشتغل على اكسل فقط اريد احولة الى برنامج تنصيب بدون برنامج اكسل اريد يشتغل برنامج بدون اكسل
السلام عليكم..اخي الكريم طيب انا عملت مثل ما موجود في الفيديو وكلشي تمام..بس اذا بدي اطبع البيانات الموجودة في شيت٣ كيف اضيف كود وانا قفلت كلشي من شريط البيانات وعلامات تبويب اش اعمل..تحياتي الك ❤
و عليكم السلام ورحمه الله يمكن تطبيق ذلك من خلال الدخول لمحرر الاكواد وايقاف الكود الخاص بالفتح ثم إنشاء زر للطباعة و بعد ذلك إعادة تشغيل اكواد الفتح مرة أخرى
@@alhassanabuelkhair شكرا لقد عملت البرنامج واشتغل معاي تمام لشكرا لشرحك المميز ربي يوفقك ان شاء الله..لكن اذا اردت ان اضيف طباعة للبيانات في شيت٣ في النموذج٢ كيف اعمل هذا وان مو ظاهر معاي شريط الادوات والشيتات يعني اذا كنت اعمل تعديل كيف..تحياتي الك اخي الفاضل
العفو بارك الله فيكم يمكن تطبيق ذلك من خلال الدخول لمحرر الاكواد وايقاف الكود الخاص بالفتح ثم إنشاء زر للطباعة و بعد ذلك إعادة تشغيل اكواد الفتح مرة أخرى
لدي مشروع قاعدة بيان على الاكسل تتكون من أربع شيتات :الأول لإدخال المعلومات عن الشخص رقم 1 الشيت الثاني يهم الأبناء كل واحد باسمه تاريخ ازدياد المستودع الدراسي ووو الشيت الثالث فيه معلومات عن الزوجة او الزوجات ان كان له أكثر من زوجة كل واحدة باسمها الشخصي و لقبها و تاريخ ازدياد ها اما الشيت الرابع فهو قاعدة البيانات التي تجمع كل هذا. المشكل عند الترحيل كيف سيم التعرف على صف الشخص المعني لإدخال البيانات و كذلك الحذف او التعديل كيف سيتم
بارك الله فيك أخي الكريم ،، أنا عملت مثل ما بتقول بالحرف في المرحلة الثانية وعند الإضافة تجيني رسالة "تم ترحيل البيانات بنجاح" لكن لا يرحل البيانات ولا يمسحها ، وأراجع الكود لكن ما في أي خطأ و لا أي أمر يتحول باللون الأحمر دلاله على خطئه ،،، لا أدري ما المشكلة ؟ شكرا . بالمناسبة عندي أربع أوراق الترحيل من 2 إلى 4 وليس 3 فقط هذا التغيير
@@alhassanabuelkhair تمام كررتها وفتحت ملف جديد ،،، ولم احفظه اولا بالماكرو وبعدين فتحت ملف ثالث وتلافيت الأخطاء والحمد لله الآن زبط 100% شكرا أخي الكريم
أخوي حسن فيه سؤال يهمني ، لو كانت البيانات بأدخلها معادلة بحث في ورقة مختلفة هل عندما أضغط على إضافة يضيف الكود ام يضيف البيان النهائي ،،،، إذا كان يضيف الكود لا بد يكون البحث في مكان غير اضافة البيانات ،،، شكرا
لاسف في زر البحث دائما يعطيني رسالة خطأ هنا : Private Sub CommandButton2_Click() Feuil3.Range("J1").Value = Feuil2.Range("E3").Value Dim Lsrch, Sr1, Sr2, Lf As Integer Lsrch = Feuil3.Range("K1").Value For Sr1 = 1 To 4 For Sr2 = 5 To 8 For Lf = 5 To 11 Step 2 Feuil2.Cells(Lf, "D").Value = Feuil3.Cells(Lsrch, Sr1).Value Feuil2.Cells(Lf, "G").Value = Feuil3.Cells(Lsrch, Sr2).Value Sr1 = Sr1 + 1 Sr2 = Sr2 + 1 Next Lf Next Next End Sub
![[MV] A leap of faith...ความเชื่อใจครั้งสุดท้าย (From "Petrichor the series")](http://i.ytimg.com/vi/U1piZH2CNXA/mqdefault.jpg)
يمكنك الانتساب للقناة للحصول على ملفات الاكسل
th-cam.com/channels/6HYHWSz54U500KsyZfte0A.htmljoin
و للحصول على كورس فى برمجة الاكسل من خلال موقع Boost ex.net
boost-ex.net/courses-vba-excel
قناة كود7 للبرمجيات المتخصصة فى شروحات الاكسس
www.youtube.com/@code7programming
ربنا يبارك فى عمرك ويحفظك من كل سوء يارب
الله يعطيك العافية بارك الله فيكم
يارك ألله فيك يا استاذ حسن كتر خيرك
ربنا يزيدك من نعمه
كنت محتاج شيت الاكسيل اللي حضرتك تشرح من خلاله الفيديو ده ☝️
أستاذ رائع، أنت ممتاز و أعانك الله على نشر العلم.
بارك الله فيكم و جزاكم الله كل خير
يعطيك العافية استاذ كيف اعمل زر في جدول البيانات للرجوع للقائمة الرئيسيه
الله يعطيك العافية
اكتب فى الزر الكود التالى
Sheet1.Activate
Sheet1.Range("A1").select
@alhassanabuelkhair كيف انتسب للقناه ما بفتح الرابط
ماشاءالله تبارك الرحمن
فنان ، ربي يرزقك من خيراته ونعيمة 👍،
سؤال استاذ حسن
بعد التصميم وتنفيذ ونجاح البرنامج ؟ هل بالامكان أستخدامة على الجهاز اللوحي مثل التابلت أو الايباد او حتى جهاز الموبايل ؟؟
وشكرا لك 🫡على نشر العلم وأدعو الله أن يجعله في ميزان حسناتك 🤲
شكراً جزيلاً لحضرتك بارك الله فيكم
يمكن استخدامه على الاجهزة اللوحية فقط لكن لا يمكن استخدامه على الموبايل
بالتوفيق استاذ الحسن ودايما يارب من نجاح لنجاح👍
شكراً جزيلاً لك استاذ محمد المصرى
ربي يكرمك خيرآ
بارك الله فيكم
@@alhassanabuelkhair اخي ايهما افضل الاكسس او الاكسل ؟؟
السلام عليكم ، كيف يمكنني جعل خلية كلمة المرور تمحى مباشرة بعد الضغط على زر الدخول
و عليكم السلام ورحمه الله
اكتب السطر البرمجى التالى
MainSheet.Range("H12").value=""
طبعا H12 تعبر عن الخلية التى بها كلمة المرور
و يُكتب هذا الكود فى نهاية كود الدخول
احسنت وفقك الله
شكراً جزيلاً لحضرتك
السلام عليكم بالتوفيق
وعليكم السلام
شكراً جزيلاً لك
لكن استاذ اين اجد الملفات sheet1 w sheet2 التي اخفيتها ؟!
من خلال محرر الأكواد
الله يوفقك ايها المحترم..
لو سمحت اريد اضافه List (مثل الذي موجوده في يوزرفورم) ولاكن على قاعدة البيانات التي صممتها حضرتك كيف؟؟؟
واتمنى لكم دوام الصحه والعافيه
بارك الله فيكم
تقصد تريد عمل قائمة منسدلة فى الشيت
@@alhassanabuelkhair اريد من حضرتك تعمل محاضره (انشاء عقد بيع،ايجار) في يوزر فورم وطريقه طباعه مع وجود شعار وعدد وتاريخ يتغير اوتوماتك
وان كان هنالك احراجات فهذا حقك ومشكور منك مقدما
السلام عليكم، ما شاء الله عليك يا استاذ برنامج في المستوى باؤك الله فيك، لكن هناك ملاحظات: عند كتابة الرقم السري يكون ظتهرا كيف يكتب بالرموز للمحافظة على السرية، اضافة الى تعديلات اخرى مثلا في حالة عدم ملأ كل البيانات التي على النموذج و الضغط على اضافة او تعديل من المفروض يظهر رسالة يمنع التغيير لان المعلومات فارقة، اضافة الى ملاحظة اخرى في حالة البحث عن اسم غير موجود يظهر رسالة.
و عليكم السلام ورحمه الله وبركاته
شكراً جزيلاً لملاحظاتك القيمة
بالنسبة لأول ملاحظة لا يمكن عمل تشفير للارقام لانها داخل خلية
أما المشكلة الثانية و الثالثة يمكن حلها من خلال هذا الفيديو
th-cam.com/video/7mCxum1clFg/w-d-xo.html
تحياتى لحضرتك
@@alhassanabuelkhair السلام عليكم، شكرا على الرد و التوضيح، بارك الله فيك و في مجهوداتك ان شاء الله في ميزان حسناتك و حسنات والديك
انت استاذ الاساتذه اجمع 🫡🫡🫡🫡🫡
شكرا جزيلا لحضرتك 🌹🌹🙏
تحياتى لحضرتك 🌹
سلام عليكم اني جاي اكتب كود لبحث لاكن مجاي يصير عندي للعلم انهو عده اكثر من مره لان جاي يشري بلون الاصفر علي احد الاسطر الي بدايتها Sheet2
و عليكم السلام ورحمه الله
هل لغة الاكسل لديك عربية أم انجليزية
بعد ما عملت كود شيت الرئيسية اختفت اوراق العمل وبقت بس شيت البيانات كل تعبي راح اكو حل لطفا ؟
لحل هذه المشكلة ادخل الى محرر الاكواد من خلال الاختصار Alt+F11
ثم كتابة الكود كما بالفيديو تماماً
اضف لنا على الواجهة ارتباط تشعبي ملفات لكل اسم
إن شاء الله تعالى فى فيديو قادم
🌹💝
شكراً جزيلاً لحضرتك
حضرتك من اسبوع نشرت فيديو كورس برمجة الاكسيل هل هذا الفيديو من ضمن القرص
هذا الفيديو استاذى الفاضل ليس ضمن الكورس
الكورس متاح للسادة الاعضاء المنتسبين للقناة
السلام عليكم اخي العزيز اولا بارك الله فيك
ممكن تعمل تعديل على زر الاضافه بحيث لايسمح بادخال نفس الاسم مره ثانيه
وكذلك زر البحث عند البحث عن اسم غير موجود تظر رساله ان الاسم غير موجود وشكرا لك
ازاى أظهر الشيتات تانى و الاكواد لو عاوزة اعمل تعديل
افتح الملف و ادخل الى محرر الاكواد
بالضغط على اختصار alt+f11
و من ثم ايقاف اكواد الموجودة فى حدث الفتح
استاذنا الفاضل عملت كل شي ، لكن محرك البحث لا يعمل ايه المشكله ،
محرك البحث لا يعمل ؟!
هل هناك مشكلة فى دالة البحث Match
لايوجد اي مشكله نفس الخطوات
السلام عليكم
كيف اقدر الغي اخفاء الأوامر والتبويبات مشان اقدر اعدل في البرنامج اظيف ازرار واكواد
و عليكم السلام ورحمه الله
ادخل الى محرر الاكواد من خلال اختصار Alt+F11
ثم ادخل الى حدث الفتح و قم بإلغاء و حذف السطور البرمجية الخاصة باخفاء الاوامر
السلام عليكم استاذ اشكرك كثيرا علئ هذا الشرح لكن عندي مشكله عندما اكتب البيانات واضغط اضافة تجيني رسالة تم ترحيل البيانات لكن عندما اذهب الئ ورقة البيانات لا اجد شي بالجدول ❤
السبب هو اسم (sheet) مكتوب عندك بالعربي
فى حاجه ممكن فى ال textbox يخليه يجمع تلاقى من غير ما ادوس على اي button
اه ممكن لكن حسب الكود
@@alhassanabuelkhair ازاى او يتعمل ازاى ؟
يبدا الحفظ من السطر السابع
تأكد من خلو العمود A أو بالتحديد العمود المذكور فى المتغير من أى بيانات
❤❤❤❤❤🎉🎉🎉🎉
شكرا جزيلا لك 🌹🌹🙏🙏
السلام عليكم ورحمة الله وبركاته
عملت ثلاثة يوزرفورم واردت حذف واحدة فما استطعت حذفه
فكيف تحذف اليوزرفورم ؟
و عليكم السلام ورحمه الله
قم بالوقوف على الفورم و من ثم اضغط كليك يمين ثم اختر Remove
السلام عليكم
انا عندي قاعدة البيانات اكسل على فيجول بيزك هو برنامج يشتغل على اكسل فقط اريد احولة الى برنامج تنصيب بدون برنامج اكسل اريد يشتغل برنامج بدون اكسل
و عليكم السلام ورحمه الله
يمكنك تحويل الاكسل إلى ملف تنفيذى قابل للتثبيت
@@alhassanabuelkhair ذا اسوي ملف تنفيذي اكدر اشغل برنامج بدون اكسل الان اريد اسوي برنامج وانصبة على الاجهزة اخرى مايتطلب مني اكواد
ممكن رابط تحميل الملف
تحميل ملفات الاكسل متاحة للسادة المنتسبين بالقناة المستوى داعم ذاهبى
th-cam.com/channels/6HYHWSz54U500KsyZfte0A.htmljoin
السلام عليكم..اخي الكريم طيب انا عملت مثل ما موجود في الفيديو وكلشي تمام..بس اذا بدي اطبع البيانات الموجودة في شيت٣ كيف اضيف كود وانا قفلت كلشي من شريط البيانات وعلامات تبويب اش اعمل..تحياتي الك ❤
و عليكم السلام ورحمه الله
يمكن تطبيق ذلك من خلال الدخول لمحرر الاكواد وايقاف الكود الخاص بالفتح ثم إنشاء زر للطباعة و بعد ذلك إعادة تشغيل اكواد الفتح مرة أخرى
@@alhassanabuelkhair كود الفتح الي موجود workboos
نعم
كيف اكتب كود البحث في العمود k كان غير واضح. تحياتي
ما الذى غير واضح معكم
@@alhassanabuelkhair شكرا لقد عملت البرنامج واشتغل معاي تمام لشكرا لشرحك المميز ربي يوفقك ان شاء الله..لكن اذا اردت ان اضيف طباعة للبيانات في شيت٣ في النموذج٢ كيف اعمل هذا وان مو ظاهر معاي شريط الادوات والشيتات يعني اذا كنت اعمل تعديل كيف..تحياتي الك اخي الفاضل
العفو بارك الله فيكم
يمكن تطبيق ذلك من خلال الدخول لمحرر الاكواد وايقاف الكود الخاص بالفتح ثم إنشاء زر للطباعة و بعد ذلك إعادة تشغيل اكواد الفتح مرة أخرى
كيف انتسب وأنا من ليبيا ولست من مصر أستاذ الحسن ؟؟
من خلال هذا الرابط
th-cam.com/channels/6HYHWSz54U500KsyZfte0A.htmljoin
@@alhassanabuelkhair
الرابط لا يفتح أستاذ الحسن
حضرتك من اى دولة
لأن هناك بعض الدول غير متاح فيها الانتساب لقنوات اليوتيوب
@@alhassanabuelkhair
من ليبيا أستاذ الحسن
كيف يتم تحميل الفيديو أستاذ الحسن ؟؟
اى فيديو تقصد
لدي مشروع قاعدة بيان على الاكسل تتكون من أربع شيتات :الأول لإدخال المعلومات عن الشخص رقم 1 الشيت الثاني يهم الأبناء كل واحد باسمه تاريخ ازدياد المستودع الدراسي ووو الشيت الثالث فيه معلومات عن الزوجة او الزوجات ان كان له أكثر من زوجة كل واحدة باسمها الشخصي و لقبها و تاريخ ازدياد ها اما الشيت الرابع فهو قاعدة البيانات التي تجمع كل هذا.
المشكل عند الترحيل كيف سيم التعرف على صف الشخص المعني لإدخال البيانات و كذلك الحذف او التعديل كيف سيتم
السلام عليكم انا اريد الانتساب للقناة ولكن لايوجد عندي زر انضمام شو العمل
و عليكم السلام ورحمه الله
حضرتك من أى دولة ؟؟
لأن بعض الدول لا توجد فيها ميزة الانتساب للقنوات
لكن إذا كان إنتسابك للحصول على الكورس فيمكنك الحصول على الدورات المدفوعة من خلال موقع
Boost ex.net
انا من سورية
بارك الله فيك أخي الكريم ،، أنا عملت مثل ما بتقول بالحرف في المرحلة الثانية وعند الإضافة تجيني رسالة "تم ترحيل البيانات بنجاح" لكن لا يرحل البيانات ولا يمسحها ، وأراجع الكود لكن ما في أي خطأ و لا أي أمر يتحول باللون الأحمر دلاله على خطئه ،،، لا أدري ما المشكلة ؟ شكرا . بالمناسبة عندي أربع أوراق الترحيل من 2 إلى 4 وليس 3 فقط هذا التغيير
بارك الله فيكم وجزاكم الله خيراً
بالنسبة للترحيل يجب تغيير الكود بحسب اسم الشيت
ثانياً هل اللغة لديكم فى الاوفيس عربية ام انجليزية
@@alhassanabuelkhair
عربي ، شكرا لردك
عربى لذلك يجب استبدال كلمة sheet المذكورة بالكود الى كلمة ورقة
لكى يعمل الكود بشكل صحيح
@@alhassanabuelkhair
تمام كررتها وفتحت ملف جديد ،،، ولم احفظه اولا بالماكرو وبعدين فتحت ملف ثالث وتلافيت الأخطاء والحمد لله الآن زبط 100% شكرا أخي الكريم
أخوي حسن فيه سؤال يهمني ، لو كانت البيانات بأدخلها معادلة بحث في ورقة مختلفة هل عندما أضغط على إضافة يضيف الكود ام يضيف البيان النهائي ،،،، إذا كان يضيف الكود لا بد يكون البحث في مكان غير اضافة البيانات ،،، شكرا
لاسف في زر البحث دائما يعطيني رسالة خطأ هنا :
Private Sub CommandButton2_Click()
Feuil3.Range("J1").Value = Feuil2.Range("E3").Value
Dim Lsrch, Sr1, Sr2, Lf As Integer
Lsrch = Feuil3.Range("K1").Value
For Sr1 = 1 To 4
For Sr2 = 5 To 8
For Lf = 5 To 11 Step 2
Feuil2.Cells(Lf, "D").Value = Feuil3.Cells(Lsrch, Sr1).Value
Feuil2.Cells(Lf, "G").Value = Feuil3.Cells(Lsrch, Sr2).Value
Sr1 = Sr1 + 1
Sr2 = Sr2 + 1
Next Lf
Next
Next
End Sub
كيف انتسب وأنا من ليبيا ولست من مصر أستاذ الحسن ؟؟
من خلال هذا الرابط استاذى الفاضل
th-cam.com/channels/6HYHWSz54U500KsyZfte0A.htmljoin