الله يجزيك كل خير أستاذ عماد ويجعل هذا العمل في ميزان حسناتك ممكن طلب لو أمكن طريقة إدراج تصميم الجدول داخل اليوزرفورم اللي بتحتوي علي رقم الفاتورة والصنف والمورد والإجمالي وضبط الارتفاعات وآسف ع الإطالة
عماد غازى صراحة مجهود رائع و شرح مبسط جعله الله فى ميزان حسناتك .. زادك الله علما و فقها اشكرك على الرد .. انا متابع حضرتك و يسعدنى وضوح الشرح كما يسعدنى وجود الملف بيسهل التطبيق ..
السلام عليكم استاذ، يعطيك العافيه بس سؤال الله يعافيك ، اريد إظهار المعلومات على ليست بوكس موجود في الشيت بدال اليوزر فورم، كيف أضع الكود عند نشاط الشيت بدال نشاط الفورم؟
استاذنا الكريم استاذ عماد السلام عليكم ورحمة طمنى عن صحتك امدك الله بالصحة والعافية سؤالي لوعايز اعمل التصفية على كلمة "نص" وليس رقم واستبدلTextbox بـ Combobox و معيار التصفية من الكمبو بوكس الدرس في غاية الروعة نجمك ساطع ولامع لدينا .
أستاذي الكريم والفاضل مجهود ممتاذ ورائع بالتوفيق والنجاح دائماً لدي مشكل وأريد الحل أنني أمتلك شيت أكسل بة بيانات كثيره جداً ولمواضيع مختلفة ويتم إدراج هذه البيانات عن طريق يوزرفورم بإستخدام أدوات كثيره منها Textbox , Lestbox , DTPicker ...... وغيرها من الأدوات بعض من هذه البيانات فقط أحتاج أن يتم نقلها الي ملف ورد ويتم حفظها في ملف منفصل علي سبيل المثال إدخال بيانات لفاتوره معينة في الأكسل من خلال اليوزرفورم بعض هذه البيانات فقط أحتاج لنقلها لملف الورد منفصل بفورما ثابتة وأحتاج في كل مره عن إدخل هذه البيانات في اليوزرفورم الي نقل هذه البيانات من الفورم الي الورد وفي أماكن محدده بشكل مباشر وسريع Private Sub Word_Click() Dim objword As Object Dim objDoc As Object Set objword = CreateObject("Word.Application") Set objDoc = objword.Documents.Open(ActiveWorkbook.Path & "\tests.dotx") objword.Visible = True Unload Me End Sub ولذلك أستخدمت الكود المذكور أعلاه لإستدعاء ملف الورد ولكن يبقي فقط التعديل علية أو نقل البيانات من اليوزرفورم في الأكسل الي ملف الورد والذي هو بصيغة Template ونقل البيانات من اليوزرفورم اكسل الي الورد من خلال أده Bookmarks وذلك لوضع كل بيان أحتاج نقلة من أده معينة في اليوزرفورم الي مكان محدد في ملف الورد علي سبيل المثال الي عنوان الورد Textbox1نقل بيان من ال أو نقل التاريخ من الفورم الي الورد في مكان محدد Bookmarksيتم ذلك بمجرد زر نقل بعض البيانات من أدوات معينة في اليوزرفورم إثناء الأدخال الي الورد ووضع هذه البيانات في أماكن محدده في الورد عن طريق أده ويبقي ملف الأكسل مرجع بياني فقط عند البحث عنها أي هو مصدر البيانات ومرجع في نفس الوقت يارب تكون الرؤية وضحت أطلت عليك كثيراً في الشرح ولكن لم أجد ما أريد عند البحث أتمني أن تساعدني أنا بأشد الحاجة الي ما عرضتة شكراً لوقتك أتمني الأستفاده من خبرتك
مرحبا اشكرك على فديوات المفيدة جدا ممكن ترسلي فديو يبحث بين مجموعة اعمدة عن طريق مطابقة الكومبوبكس مع عنوان العمود وجلب العمود فقط وليس باقي الاعمدة مع عمود الاسماء يعني مثلا لو عندي قائمة باسماء طلاب وموادهم اكتب اسم مادة كيمياء يظهرلي في ليستبوكس فقط اسماء الطلاب و عمود درجات الكيماء محتاجتها جدا وبحثت في كل الفديوات لم اجد هكذا بحث وربنا يحفظك
أستاذنا الأعمدة تظهر عندي من الشمال لليمين في الlistbox كيف يمكنني عكس اتجاه الأعمدة بارك الله فيك (طبعا خاصية rightalign) تجعل الكلام داخل كل عمود من اليمين للشمال ولكن لا تغير ترتيب الأعمدة داخل الفورم
الله ينور يا ا. عماد كان عندي فكره كنت عايز انفذها ممكن تساعدني وهي عباره عن عندي شيت مسجل فيه اسماء اصناف توصل الي ١٠٠٠ صنف وشيت زي فاتوره عايز لما اجي اسجل البيانات فلما اقف في الخليه اللي هاسجل فيها ادوس علي اختصار او زرار بحث يفتح ليه قايمه زي اللي في الفيديو تفلتر البيانات عن طريق كتابة جزء من اسم الضنف ولما اختار اسم الصنف ادوس entr يضيفه في الخليه بدل ما اروح للصفحه اللي فيها الاسماء واعمل cntrol+ f واعمل بحث واعمل copy واروح للخليه اللي هاسجل فيها وادوس past و مش هاينفع اكواد خالص
السلام عليكم اخي الفاضل لدي برنامج تم عمله في الاكسل غير انه واجهتني مشكلة اذا بحثت عن اسم (أحمد) مثلًا لا يبحث الا على اسم (أحمد) ذو الف الهمزة ، اما (احمد) بدون همزة لا يبحث عنه، والمشكلة كذلك البحث على (فاطمة و فاطمه) فكيف اتخلص من هذه المشكلة ؟
السلام عليكم ورحمة الله وبركاته اريد طريقة إظهار اشعار بالغيابات كلما يسجل العددفردي في الخلية يظهر رسالة بالأشعار بالانذار ويحسب كم مرة اشعار بالانذار
يوجد مشكلة بالبحث بالرقم واحد : فاذا كتبت رقم 1 تظهر نتائج من 11_19 . للتغلب على هذه المشكلة أضف حرف A بجانب الرقم 1 فتصير هكذا A1 فبهذا الشكل لا يبحث الا على A1 والارقام من 10_19 تبقى كما هي ... يبحث عن كل رقم بمفرده .أو وضع الرقم "1" هكذا
good tutos sir ghazi but i have problem with the code it gave me this message error d'execution '1004:' methode 'range' of object '_global' failed For Each aa In Range("a2:a" & Range(a100000).End(xlUp).Row)
السلام عليكم اخي العزيز البحث يتم بشكل صحيح عندما يكون الرقم احاد وعندما يكون احاد وعشرات واكثر يعطي نتائج كل رقم متكرر سواء احاد او عشرت ارجو التوضيح وتصحيح الكود مع الاعتذار وشكرا
![fellow fellow - พรุ่งนี้ไม่มีใครรู้ feat. INK WARUNTORN [OFFICIAL MV]](http://i.ytimg.com/vi/QP6JyjYx_W0/mqdefault.jpg)
تحية طيبة فعلا درس مميز شرح ممتاز بارك الله فيك
انا محمد بوعناني من قناة Educa Info
تحياتي
اسطورة اكسل ماشاء الله
العبد الفقير الى الله هذا من فضل ربى عليا
اتمنى من الله عز وجل الاخلاص فى القول والعمل
جزاكم الله خيرا جميل جدآ
الله يجزيك خير أستاذ عماد وبانتظار الدروس القادمة بإذن الله تعالى
ان شاء الله تعالى
جزاك الله كل الخير
ممتاز في انتظار الفيديو القادم
كنت أبحث عن طريقة البحث بأسم عنصر في جدول معين و طباعة
شكراً استاذ عماد
بارك الله فيك
جزاك الله خير
رائع من معلم رائع .. ربنا يبارك لك ويزيدك من علمه
جزاك الله خير
استفدنا والله شاهد....السؤال...لو حبيت اطبع الحتوى الموجود في اللست بوكس بعد الفلتره ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
وعليكم السلام ورحمة الله تعالى وبركاته
بارك الله فيك أستاذنا الفاضل وجزاك الله عنا خير الجزاء
جزاك الله خير صديقى
السلام عليكم بارك الله فيك عمل فوق المستوى المطلوب ممتاز ياستاذ ، كيف الصحة مليح بزاف
الحمد لله اخى توفيق نجم احد فيديوهاتى انا فاكرك كويس
ممتاز ... جزاك الله خيرا
ماشاء الله عليك فقط نريد تطوير هذا الفورم كيف البحث بين تاريخين باسم شخص او البحث بين تاريخين عن جميع الاسماء ولك كل الشكر
الله يجزيك كل خير أستاذ عماد ويجعل هذا العمل في ميزان حسناتك ممكن طلب لو أمكن طريقة إدراج تصميم الجدول داخل اليوزرفورم اللي بتحتوي علي رقم الفاتورة والصنف والمورد والإجمالي وضبط الارتفاعات وآسف ع الإطالة
جزاك الله خيرا ا. عماد
و المهم هو ارفاق ملف العمل الذى يساعدنا على الاستفادة القصوى من العمل
بارك الله فيك و فى عملك و علمك
ان شاء الله دائما نرفق الملف حتى تعم الفائدة
المهم شير علشان العلم لا يتوقف عندك
عماد غازى
صراحة مجهود رائع و شرح مبسط جعله الله فى ميزان حسناتك ..
زادك الله علما و فقها
اشكرك على الرد ..
انا متابع حضرتك و يسعدنى وضوح الشرح
كما يسعدنى وجود الملف بيسهل التطبيق ..
شكرا جزيلا بارك الله فيك
السلام عليكم استاذ، يعطيك العافيه بس سؤال الله يعافيك ، اريد إظهار المعلومات على ليست بوكس موجود في الشيت بدال اليوزر فورم، كيف أضع الكود عند نشاط الشيت بدال نشاط الفورم؟
استاذنا الكريم استاذ عماد السلام عليكم ورحمة طمنى عن صحتك امدك الله بالصحة والعافية سؤالي لوعايز اعمل التصفية على كلمة "نص" وليس رقم واستبدلTextbox بـ Combobox و معيار التصفية من الكمبو بوكس الدرس في غاية الروعة نجمك ساطع ولامع لدينا .
ان شاء الله فى الدرس القادم
مشكور استاذ عماد..لكن هل في امكانيه اعمل فلتره باكثر من خيار ..مثلا برقم الفاتوره واسم المورد بنفس الوقت
جزاك الله كل خير
ممكن سوال استاذنا
عمل رائع.... لي سؤال هل نستطيع تطبيق هذا الكود لكل من المورد او الصنف ؟؟؟؟؟؟؟
ان شاء الله انتظرنى فى الفيديو القادم بس فى تركية كدة هنعملها مع بعض
ممكن لينك الدرس القادم اللي شرحت فيه التصفية باي عنصر
جزاك الله خيراً
أ/ عماد لو سمحت عامل يوزر فورم textbox1 لإسم الصنف وعامل listbox باللأصناف عملت الخطوات اللي حضرتك عملتها وتمام البحث بالحرف وكله ماشي بس لما اختار الصنف من listbox مش بيسمع معايا في textbox1 علشان اكتب الكمية والسعر وارحله . الحل ايه
مشكور يا فندم على الشغل الجميل ده ، لكن ليه حضرتك مستخدمتش else
احنا قولنا لو تحقق الشرط ، طيب لو متحققش والرقم مكنش موجود في القائمه هيظهرلي ايه ؟
شكرا علي المجهود الطيب ..
لماذا لا يكون الجدول في الفورم من اليمين لليسار
THANK YOU A LOT FRIEND
thanks
أستاذي الكريم والفاضل
مجهود ممتاذ ورائع
بالتوفيق والنجاح دائماً
لدي مشكل وأريد الحل
أنني أمتلك شيت أكسل بة بيانات كثيره جداً ولمواضيع مختلفة ويتم إدراج هذه البيانات عن طريق يوزرفورم بإستخدام أدوات كثيره منها
Textbox , Lestbox , DTPicker ...... وغيرها من الأدوات
بعض من هذه البيانات فقط أحتاج أن يتم نقلها الي ملف ورد ويتم حفظها في ملف منفصل
علي سبيل المثال
إدخال بيانات لفاتوره معينة في الأكسل من خلال اليوزرفورم بعض هذه البيانات فقط أحتاج لنقلها لملف الورد منفصل بفورما ثابتة وأحتاج في كل مره عن إدخل هذه البيانات في اليوزرفورم الي نقل هذه البيانات من الفورم الي الورد وفي أماكن محدده بشكل مباشر وسريع
Private Sub Word_Click()
Dim objword As Object
Dim objDoc As Object
Set objword = CreateObject("Word.Application")
Set objDoc = objword.Documents.Open(ActiveWorkbook.Path & "\tests.dotx")
objword.Visible = True
Unload Me
End Sub
ولذلك أستخدمت الكود المذكور أعلاه لإستدعاء ملف الورد ولكن يبقي فقط التعديل علية أو نقل البيانات من اليوزرفورم في الأكسل الي ملف الورد
والذي هو بصيغة
Template
ونقل البيانات من اليوزرفورم اكسل الي الورد من خلال أده
Bookmarks
وذلك لوضع كل بيان أحتاج نقلة من أده معينة في اليوزرفورم الي مكان محدد في ملف الورد
علي سبيل المثال
الي عنوان الورد Textbox1نقل بيان من ال
أو نقل التاريخ من الفورم الي الورد في مكان محدد
Bookmarksيتم ذلك بمجرد زر نقل بعض البيانات من أدوات معينة في اليوزرفورم إثناء الأدخال الي الورد ووضع هذه البيانات في أماكن محدده في الورد عن طريق أده
ويبقي ملف الأكسل مرجع بياني فقط عند البحث عنها
أي هو مصدر البيانات ومرجع في نفس الوقت
يارب تكون الرؤية وضحت
أطلت عليك كثيراً في الشرح ولكن لم أجد ما أريد عند البحث
أتمني أن تساعدني
أنا بأشد الحاجة الي ما عرضتة
شكراً لوقتك أتمني الأستفاده من خبرتك
مرحبا اشكرك على فديوات المفيدة جدا ممكن ترسلي فديو يبحث بين مجموعة اعمدة عن طريق مطابقة الكومبوبكس مع عنوان العمود وجلب العمود فقط وليس باقي الاعمدة مع عمود الاسماء يعني مثلا لو عندي قائمة باسماء طلاب وموادهم اكتب اسم مادة كيمياء يظهرلي في ليستبوكس فقط اسماء الطلاب و عمود درجات الكيماء محتاجتها جدا وبحثت في كل الفديوات لم اجد هكذا بحث وربنا يحفظك
بعد اظهار النتائج في الليست بوكس
هل يمكن اضافة زر امر لتصدير النتائج الى ملف اكسل جديد فارغ
وزر امر تاني لتصديرها الى جدول محوري يحسب التائج
الله يجزيك خير أستاذ عماد.... انا اريد بعد اظهار النتائج يجمع لي المبالغ الاجمالي .كيف ؟
السلام عليكم ورحمة الله
الله يعطيك العافية عمل رائع
بس ياريت تساعدني كيف احمل ملف العمل الانه ماعم يتحمل معاي
أستاذنا الأعمدة تظهر عندي من الشمال لليمين في الlistbox
كيف يمكنني عكس اتجاه الأعمدة بارك الله فيك
(طبعا خاصية rightalign) تجعل الكلام داخل كل عمود من اليمين للشمال ولكن لا تغير ترتيب الأعمدة داخل الفورم
الله ينور يا ا. عماد كان عندي فكره كنت عايز انفذها ممكن تساعدني وهي عباره عن
عندي شيت مسجل فيه اسماء اصناف توصل الي ١٠٠٠ صنف وشيت زي فاتوره
عايز لما اجي اسجل البيانات فلما اقف في الخليه اللي هاسجل فيها ادوس علي اختصار او زرار بحث يفتح ليه قايمه زي اللي في الفيديو تفلتر البيانات عن طريق كتابة جزء من اسم الضنف ولما اختار اسم الصنف ادوس entr يضيفه في الخليه بدل ما اروح للصفحه اللي فيها الاسماء واعمل cntrol+ f واعمل بحث واعمل copy واروح للخليه اللي هاسجل فيها وادوس past
و مش هاينفع اكواد خالص
استاز عماد كنت طلبت قبل كدة طلب ارجو الرد
عندي صفحة اكسيل بها300 شيت
اريد خانة بحث
اكتب اسم الشيت يفتح الشيت
لتسهيل الدخول المتكرر للشيتات
استاذنا طباعة اللست بوكس ازاى ... رجاء
السلام عليكم اخي الفاضل
لدي برنامج تم عمله في الاكسل غير انه واجهتني مشكلة اذا بحثت عن اسم (أحمد) مثلًا لا يبحث الا على اسم (أحمد) ذو الف الهمزة ، اما (احمد) بدون همزة لا يبحث عنه، والمشكلة كذلك البحث على (فاطمة و فاطمه) فكيف اتخلص من هذه المشكلة ؟
السلام عليكم ورحمة الله وبركاته اريد طريقة إظهار اشعار بالغيابات كلما يسجل العددفردي في الخلية يظهر رسالة بالأشعار بالانذار ويحسب كم مرة اشعار بالانذار
كلما يسجل عدد فردي يظهر رسالة اشعار بالانذار وكم مرة سجل له اشعار بالانذار
كيف يتم إظهار أسماء الأعمدة في listbox
من خلال نافذة الخصائص لليست بوكس
@@Emad_ghazi برجاء الشرح من فضلك لهذا السؤال
يوجد مشكلة بالبحث بالرقم واحد : فاذا كتبت رقم 1 تظهر نتائج من 11_19 . للتغلب على هذه المشكلة أضف حرف A بجانب الرقم 1 فتصير هكذا A1 فبهذا الشكل لا يبحث الا على A1 والارقام من 10_19 تبقى كما هي ... يبحث عن كل رقم بمفرده .أو وضع الرقم "1" هكذا
good tutos sir ghazi but i have problem with the code it gave me this message
error d'execution '1004:'
methode 'range' of object '_global' failed
For Each aa In Range("a2:a" & Range(a100000).End(xlUp).Row)
the range Must be between dublle cotion like this
range("a10000")
this right code
عماد غازى شكرًا أستاذ غازي لكني كتبت الكود بالكامل كما كتبته واتبعتك خطوة خطوة عبر الفيديو لكن رسالة الخطأ هذه:
Range( " a100000"). End)(xl.... =
السلام عليكم اخي العزيز البحث يتم بشكل صحيح عندما يكون الرقم احاد وعندما يكون احاد وعشرات واكثر يعطي نتائج كل رقم متكرر سواء احاد او عشرت ارجو التوضيح وتصحيح الكود مع الاعتذار وشكرا
حضريتك زى اللى حافظ حاجة وبتكتبها مش فاهمين معنى الأكواد ولا معنى علامة النجمة والحاجات دى بتعرض مهارة بس انت عارفها
الرابط لا يعمل من فضلك
الله يجزيك خير أستاذ عماد وبانتظار الدروس القادمة بإذن الله
ان شاء الله
جزاك الله خيرا
جزاك الله خيراً وبارك الله فيك