السلام عليكم و رحمة الله تعالى و بركاته أخي الكريم .. شكرا على دروسكم القيمة و نقدر مجهودكم و بارك الله لك في علمك و جعله الله تعالى في ميزان حسناتكم . أخوكم من تـــونــس .
من لا يشكر الناس لا يشكر الله انا بتابع سلسه فيديوهات حضرتك بقالي 5 ايام واتعلمت حاجات كتير من حضرتك متميزه واكثر من رائعه بشكر حضرتك جدااا علي مجهودك في الفيديوهات ربنا يكرمك دايماا يارب احب ااقول لحضرتك ان انا بعد الفيديو ده ضيفت علي اليوزر فورم كمان زر ترحيل وزر اغلاق ويطلع رساله كمان بعد الضغط زي ماحضرتك شرحت في الدروس السابقه ونفذت الاكواد كلها بنجاح مره تانيه بشكر حضرتك جدا جدا ربنا يكرمك يارب وياريت الاكونت الشخصي لحضرتك لمراسلتك
محاضرة شيقة وممتعة احسنت يا استاذي العزيز بس عندي ملاحظة بسيطة هو اني لا اريد البحث في كود العميل اريد البحث في الاسم ماذا افعل في كلمة Clng لانها قيمة رقمية انا اريد اسمية وشكرا على مجهوك الرائع والجميل
الف شكر . استاذ عماد . ممكن استفسار كيفية اعداد امر طباعة لطابعة فاتورة بحجم كروت شحن بى طابعة بلتوث بحيث " تطبع كروت والفاتورة وايصال دفع فى نفس الوقت "
استاذ عماد شكرا على مجهود حضرتك فى الشرح عند تنفيذ نفس الكود الموجود فى الفيديو يظهر رسالة كالتالى object doesn't support this property or method ارجة الافادة
الله ينور عليك يا استاذ عماد انا مبتدىء فكنت عايز اعرف ليه عملنا set قبل المتغير ws ومعملناش مع المتغير x ليه مكتبناشdim ....x .....as..... m يعنى ليه معرفناش المتغير
لسلام عليكم أستاذ عماد لقد طبقت الكود x = WorksheetFunction.CountIf(sheet1.Range("a:a"), Val(Me.id.Value)) في الجزء السادس لكن يعطي ان هناك خطأ ولا يعمل
شكراً جزيلاً لحضرتك شرح جميل جداً ومبسط انا كنت عايز اعمل يوزر فورم بدالة vlookup ولكن بشرطين وفي خانه الشرطين قائمة منسدله بمعني اسم العميل في قائمة وكود العميل في قائمة وهذا هم الشرطين ولحضرتك جزيل الشكر والتقدير
السلام عليكم اخ عماد جزاك الله خيرا في ملاحظة بسيطة عن اسلوب الشرح احيانا تقوم باستخدام دالات او توابع .. جديدة دون شرح عمل ووظيفة الدالة او شكلها وطريقة استخدامها ارجو ان تقوم بشرح الدالة او التابع من حيث استخدامه ... والشكل العام له ... ثم تقوم باستخدامه في الدرس ولك جزيل الشكر كاستخدامك لتعليمة with اي او تعليمة اخرى
اخي العزيز عملت نفس الطريقة ومشي الحال.. لكن الكود اللي استخدمه هو خليط (ارقام وحروف) فما تظهر عندي اي نتيجة..يعني عند استخدام الرقم فقط يظهر نتائج وعند استخدام الكود الآخر(حروف وارقام) لا يُظهر.. نريد الحل لوسمحتم
تسلم استاذنا الفاضل لكن هل يقبل الكود البحث عن جزء من الكلمة مثلا اسم الموظف الأول فقط من دون حدوث خطأ في الكود، مثلا اسم الموظف "أدهم مصطفى" اريد البحث عن كلمة "أدهم" فقط هل ستظهر نتيجة البحث ام ستظهر رسالة خطأ؟ وشكرا جزيلا لك
استاذنا الجليل عماد بك تحية طيبة سؤلنا عن الامر lastrow= [a100].end(xlup).row+1ما الفرق بين الاقواس [ ] و()عند التنفيذ وصلتنا الرسالة run time error 450 نرجو افادتنا عن المشكلة وكيفية التغلب عليها علما ان بيئة العمل عندى office 2013
جزاك الله خيرا - فيه سؤالين بعد اذنك - الاول -كيف نبحث عن السجل التالي لو كانت البيانات متكررة في نفس عمود البحث ؟-- الثاني كيف بعد استدعاء البيانات يتم تعديلها و استبدال البيانات القديمة بالبيانات المعدلة ؟ ---- و اشكرك شكرا جزيلا
شكرا الأستاذ عماد انا حصل معي مشكل لما رحلت البيانات و قمت باستدعاءها تظهر لي رسالة خطأ مع العلم انني استطيع استدعاء البيانات القديمة التي ادخلتها يدوي في صفحة الاكسل قبل تصميم اليوزر فورم لحد الان لم اجد حل لهذه المشكلة
السلام عليكم أستاذ عماد قمت بتطبيق هذا الكود على ورقة عمل رقم الصنف ... اسم الصنف .. الكمية .. المبيعات... الرصيد ولكن يعطيني خطأ في السطر x = WorksheetFunction.CountIf(Sheet1.Range("a:a"), Val(Me.id.Value)) يظهر بلون أصفر ويتعطل الكود عن العمل ... بالرغم من أن المثال الذي شرحته يعمل عندي بلا خطأ في نفس السطر ؟؟؟ أرجو الإفادة مشكور
المشكلة عندي لما حطيت المتغير X وحطيت بعده علامة = يساوي مايطلع معي الي يكمل الإجراء اتماتيكي.. بيخليني اكتب worksheetvunction بدون مايكملها لي من نفسه زي مافي الفديو حق حضرتك! هل فيه زر اختصار من الكيبورد بيشغلها او كيف عندك بالفديو اشتغلت معاك وعندي لا؟ وشاكر ومقدر تعب حضرتكم.. بس انا والله نفسي اتعلم برمجة الاكسل والاكسس ومتعطش لذك.. اتمنى تستحمل كثرة استفساراتي ولك مني دعوات طيبة بظهر الغيب.
تحية طيبة وبعد لقد صممت يوزر فورم لادخال فاتورة شراء يحتوي على التاريخ والبيان وقم الفاتورة وكود المورد واسم المورد وكود الصنف واسم الصنف والكمية وسعر الشراء والاجمالي وانا لا ارديد ان اكتب كثيرا اريد 1- ان اضع رقم كود امورد في ال التكست بوكس الخاص به يظهر تلقائي اسم المورد في التكست بكس الخاص به ونفس الشئ في كود الصنف مع العلم ان كود المورد واسم المورد في شيت اخر غير شيت ادخال الفاتورة 2- اريد ان اعمل عملية ضرب بين تكست بوكس الكمية وتكست بوكس سعر الشرء ويضع النتيجة في تكست بوكس الاجمالي تلقائيا ارجو سرعة الرد ارجوك للتواصل wailelatma@gmail.com وتفضلوابفائق الحترام والتقدير
من فضل حضرتك ملفات العمل بتاعة المحاضرة الرابعة والخامسة والسادسة مش عارف أحصل عليهم من فضلكوا ياجماعة اللى يعرف يبعتهملي على إيميلي جزاكم الله خيرا Azyma19@yahoo.com
![ละลาย (LALALYE) - DAOU PITTAYA ต้าห์อู๋ พิทยา [OFFICIAL MV]](http://i.ytimg.com/vi/wo6r9TgausI/mqdefault.jpg)
السلام عليكم و رحمة الله تعالى و بركاته أخي الكريم ..
شكرا على دروسكم القيمة و نقدر مجهودكم و بارك الله لك في علمك و جعله الله تعالى في ميزان حسناتكم .
أخوكم من تـــونــس .
محترف كالعاده أ/عماد غازى انت من الناس الى مش بتبخل بالعلم الى عندها ربنا يكرمك اخى الكريم
ربنا يكرمك ويجازيك كل خير
مية مية
جزاك الله خيراً وبارك الله فيك
معلم ماشاءالله تبارك الله
جزاك الله خير
احسنت وانت الشرف وان شاء الله في ميزان حسناتك
يسعدني ويشرفني مرورك العطر
انا بحبكم فى الله ،،وزاد كم الله علما ونورا ،،،،شكرا
من لا يشكر الناس لا يشكر الله
انا بتابع سلسه فيديوهات حضرتك بقالي 5 ايام
واتعلمت حاجات كتير من حضرتك متميزه واكثر من رائعه
بشكر حضرتك جدااا علي مجهودك في الفيديوهات
ربنا يكرمك دايماا يارب
احب ااقول لحضرتك ان انا بعد الفيديو ده
ضيفت علي اليوزر فورم كمان
زر ترحيل وزر اغلاق ويطلع رساله كمان بعد الضغط زي ماحضرتك شرحت في الدروس السابقه ونفذت الاكواد كلها بنجاح
مره تانيه بشكر حضرتك جدا جدا ربنا يكرمك يارب
وياريت الاكونت الشخصي لحضرتك لمراسلتك
جزاك الله خيرا استاذ عماد شرحك ممتاز جداً وانا بستفيد من كل دروسك لك مني كل الشكر ةالتقدير
انت استاد بارع اشكرك
لف شكر يا أستاذ، جزاك الله كلّ خير
موفق. يااستاذ
مشكور على هذا المجهود الرائع شرح كيفية بحث بالاسم واستجلاب البيانات
جزاك الله خيرا اخي عماد أخوك جواد من المغرب
يارب تكون دائما بخير
شرح رائع .... عافاك الله
احترامي وتقديري لسيادتكم
محاضرة شيقة وممتعة احسنت يا استاذي العزيز بس عندي ملاحظة بسيطة هو اني لا اريد البحث في كود العميل اريد البحث في الاسم ماذا افعل في كلمة Clng لانها قيمة رقمية انا اريد اسمية وشكرا على مجهوك الرائع والجميل
الف شكر . استاذ عماد . ممكن استفسار كيفية اعداد امر طباعة لطابعة فاتورة بحجم كروت شحن بى طابعة بلتوث بحيث " تطبع كروت والفاتورة وايصال دفع
فى نفس الوقت "
استاذ عماد شكرا على مجهود حضرتك فى الشرح
عند تنفيذ نفس الكود الموجود فى الفيديو يظهر رسالة كالتالى
object doesn't support this property or method
ارجة الافادة
شكرا على الشرح ممكن شرح البحث ب كومبوبوكس عوض الليبل في ID
الله ينور عليك يا استاذ عماد
انا مبتدىء
فكنت عايز اعرف ليه عملنا set قبل المتغير ws ومعملناش مع المتغير x
ليه مكتبناشdim ....x .....as..... m
يعنى ليه معرفناش المتغير
ممتاز غالي بس ممكن اعرف لو رقم مش موجود معانا هل هيدينا eroor وكيف يتم معالجته وشكرا
لسلام عليكم أستاذ عماد لقد طبقت الكود x = WorksheetFunction.CountIf(sheet1.Range("a:a"), Val(Me.id.Value)) في الجزء السادس لكن يعطي ان هناك خطأ ولا يعمل
جزاك الله حيرا استاذ عماد
شكراً جزيلاً لحضرتك شرح جميل جداً ومبسط
انا كنت عايز اعمل يوزر فورم بدالة vlookup ولكن بشرطين وفي خانه الشرطين قائمة منسدله بمعني اسم العميل في قائمة وكود العميل في قائمة وهذا هم الشرطين
ولحضرتك جزيل الشكر والتقدير
جزاك الله خيرا برجاء من سعادتك الاهتمام بجودة الصورة وشكرا لحضرتك
السلام عليكم
اخ عماد جزاك الله خيرا
في ملاحظة بسيطة عن اسلوب الشرح
احيانا تقوم باستخدام دالات او توابع .. جديدة دون شرح عمل ووظيفة الدالة او شكلها وطريقة استخدامها
ارجو ان تقوم بشرح الدالة او التابع من حيث استخدامه ... والشكل العام له ... ثم تقوم باستخدامه في الدرس
ولك جزيل الشكر
كاستخدامك لتعليمة with
اي او تعليمة اخرى
كل الكلام دة احنا شرحناة سابقا فى دورة vba
دروس ممتازة استاذ عماد لكن انشاء الله الجودة تكون احسن بجودة الدروس
مشكورر اخي
جهود طيبة ومشكورة واسلوب رائع في توصيل المعلومة وكل الكودات شغالة ماشاء الله عند تحميل ملف العمل يخرج لنا تحذيرمن هذه الصفحة فما الحل اخ عماد.
شكر على هذا الشرح انت رائع ومبدع هل لديك دروس في فجول بيسك 6
اشكرك على مجهوداتكم ارجوا شرح دوال الجمع سم اف وسم افس على اليوزفورم
سلام استاذ شرح جميل جدا نرجوا من الله عزل وجل ان يزده في ميزان حسناتك
سؤالي هو اعمل بحث حسب اسم الشيت باليوزر فورم على نفس ملف
lمساء النور استاذ عماد أريد منك درس كيفية الفرز بين الذكور و الإناث
ابداع
رائع
استمر
كيف اغير المدى يادكتور
لو سمحت يا استاذ عماد
شرح للبحث بالاسم واستجلاب البيانات للتعديل في نفس اليوزرفورم
لو امكن
كيف اعرف المدى بتاعي ؟ انت عامله lookup كيف اعرف اغيره
اخي العزيز عملت نفس الطريقة ومشي الحال.. لكن الكود اللي استخدمه هو خليط (ارقام وحروف) فما تظهر عندي اي نتيجة..يعني عند استخدام الرقم فقط يظهر نتائج وعند استخدام الكود الآخر(حروف وارقام) لا يُظهر..
نريد الحل لوسمحتم
تسلم استاذنا الفاضل
لكن هل يقبل الكود البحث عن جزء من الكلمة مثلا اسم الموظف الأول فقط من دون حدوث خطأ في الكود، مثلا اسم الموظف "أدهم مصطفى" اريد البحث عن كلمة "أدهم" فقط هل ستظهر نتيجة البحث ام ستظهر رسالة خطأ؟
وشكرا جزيلا لك
استاذ عماد لو سمحت انا بعمل كل الى حضرتك بتقول عليه بس عند حفظ الملف بتظهر رساله وبحفظ الملف وبعديين الملف مبيشتغلش تانى ارجو منك الافاده
جزاك الله خيراً .الملف لا يحمل
وشكراعفوا البحث باليوزر فورم على نفس ملف العمل لاربعة شيتات
استاذنا الجليل عماد بك تحية طيبة سؤلنا عن الامر lastrow= [a100].end(xlup).row+1ما الفرق بين الاقواس [ ] و()عند التنفيذ وصلتنا الرسالة run time error 450 نرجو افادتنا عن المشكلة وكيفية التغلب عليها علما ان بيئة العمل عندى office 2013
حضرتك انت كدة محدد اخر صف بيانات لغاية a100وبعد كدة يرجع يعيد من الاول
الافضل حضرتك تكتب الكود كالاتى
طبعا فى الاول نحدد الشيت اللى هنشتغل علية
sheets("sheet1").cells(rows.count,1).end(xlup).row+1
شكرا جزبلا لكرم اخلاقك وليزيدك الله فضلا من افضاله
جزاك الله خيرا - فيه سؤالين بعد اذنك -
الاول -كيف نبحث عن السجل التالي لو كانت البيانات متكررة في نفس عمود البحث ؟--
الثاني كيف بعد استدعاء البيانات يتم تعديلها و استبدال البيانات القديمة بالبيانات المعدلة ؟
---- و اشكرك شكرا جزيلا
ولو كانت الخلية البحثية المستعملة فى vlookup عبارة عن نص وليس رقم كانت هتبدى بايه
كيف اغير المدى بتاعي واعرف اسمه
شكرا الأستاذ عماد
انا حصل معي مشكل
لما رحلت البيانات و قمت باستدعاءها تظهر لي رسالة خطأ
مع العلم انني استطيع استدعاء البيانات القديمة التي ادخلتها يدوي في صفحة الاكسل قبل تصميم اليوزر فورم
لحد الان لم اجد حل لهذه المشكلة
الملف لا يحمل
ان شاءالله سوف يتم تحديث الرابط
@@Emad_ghazi متى
السلام عليكم استاذ
انا غير شغالة عندي
شكرا لحضرتك
مجهود بسم الله ما شاء الله
لكن الرابط اسفل الشرح يبدو تالف
x = WorksheetFunction.CountIf(sheet1.Range("a:a"), Val(Me.id.Value)) هذا الكود غير مفهةم أخي عماد ويعطي error أرجو التوضيح
****************************************
السلام عليكم أستاذ عماد
قمت بتطبيق هذا الكود على ورقة عمل
رقم الصنف ... اسم الصنف .. الكمية .. المبيعات... الرصيد
ولكن يعطيني خطأ في السطر
x = WorksheetFunction.CountIf(Sheet1.Range("a:a"), Val(Me.id.Value))
يظهر بلون أصفر ويتعطل الكود عن العمل ...
بالرغم من أن المثال الذي شرحته يعمل عندي بلا خطأ في نفس السطر ؟؟؟
أرجو الإفادة مشكور
استاذ عماد كيف ابحث عن العميل بالاسم بدل الرقم
سوال يا أ/عماد لو انا ناسى كود العميل ينفع ادور باسم العميل يبقا عندى متاح بردك وشكرا
'طبعا ينفع بس هنغير حاجة بسيطة فى الكود
اكون شاكر افضالك لو بدات اول الحلقة الجيه ان شاء الله بشرحها
السلام عليكم ورحمه الله وبركاته عندي مشكله بعد كتابه الكود التكست بوكس بتاع ال id لا يقبل الكتابة
يا دكتور عندي مشكل لما افتح واجهة الدخول الى البرنامج وأضغط دابل كليك يفتح البرنامج بدلا من كلمة السر واسم الدخول ما العمل سيدي
بيجيب ايرور يا هندسه في حاجه غلط؟
الاستاذ عماد المحترم لو سمحت المتحول اكس لا يعمل عندي ارجو ايضاح السبب
ا/ عماد جربت الكود بالشكل دة 1/15/4لكن المعادله لم تعمل ارجو الافاده ولكم جزيل الشكر
كيف أعمل كود البحث عن طريق اسم العميل وليس كود العميل؟
لم يشتغل معي الكود بعطي رسالة ( object required)
ارجو المساعدة ممن يعرف الحل
عرف المتغيرات الموجودة عندك
من خلال
dim
المشكلة عندي لما حطيت المتغير X وحطيت بعده علامة = يساوي مايطلع معي الي يكمل الإجراء اتماتيكي.. بيخليني اكتب worksheetvunction بدون مايكملها لي من نفسه زي مافي الفديو حق حضرتك!
هل فيه زر اختصار من الكيبورد بيشغلها
او كيف عندك بالفديو اشتغلت معاك وعندي لا؟
وشاكر ومقدر تعب حضرتكم.. بس انا والله نفسي اتعلم برمجة الاكسل والاكسس ومتعطش لذك..
اتمنى تستحمل كثرة استفساراتي ولك مني دعوات طيبة بظهر الغيب.
@@عليحسن-ن7ي5ج كونترول + مسطرة
تحية طيبة وبعد
لقد صممت يوزر فورم لادخال فاتورة شراء يحتوي على
التاريخ والبيان وقم الفاتورة وكود المورد واسم المورد وكود الصنف واسم
الصنف والكمية وسعر الشراء والاجمالي
وانا لا ارديد ان اكتب كثيرا اريد
1- ان اضع رقم كود امورد في ال التكست بوكس الخاص به يظهر تلقائي اسم المورد في التكست بكس الخاص به ونفس الشئ في كود الصنف
مع العلم ان كود المورد واسم المورد في شيت اخر غير شيت ادخال الفاتورة
2- اريد ان اعمل عملية ضرب بين تكست بوكس الكمية وتكست بوكس سعر الشرء ويضع النتيجة في تكست بوكس الاجمالي تلقائيا
ارجو سرعة الرد ارجوك
للتواصل
wailelatma@gmail.com
وتفضلوابفائق الحترام والتقدير
من فضل حضرتك ملفات العمل بتاعة المحاضرة الرابعة والخامسة والسادسة مش عارف أحصل عليهم من فضلكوا ياجماعة اللى يعرف يبعتهملي على إيميلي جزاكم الله خيرا Azyma19@yahoo.com