عمل تقرير مبيعات بشكل احترافى وبأكثر من شرط و البحث بين تاريخين
HTML-код
- Опубликовано: 14 окт 2024
- هذا الفيديو ضمن سلسلة فيديوهات اكسل للمبيعات والتى فيها سوف نشرح كيفية أستخدام برنامج مايكروسوفت اكسل فى عمليات البيع والشراء و الأنشطة التجارية , حيث نشرح فى هذا الفيديو كيفية عمل #تقرير_مبيعات شهرى على الاكسل باستخدام القوائم المنسدلة و كيفية حساب قيمة الأرباح الشهرية والمبيعات والمدفوع والمتبقى أو الديون و طباعة التقرير.
عمل تقرير مبيعات احترافي على الاكسل و حساب قيمة الارباح لكل فرع خلال فترة زمنية محددة وتصميم تقرير مبيعات بمعايير مختلفة وشروط متعددة كالبحث بين تاريخن فى فرع معين فى منتج معين لعميل معين او مندوب و حساب الارباح و المدفوع والمتبقى
كيفية #البحث_بين_تاريخين فى الاكسل بشكل مبسط وعملى وبدون استخدام ماكرو فقط باستخدام اكواد فيجوال بيسك
عمل تقرير بين تاريخين و بأكثر من شرط و حساب الارباح لكل فرع فى فترة زمنية محدده
عمل يوزرفورم للمبيعات على الاكسل و استخلاص المبيعات لكل شهر من القائمة المنسدلة.
*****************************
لطلب برنامج من تصميمنا..و متابعة أعمالنا 👇
/ code7programming
-----------------------------------------------
لو لسه لم تشترك بالقناة ادعمنا بالاشتراك من هنا
/ @alhassanabuelkhair
------------------------------------------------
برجاء دعمنا بـ
اشتراك فى القناة Subscribe
لايك للفيديو Like
مشاركة الفيديو Share
#الحسن_أبوالخير
#اكسيل#اكسيل_للمبيعات
شكراً أستاذ الحسن موضوع مهم جداً ومفيد . بارك الله فيك و في اهلك
العفو 🙏🌹
بارك الله فيكم
أسأل الله ربي سبحانه أن يوفقكم ويزيدكم علم الى علمكم
متشكر جدا لك 🌹🙏🙏
اللهم آمين نحن و اياكم 🤲
شرح اكثر من رائع ودرس استفدت منه كما استفدت من الدروس التي قبلها شكرا لك أ /الحسن
متشكر جدا لك استاذ أشرف 🙏🙏🌹🌹
جميل جدا ... استاذنا الفاضل لو تتكرموا باضافة زر الطباعة للفورم حتى تكون طباعة التقرير من الفورم مياشرة أو بعد المعاينة مع مراعاة الصلاحية لأكثر من مستخدم . وتحياتي.
متشكر جدا لك 🌹🙏
يمكنك طباعة الفورم مباشرة
كيفية طريقة الطباعة مباشرة الله يسعدك
الله يبارك لك في صحتك ويديمها عليك يارب العالمين
شكرا جزيلا علي الشرح الجميل
بارك الله فيكم وجزاكم الله خيرا
متابعك عبدالله الخطيب
من اليمن
ماشاء الله استفدت الكثير والكثير
أستمر بالله وبأفكار جديدة
موفق يااارب 😘
متشكر جدا لك 🌹🙏🙏
شكراً أستاذ الحسن موضوع مهم جداً ومفيد . بارك الله فيك 👍❤️
متشكر جدا لك 🌹🙏🙏
ما شاء الله تبارك الله بارك الله فيك وزادك من علمه
شرح جميل وشكرا على هذا المجهود
لدي سؤال اذا ممكن وهو في حال رغبته المستخدم بعرض البيانات بين تاريخين ولكن لكل الفروع. فهل اذا كانت خانة الفروع فارغة يقبل عرض كل بيانات الفروع التي بين التاريخين؟ وشكرا
العفو بارك الله فيكم
للاسف الكود الحالى لا يقبل مثل هذه الفكرة و لكنها ممكنه التنفيذ بإذن الله تعالى
يا هندسه عايز ابحث بين تاريخين عن متغيرات مختلفه موجودة فى اعمدة مختلفه
موضوع قيم شكرا استاذنا
متشكر جدا لك 🌹🙏🙏
بالانتظار مشكور على جميع مجهوداتك
🙏🙏🌹🌹
مشكور استاذ شرحك مبسط وسهل من فضلك كود لحساب مصاريف واظهار بين تاريخين بدون الفرع
شكراً جزيلاً لحضرتك
لعمل التقرير بين تاريخين فقط طبق الكود ماعدا سطر الفرع و أحذف كمبوبوكس الفرع
الله يبارك لك في صحتك ويديمها عليك يارب العالمين
شكرا جزيلا علي الشرح الجميل
لو تكرمت محتاج من حضرتك توضيح بسيط
انا عاوز اعمل بحث بين تاريخين فقط بدون شرط ثالث
بارك الله فيكم وجزاكم الله خيرا
اذن فى كود دالة IF احذف الشرط الثانى و احذف كلمة And
و كمل الكود عادى
@@alhassanabuelkhair لك كل الشكر والتقدير
انا نفذت الخطوات تمام ولكن معايا مشكلة في الكود
بيظهر باللون الأحمر ومش عارف الخطأ فين
ـif sheet4.Cells(lfor,"b").text >= cdate(me.TextBox1.Text)and sheet4.Cells(lfor,"b").text
جزاك الله خير
هل ممكن طباعة التقرير ؟
نعم
شرح وافي و جميل بارك الله فيك
بارك الله فيكم وجزاكم الله خيرا
استاذ حسن المبدع شكرا علي كل شي بتقدمه كثير بتستفاد من فيدوهاتك بس الفيديو ده حاولت اعملو اكثر من مره بس مبيحبوش اي بينات خالص هل ده بسبب اني عامل واجهه ادخال بينات مسبقا ولا ملهاش علاقه ارجوك محتاج رد منك وشكرا مره تانيه علي كل الي بتقدمه ربنا يكرمك
و عليكم السلام ورحمه الله
متشكر جدا لك 🌹🙏
ليس لها علاقة ادراج يوزرفورم سابق
لكن قد اكون المشكلة فى اسم اليوزرفورم أو فى عمود المعيار أو حضرتك كتب كلمة Value و ليس كلمة Text
مساء الخير يا استاذ ابوالخير
عاوز نفس برنامجك بس بدون فروع ايش احتاج احذف من الاكواد لكي يكون معي شغال بدون مشاكل
مساء الخير اخى الفاضل
احذف السطر البرمجى الخاص بالفروع من الكود
او تواصل معنا واتساب لحل هذه المشكلة بإذن الله تعالى
انا اسف جدا جدا جدا لحضرتك من كل قلبي.. جزاك الله خيرا عن كل اللي بتقدمه واتمني تتقبل اعتذاري
العفو استاذنا الفاضل بارك الله فيكم
السلام عليكم
لماذا لا نجد التطبيقات الاضافية في الاكسيل، مثال لم أقدر على تحميل تطبيق add-ins .
لم أجد بعض الدوال و الوظائف.
شكرا على كل ما تقدمه لنا من برمجيات وشروحات ادامك الله لنشر العلم وجزاك الله كل الخير....
مجهود كبير يا هندسة الف شكر 😘😘😘
متشكر جدا لك 🌹🙏🙏
شكرا استاذ على المعلومات والشرح،، هل بالإمكان عمل بحث بين تاريخين لأكثر من معيار بحث في اليوزرفوم؟؟ مثلا بحث عن أسماء المشترين (من ماركة توشيبا) (ومن فرع القاهرة)
نعم هذا هو الشرح الذى تم بالفيديو
@@alhassanabuelkhairستاذ اذا معي عشرين عمود مثلا وعاوز اعمل بحث بين تاريخين لاكثر من معيار في وقت واحد وليس اختيار معيار واحد. فقط مثال ابحث بين تاريخين والمعيار يكون (العلامة التجارية) (وبلد المنشأ) (ونوع وسيلة النقل) (واسم مختبر الفحص) يعني اختار المعايير كلهم في آن واحد واضغط على البحث بين تاريخين
السلام عليكم
إذا كنت استخدام لـ UserForm2 لتغيير التاريخ في TextBox في UserForm1 يؤدي إلى فقدان البيانات التي تم اختيارها سابقًا في ComboBox1 من UserForm1، وبمراعاة أن ShowModal مُعينة إلى False
ممكن ايجاد حل لهذه المشكلة
مهتم 👍🏻
إن شاء الله ينال اعجابكم 👍
كيف نحل مشكلة اذا الاسم مش موجود في الشيت. وجيت ابحث عنه فيطلع لي رسالة تيش الكود الي نستخدمة لذالك. حفظك الله استاذنا الغالي
شاهد هذا الفيديو وإن شاء الله تعالى تحل المشكلة
ruclips.net/video/IkPqsmpiR8I/видео.html
شكرا استاذ هل يمكن تحميل هذا البرنامج على شكل ملف اكسل
نعم هو ملف اكسل
السلام عليكم ورحمة الله وبركاته ازيك يااستاذ الحسن ابوالخير... اناعايز المساعدة ازي اكتب علا زر الاضافه باالعربي بيطلعلي علامه استفهام؟؟؟؟؟؟
و عليكم السلام ورحمه الله
اتفضل شاهد هذا الفيديو وإن شاء الله تعالى تحل المشكلة
ruclips.net/video/S2LtRdOKfNo/видео.html
الله يخليك لينا يارب شكرن ياابو الخير علا الي انتا بتصنعو لكل الناس جزاك الله خيرا... لاكن يااستاذ والله مش زابطه معاي او مفتح اكسل بيطلعلي الافيس بيقول مفتاح البرنامج وعليه اشاره x
السلام عليكم ورحمة الله وبركاته مساء الخير اخي الحسن ابو الخير عملت زر البحث بس بعمل بحث مابيقبل بيدخل علا اكواد Lsrch =datasheet. Range("H1"). Value ومضلل بااللون الاصفر عاوز مساعدة
ماشاءالله عليك.
🙏🙏🙏🌹
مساء الخير معك اخوك ابو فيصل السعودية ممكن وضع زر خيار للمستخدم بالنسبة للتاريخ ميلادي او هجري مثل ذكر او انثى مثلا في تكست بوكس التاريخ لاننا بالسعوديه احيانا نستخدم هجري او ميلادي خيار مرتبط في تكست التاريخ ولكم مني جزيل الشكر و العرفان 🌺
اهلا وسهلا بك استاذ ابو فيصل
فكرة رائعة
ممكن حضرتك تتواصل معنا عبر الواتساب التالى 👇
201114315018
السلام عليكم
عندي طلب لو تكرمت
اريد كود يضهر لي التاريخ المنتهي فيقط
يعني انا اضع التواريخ التسجيل واضع تاريخ الانتهاء وعندما ياتي تاريخ الانتهاء يضهر عندي في البحث عن التواريخ المنتهية
اذا ممكن جزاك الله خيرا
بارك الله فيك
ولكن احتاج من شرح كيفية ارسال ايميلات من الاوتلوك ويوجد مرفقات اكثر من شيت الي عدة افراد لكل واحد منهم شيت مختلف باسم فرعه ويوجد علي سطح الميل رسالة نصية ثابتة يختلف محتواها علي حسب نتائج موجودة داخل شيت
وجزاكم الله خيرا
انا عملت كل حاجه وتمام بس لما باجي اجيب التقارير مش بيعمل اي حاجه ولا بيجيب بينات ولا حتي بيديني رساله ان في حاجه غلط ايه الحل ممكن رد جزاك الله خيرا
ممكن اعرف لغة واجهه البرنامج لديك عربيه ام إنجليزية
و ممكن تفاصيل اكثر
@@alhassanabuelkhair اللغه انجليزيه
لما بخلص واعمل رن علشان اشوفها بتفتح معايا تمام بحط التاريخ واختار المنتج وادوس علي البتون مبيجيش اي بينات خالص وكمان مبيدنيش رساله ان في حاجه غلط انا عدت الفيديو اكتر من ٥ مراتٍ وبركز في كل التفاصيل وبردو نفس المشكله
ممكن طريقة طباعة التقرير؟؟؟؟؟؟
كان سغال عندي لكن غيرت اللست بوكس الى لست فيو فتعطلت الاكواد كيف اعدلها
بالطبع سيتم ايقاف الاكواد لان طريقة الليست فيو مختلفة عن طريقة الليست بوكس
شكرا لك على هذا المجهود، لكن هناك ملاحظة بسيطة أثناء كتابة الأكواد، بدلا من العمود (F) كتبت (E) فتكرّرت البيانات في الليست بوكس.
متشكر جدا لك 🌹🙏
بمنع تكرار البيانات فى الليست بوكس اكتب فى أول كود الفلتر هذا الفلتر
Me.Listbox1.clear
ثانيا يجب كتابة رقم العمود الذى به الفلتر
@@alhassanabuelkhair ولكم جزيل الشكر، ولكن أقصد أنّكم عندما كتبتم الأكواد بدلا من العمود(F) كتبتم (E) فتكرّرت البيانات في عمودين على اللّيست بوكس. وشكرا لكم مرّة أخرى.
اولا شكرا علي الشرح الممتاز
انا عملت كل حاجه بالظبط بس مشكلتي انه بيجبلي مشكله في me. listBox1.clear ممكن اعرف احلها ازاي ضرورى لاني متوقف عليها
ااخي الفاضل
And DataSheet.Cells(Lfor, "R").Value = Me.ComboBox1.Value Then
في هذه المرحلة الاكسيل يعترض عليها هل هناك سبب واضح من خلال رؤيتك للكود؟
ممكن اعرف لغة الاكسل لديك
و ما اسم الشيت الذى به البيانات
و ممكن تسبدل كلمة text بكلمة value
@@alhassanabuelkhair
اللغة الانجليزية 2016
اما شيت البيانات اسمه في البرمجه datasheet
اذن اكتب فى الكود datasheet وليس DataSheet
لاحظ الحرف يفرق لو كان كابيتال او Small
@@alhassanabuelkhair
اسف علي مجهودك الغالي
اول هام الشيت اسمه DataSheet في البرمجه واسف علي عدم التوضيح جيدا المرة السابقة
ثانيا : هذا هو الكود كامل والاعتراض هنا عليif للاسف ولا اعرف ما السبب
Private Sub CommandButton1_Click()
Me.TextBox3.Value = ""
Dim Last, Lfor As Integer
Last = DataSheet.Range("a10000").End(xlUp).Row
Me.ListBox1.Clear
Me.ListBox1.Height = 185
Me.ListBox1.Width = 580
Me.ListBox1.ColumnCount = 14
Me.ListBox1.ColumnWidths = "100,100,50,50,50,50,50,50,50,50,50,50"
For Lfor = 1 To Last
If DataSheet.Cells(Lfor, "C").Text
يجب اغلاق دالة If بالكلمة End IF
و يجب اغلاق كلمة For بالكلمة Next
لو عاوز أصدر التقرير لملف اكسيل بعد البحث ازاي؟
ممتاز هذا الاقتراح
بإذن الله تعالى نعمل فيديو عن ذلك قريباً
ممكن توضح كيفية كتابة كود انه بمجرد كتابة ناجح يقوم البرنامج مباشرة بتعديل القيمة الأولى إلى درجة لي بعدها وهكذا في كل مرحلة يعني ناجح قانون مرور يكتب مناورات وناجح مناورات يكتب سياقة وناجح سياقة يروح للارسال والطباعة ثم الأرشفة مع إذا كان العكس اي غائب ولا راسب تبقى نفس الحالة في كل مرحلة حتى ينجح
جزاك الله خيى باش مهندس انا جربت كل اللي قلته والدنيا تمام
وعندي ١٣ عمود
المهم كتبت ان عندي ١٣
واول ما اوصل في اظهار الاعمدة
(1-10)
(1،-11)
(1،-12)
لاحظت انه يكتب لي خطأ في اي عمود من رقمين
ولو مسحته وابقيت ارقام الاعمدة من ١ الى ٩ يشتغل الكود عادي
ما الحل من فضلك
ولو هناك رابط كود طباعة التقرير
و جزاكم الله كل خير
المشكلة ان الليست بوكس يستوعب فقط حوالى 10 أعمدة
و لذلك يجب استخدام الليست فيو بدلاً من استخدام الليست بوكس
السلام عليكم
استاء في نموذج ادخال البيانات في شيت عم نوصل لعند اضافة وماعم يضيف عم يعطي خطأ بالرغم من اني رجعت مالقيت خطأ شو الحل
و عليكم السلام ورحمه الله
تأكد انك لم تصل الى الرقم المحدد فى المتغير Last
استاذ حسن كيف تفتح شيت معين رغم انو لدي 4 شيتات عن طريق الفورم ( زر يعني) شيت معين وليس ملف العمل( application. Show) مع عدم دخول الى الشيتات الاخرى وعدم القدرة على التعديل عليها يدويا.والتعديل يكون من الفورم فقط
سؤال اخر
كيف تصحح خطأ لما تضغط على زر اضافة مثلا والبيانات فارغة تظهر رسالة الكود خطا اريد رسالة لا توجد بيانات والكود صحيح اعتقد فهمت علي وشكرا اليك اتمنى تجاوبني 🌹
لفتح شيت معين من خلال زر باليوزرفورم اكتب الكود بالشكل التالى
application.visible=true
Unload me
Sheet1.select
طبعا تحدد اسم الشيت
بالنسبة للسؤال الثانى
اكتب كود يخبره انه اذا كان تيكست بوكس 1 يساوى فراغ يظهر رسالة تنبيه بهذا الشكل
IIf Me.TextBox2.Value = "" Then
MsgBox "ÈÑÌÇÁ ÅÏÎÇá ÇáÇÓã ÃæáÇð", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
Exit Sub
End If
طبعا تحدد محتوى الرسالة
@@alhassanabuelkhair جزاك الله خيرا شكرا استاذنا الكريم تمنياتي الك بالتوفيق 🌹
💎💎💎💎
♥️♥️♥️🙏
👍👍❤
🙏🙏🌹🌹