اكسل vbaالبحث بين تاريخين من خلال اليوزرفورم userform واظهار النتائج فى listbox

แชร์
ฝัง
  • เผยแพร่เมื่อ 27 พ.ย. 2024
  • لتحميل ملف العمل www.file-uploa...
    درس جديد وكود جديد من اكواد اكسل vbaا وهو كيفية البحث عن الييانات بين تاريخين من خلال اليوزرفورم واطهار نتائج البحث فى الليست بوكس list box
    وكيفية عمل التقارير فى الاكسل على userform اكسل vbaا
    اكسل vbaالبحث بين تاريخين من خلال اليوزرفورم userform واظهار النتائج فى listbox
    ج1 استعلام بين تاريخين استعلام عن بيانات شخص بين تاريخين اكسل vba
    طلب كود البحث بين تاريخين vba
    طريقة البحث عن بيانات بين تاريخين
    ج90 المصفوفات array بحث بين تاريخين
    اكسل vba برامج تطبيقات
    استدعاء بيانات بين تاريخين لصنف معين ؟
    البحث عن كلمة او رقم في ملف الاكسل بالكامل وليس صفحة معينة
    البحث في الاكسل 1 من 3
    البحث والإستبدال في اكسل 2007
    توضح هذه المقالة كيفية البحث عن بيانات في جدول أو نطاق من الخلايا باستخدام العديد من الدوال المضمنة في Microsoft Excel.
    ماهي افضل طريق للبحث في قوائم تم عملها علي الاكسل
    كيفية استخدام دالة VLOOKUP و HLOOKUP
    ادعمنا بـ
    أعجبني like
    تعليق comment
    مشاركة share
    للمزيد من الدروس زورو موقعنا / اتعلم مجانا دوت نت
    تعليم الاكسل للمبتدئين مع عماد غازى , تعليم vba للمبتدئين, تعليم مايكروسوفت اوفيس واكسيل 2010
    تعلم الاكسل خطوة خطوة فيس بوك goo.gl/14yS3z
    عماد غازى الفورم
    vba
    excel vba
    vba excel programming
    vba excel advanced
    vba excel beginner
    برامج مخازن
    برامج مخازن جاهزة مجانية

ความคิดเห็น • 65

  • @LoayAlghazali
    @LoayAlghazali 2 ปีที่แล้ว

    فعلا استاذ بارك الله فيك ونفع فيك اسناذ بمعنى الكلمه

  • @mohammedelqassoumy230
    @mohammedelqassoumy230 ปีที่แล้ว +2

    السلام عليكم مشاء الله على كل مجهودك

    • @Emad_ghazi
      @Emad_ghazi  ปีที่แล้ว +1

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

  • @اللهمصلِّعلىمحمد-ر9ك
    @اللهمصلِّعلىمحمد-ر9ك ปีที่แล้ว

    سلام عليكم يا هندسه... من اشد المعجبين بشغل حضرتك ويا رب مزيد من التوفيق.. استأذن حضرتك كنت عايز ابحث بين تاريخين عن قيم مختلفه موجودة فى اعمدة مختلفه

  • @MohAboAbdo
    @MohAboAbdo 6 ปีที่แล้ว

    بارك الله فيك أستاذي الفاضل وجزاك الله كل خير

  • @jaafaralabdaly3207
    @jaafaralabdaly3207 6 ปีที่แล้ว

    بارك الله بك استادي المبدع

  • @mohammedelsayed3852
    @mohammedelsayed3852 6 ปีที่แล้ว

    زادك الله علما و نفع بك

  • @MahmoudHassan-pu7el
    @MahmoudHassan-pu7el 3 หลายเดือนก่อน

    السلام عليكم مجهود متميز ورائع بستاذن حضرتك محتاج نفس الكود البحث بين تاريخين لاظهار عدد الخلايا الملونة بلون محدد فى العمود B المجاور لعمود التاريخ لو امكن

  • @MIDO.1980
    @MIDO.1980 7 หลายเดือนก่อน +1

    مرحبا بدي اعرف شغلي انو لم عم يكون عندي اكتر من تاريخ متعدد لم يظهر لي اية عملية وكمان اذا كان رقم الواحد بشتغل معي على 11 او 12 يعني كل شي في رقم واحد ياريت تحلنا المشكلة

  • @dr-hamodyahia8768
    @dr-hamodyahia8768 6 ปีที่แล้ว

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

  • @hhhh1120
    @hhhh1120 2 ปีที่แล้ว

    جميل جدا

  • @husseinali4446
    @husseinali4446 6 ปีที่แล้ว

    بارك الله فيك استاذ عماد

  • @khalednegm4827
    @khalednegm4827 4 ปีที่แล้ว

    م. عماد شكرا الشرح الرائع بس كنت عايز اعرف بعد البحث عايز اطبع الناتج كتقرير ويحسب إجمالي الناتج فقط وشكرا

  • @mohammedelqassoumy230
    @mohammedelqassoumy230 ปีที่แล้ว +1

    السلام عليكم ورحمة الله وبركاته
    أستاذي الفاضل لو سمحت في طلب
    نفس العمل بس في اضافة جمع العمود "B" بين التاريخين
    يعني
    أنا أبحث بين تاريخين يجمع لي القيم التي توجد بالعمود الثاني او الثالث

  • @heshamallam5597
    @heshamallam5597 6 ปีที่แล้ว

    شكرا صديقى الجديد

  • @arifalqatanany
    @arifalqatanany ปีที่แล้ว

    استاذ عماد جزاك الله خير ونفع بك عملت نفس الفكرة على ملف اكسل لحجز شقق فندقية لكن عني إضافة ما نفعتش معي وهي لما ادخل رقم الغرفة وتاريخ بداية الحجز ونهاية الحجز المفروض يجيبلي اذا كان في حجز بهذه الفترة على رقم الغرفة ..اذا في عند حضرتك مثال قد ينفع الجميع ولك خير الجزاء.

  • @عالمالأوفيس
    @عالمالأوفيس 6 ปีที่แล้ว

    ممكن بعد اذنك نعمل هذا النموذج في الاكسيس أرجو الافادة ... وشكراً لجهودك

  • @mohamedragab1960
    @mohamedragab1960 6 ปีที่แล้ว

    الاستاذ / عماد
    تحياتى على هذا الشرح الجميل ولكن لى سؤال بسيط
    ماذا تعنى ان listcount-1
    لسيادتكم جزيل الشكر

  • @ismaildz3062
    @ismaildz3062 4 ปีที่แล้ว

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

  • @medkari
    @medkari 6 ปีที่แล้ว

    شكرا جزيلا

  • @AhmedSeif0
    @AhmedSeif0 6 ปีที่แล้ว

    هل الليست بوكس تقبل أكثر من 9 أعمدة ؟ وما هو الحد الاقصى لعدد الأعمدة لليست بوكس ؟

  • @a.l.s.a.k.r9051
    @a.l.s.a.k.r9051 4 ปีที่แล้ว

    ممتاز

  • @adilmajid06
    @adilmajid06 5 ปีที่แล้ว

    مبدع

  • @awadhbinamro948
    @awadhbinamro948 6 ปีที่แล้ว

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

  • @doctoreid3969
    @doctoreid3969 4 ปีที่แล้ว +1

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

  • @mohamedahmedta7
    @mohamedahmedta7 4 ปีที่แล้ว

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

  • @awadhbinamro948
    @awadhbinamro948 6 ปีที่แล้ว

    شكرا اخ عماد جزاك الله خير..
    انا حملت ملف العمل لاكن اليوزر فورم مفقود يعني ماتنزل مع الشيت ....

  • @SherifElfaky7
    @SherifElfaky7 6 ปีที่แล้ว

    بارك الله فيك كنت محتاج معادلات الجمع والضرب والطرح والقسمة فى VPA ازاى اكتبها

  • @omedzaxo3548
    @omedzaxo3548 4 ปีที่แล้ว

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

    • @Emad_ghazi
      @Emad_ghazi  4 ปีที่แล้ว

      تم عمل درس جديد اليوم خاص بطلب حضرتك
      ياريت تتفرجي عليه

    • @waleednemer6010
      @waleednemer6010 3 ปีที่แล้ว

      في امكانيه تعم على أكثر من شيت
      في عندي عدت شيتات نفس الشي

  • @firas3023
    @firas3023 5 ปีที่แล้ว

    اذا حولنا البحث من تواريخ الى بحث بأسم شخص او رقم او اي شئ ............. شيكون تغير في الكود كيف يكو ذلك

  • @ابوخباب-ف2د
    @ابوخباب-ف2د 5 ปีที่แล้ว

    هل يمكن طباعة نتائج البحث

  • @benhennisidahmed1318
    @benhennisidahmed1318 5 ปีที่แล้ว +1

    ممكن إضافة زر لترحيل ما تم فرزه الى ملف مستقل بذاته

  • @mohamedaladaash1967
    @mohamedaladaash1967 5 ปีที่แล้ว

    طيب لو عايز اضيف زر طباعه لمحتويات اللست بوكس اعملها ازاى

  • @khaledsaleh8604
    @khaledsaleh8604 6 ปีที่แล้ว +2

    استاذ عماد لو بدي اطبق هاي الفكرة بكشف حساب كيف ممكن ادخل الحساب المدين والدائن ويستخرجلي الفرق بينهم

    • @canaanbrixton6712
      @canaanbrixton6712 3 ปีที่แล้ว

      sorry to be off topic but does any of you know a method to get back into an Instagram account??
      I somehow forgot my login password. I would appreciate any help you can offer me

    • @leightonmarcellus9897
      @leightonmarcellus9897 3 ปีที่แล้ว

      @Canaan Brixton instablaster =)

    • @canaanbrixton6712
      @canaanbrixton6712 3 ปีที่แล้ว

      @Leighton Marcellus i really appreciate your reply. I found the site thru google and I'm trying it out now.
      Takes quite some time so I will reply here later when my account password hopefully is recovered.

    • @canaanbrixton6712
      @canaanbrixton6712 3 ปีที่แล้ว

      @Leighton Marcellus It did the trick and I now got access to my account again. I am so happy!
      Thanks so much you saved my ass!

    • @leightonmarcellus9897
      @leightonmarcellus9897 3 ปีที่แล้ว

      @Canaan Brixton glad I could help :)

  • @iqraapprenezlarabeautremen1459
    @iqraapprenezlarabeautremen1459 4 ปีที่แล้ว +2

    السلام عليكم ورحمة الله وبركاته
    أخي عماد رجاء
    كيف يمكن فلترة الليست بوكس بين تاريخين كل تاريخ موجود في عمود على حدة بحيث أن الأول يسمى بداية التاريخ والثاني نهاية التاريخ .
    الهدف هو معرفة رقم الفواتير التي يجب استخلاصها بداية من تاريخ اليوم
    الجدول يحوي
    عمود لرقم الفاتورة
    الثاني لاسم العميل
    الثالث بداية التاريخ
    الرابع نهاية التاريخ
    الخامس جملة الفاتورة
    مع الشكر الجزيل
    اخوكم فرحات

    • @Emad_ghazi
      @Emad_ghazi  4 ปีที่แล้ว

      راجع اخر ٣ دروس فى القناة لسة منشورين هذة الايام هتلاقى الكلام دة

  • @احمدالمكي-ف7ث
    @احمدالمكي-ف7ث 3 ปีที่แล้ว +1

    للاسف الملف عليه كلمة سر

  • @Group.C2024
    @Group.C2024 4 ปีที่แล้ว

    بارك الله بيك استاذ، لكن استاذ نفذت الكود ماينفذ ميشتغل ماهو السبب؟

  • @alkiyumi8949
    @alkiyumi8949 11 หลายเดือนก่อน

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

    • @Emad_ghazi
      @Emad_ghazi  11 หลายเดือนก่อน

      حاضر

  • @abdallahelbably4121
    @abdallahelbably4121 5 ปีที่แล้ว +1

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

  • @e3lamstan
    @e3lamstan 4 หลายเดือนก่อน

    الرابط محذوف

  • @jeka-8912
    @jeka-8912 4 ปีที่แล้ว

    الكود ده مش شغال يا استاذي ع فكره

  • @mohamedfraag3104
    @mohamedfraag3104 5 ปีที่แล้ว

    انا عملت نفس الملف ولكن يوجد عدد 12 عمود ولا يظهر غير 10 فقط

    • @localagent9501
      @localagent9501 3 ปีที่แล้ว

      عندي نفس المشكله . انت لقيت حل ???

    • @mohammedelqassoumy230
      @mohammedelqassoumy230 ปีที่แล้ว

      السلام عليكم روح الى prospérités liste box تم columncount ورجعه 14 اولا 12

    • @mohammedelqassoumy230
      @mohammedelqassoumy230 ปีที่แล้ว

      حسب الأعمدة لي نت عوزها تظهر معاك في ليست بوكس بتاعك

  • @user-Salahalhag
    @user-Salahalhag 6 ปีที่แล้ว

    أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
    Private sub commandButton1_Click()
    If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
    Unload Me
    Userform2.Show
    ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
    X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
    TextBox1.Value = ""
    TextBox2.Value = "" Label3.caption=label3.caption-1
    ElseIf TextBox1. Value = "صلاح" Then
    X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
    TextBox1.Value = "" Label3.caption=label3.caption-1
    'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
    Else
    X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
    TextBox2.Value = "" Label3.caption=label3.caption-1
    End If
    If Label3.caption = 0 Then
    application.Quit
    End If
    End sub

  • @samerdhiaa8495
    @samerdhiaa8495 6 ปีที่แล้ว

    اين الطباعة ؟؟؟؟

  • @haleemdcc600
    @haleemdcc600 5 ปีที่แล้ว +1

    معلش مش بيجيب اكثر من 9 اعمدة

  • @gouadjliaboulefaa2829
    @gouadjliaboulefaa2829 4 ปีที่แล้ว +1

    شكرا جزيلا

    • @Emad_ghazi
      @Emad_ghazi  4 ปีที่แล้ว

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

  • @user-Salahalhag
    @user-Salahalhag 6 ปีที่แล้ว

    أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
    Private sub commandButton1_Click()
    If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
    Unload Me
    Userform2.Show
    ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
    X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
    TextBox1.Value = ""
    TextBox2.Value = "" Label3.caption=label3.caption-1
    ElseIf TextBox1. Value = "صلاح" Then
    X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
    TextBox1.Value = "" Label3.caption=label3.caption-1
    'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
    Else
    X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
    TextBox2.Value = "" Label3.caption=label3.caption-1
    End If
    If Label3.caption = 0 Then
    application.Quit
    End If
    End sub

  • @user-Salahalhag
    @user-Salahalhag 6 ปีที่แล้ว

    أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
    Private sub commandButton1_Click()
    If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
    Unload Me
    Userform2.Show
    ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
    X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
    TextBox1.Value = ""
    TextBox2.Value = "" Label3.caption=label3.caption-1
    ElseIf TextBox1. Value = "صلاح" Then
    X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
    TextBox1.Value = "" Label3.caption=label3.caption-1
    'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
    Else
    X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
    TextBox2.Value = "" Label3.caption=label3.caption-1
    End If
    If Label3.caption = 0 Then
    application.Quit
    End If
    End sub

  • @user-Salahalhag
    @user-Salahalhag 6 ปีที่แล้ว +2

    أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
    Private sub commandButton1_Click()
    If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
    Unload Me
    Userform2.Show
    ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
    X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
    TextBox1.Value = ""
    TextBox2.Value = "" Label3.caption=label3.caption-1
    ElseIf TextBox1. Value = "صلاح" Then
    X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
    TextBox1.Value = "" Label3.caption=label3.caption-1
    'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
    Else
    X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
    TextBox2.Value = "" Label3.caption=label3.caption-1
    End If
    If Label3.caption = 0 Then
    application.Quit
    End If
    End sub

    • @user-Salahalhag
      @user-Salahalhag 6 ปีที่แล้ว

      @@روائعالاسلام-ن6ر يا أستاذي أنا مقدر ظروفك أتمنى أن يعينك الله في عملك يا قائد علماء الأمه