طلب كود البحث بين تاريخين vba

[محمد الموافى]

السلام عليكم ورحمة الله وبركاته 

ارجو المساعدة فى كود بحث فى الفورم بين تاريخين حسب التاريخ

بالملف المرفق وشكلرا لسعة صدركم

البحث بين تاريخين.rar

[محمد الموافى]

ارجو الرد لمن لديه الافادة

[الـعيدروس]

السلام عليكم

المرفق الاول الشرح

والاخر الملف

شرح_5.rar

البحث بين تاريخين_A.rar

[أبو قاسم]

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

[محمد الموافى]

شكرا لك استاذى الفاضل

وجزاك الله خيرا وجعله فى ميزان حسناتك

تمام

[أبو قاسم]

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

[ياسر خليل أبو البراء]

أخي الكريم صالح

هل تريد التكرار في النتائج على الفورم ..أم في عمود مستقل بعد أعمدة البيانات الموجودة .. أم عمود مستقل يكتب فيه التكرار زائد ظهور العمود في الليست بوكس الموجود في الفورم؟

[الـعيدروس]

 

اقتباس

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

تفضل 

المرفق الاول الشرح

و المرفق الاخر الملف وبه الإضافه

 

الاخ الفاضل ياسر اولا اضفنا ليبل وسميناه "Cu"

واضفنا لكود  حدث "ListBox1_Click"

 الاسطر التاليه

    For ii = 1 To .ListCount - 1
      If Not .List(ii, 1) = vbNullString Then
        If CStr(.List(ii, 1)) Like CStr(.List(.ListIndex, 1)) Then Ct = Ct + 1
      End If
    Next ii
      If Ct Then Cu.Visible = True: Cu.Caption = "تكرر العميل : " & "( " & CStr(.List(.ListIndex, 1)) & " )" & " خلال الفترة " & IIf(Ct = 1, 0, Ct) & " مرات "

ليصبح

Private Sub ListBox1_Click()
Dim Rn As Range
Dim ii, Ct
  On Error GoTo 1
  With Me.ListBox1
    Set Rn = Range(.List(.ListIndex, 6)).Resize(, 6)
       With Rn
            .Activate
       End With
    For ii = 1 To .ListCount - 1
      If Not .List(ii, 1) = vbNullString Then
        If CStr(.List(ii, 1)) Like CStr(.List(.ListIndex, 1)) Then Ct = Ct + 1
      End If
    Next ii
      If Ct Then Cu.Visible = True: Cu.Caption = "تكرر العميل : " & "( " & CStr(.List(.ListIndex, 1)) & " )" & " خلال الفترة " & IIf(Ct = 1, 0, Ct) & " مرات "
  End With
  Set Rn = Nothing
1 End Sub

شرح_6.rar

البحث بين تاريخين_A1.rar

تم تعديل نوفمبر 27, 2015 بواسطه الـعيدروس

[ياسر خليل أبو البراء]

أخي الحبيب أبو نصار

ما هو التعديل الأخير على الملف ..لكي يجلب عدد التكرارات ؟؟ أضف التعديل إذا لم يكن يضايقك الأمر .. الإضافة الجديدة فقط ومكانها في الكود ..

 

[الـعيدروس]

اخي ياسر خليل ابو البراء

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

  

[ياسر خليل أبو البراء]

أخي الكريم أبو نصار

اعذرني سأطرح عليك عدة أسئلة متتالية ..أولها هل الفورم المسمى Celndr_Ali له دور في الملف ؟؟ حيث أنه يظهر عندي فوورم فارغ لا يوجد عليه شيء

أنا لدي أوفيس 2013 64 بت .. وعلى ما يبدو لي أنك استخدمت الأداة Calenadar التي أصبحت غير متوفرة في النسخ الحديثة ولا أدري ما السبب ؟

 

بالنسبة للأسطر التي أضيفت لحساب عدد مرات التكرار تعطي النتيجة صفر على الدوام

[الـعيدروس]

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

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

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

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

         شاهد مرفق الشرح في المشاركة السابقة ستعرف مااقصد

          

 

[أبو قاسم]

بارك الله فيك  وتشكر على مجهودك الاكثر من رائع

[مختار حسين محمود]

أخى العيدروس عمل رائع بارك الله فيك بس فيه ملحوظتين

جربت ادخال  التاريخين من 1/11/2015  الى 10/11/2015 وحدث الآتى

اسم محمد تكرر فى هذه الفترة مرتين  بينما يظهر فى الليبل  أنه تكرر   صفر

لى طلب  :  تبدأ بالبيانات فى النتائج بالتاريخ ثم  الباقى ثم   ثم

أرجوا أن تظهر البيانات  فى الفورم  كالتالى :  رقم العميل  اسم  العميل  كود الصنف ......وهكذا

 

تحياتى

تم تعديل نوفمبر 27, 2015 بواسطه مختار حسين محمود

[الـعيدروس]

بالطبع اخي مختار حسين لان الاسم خلال الفترة لم يذكر اكثر من رمره

لذا لايوجد تكرار !

  اما ماذكرته :

اقتباس

ربت ادخال  التاريخين من 1/11/2015  الى 10/11/2015

يوجد خلل بسيط في كود حدث "Calendar1_Click" في الفورم المسمى "Celndr_Ali"

Ali_Rep.Controls(A_Se).Value = Calendar1.Value

يستبدل بالتالي لعمل عليه فورمات ليأتي بالتاريخ بالشكل الذي نريده "yyyy/mm/dd"

 Ali_Rep.Controls(A_Se).Value = Format(Calendar1.Value, "yyyy/mm/dd")

 

 

اقتباس

أيضا  اسم محمد تكرر فى هذه الفترة مرتين  بينما يظهر فى الليبل  أنه تكرر   صفر

اذهب الى كود "ListBox1_Click" في السطر الحلقة التكراريه 

For ii = 1 To .ListCount - 1

الصح بيكون من 0 كأول سطر في الليست بوكس كالتالي

For ii = 0 To .ListCount - 1

اقتباس

أرجوا أن تظهر البيانات  فى الفورم  كالتالى :  رقم العميل  اسم  العميل  كود الصنف ......وهكذا

 اذهب الى خصائص فورم "Ali_Rep"

 وروح الى خاصية "RightToleft" قيمتها False حولها الى True ان شاء الله ستظهر كما تريد

او ضيف السطر التالي في حدث "UserForm_Initialize"

Me.RightToLeft = True

 

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

 

 

 

البحث بين تاريخين_A2.rar

[مختار حسين محمود]

ما شاء الله عليك رائع أخى الكريم  جعل فى ميزان حسناتك

 

[ياسر خليل أبو البراء]

أخي الحبيب أبو نصار

ما الحل لمشكلة الأداة Calendar >> هل لها حل مع أوفيس 2013 64 بت ؟

[الـعيدروس]

اخي ياسر بحمل اوفيس 2013 64 بت واجرب

ان شاء الله ارفق لك حل هنا بعد ان ارى السبب

تحياتي

[ياسر خليل أبو البراء]

أعتقد أنه يمكن حل المشكلة في أوفيس 2010 أو 2013 (32 بت فقط) بتحميل الملف MSCAL.OCS ثم تسجيله عن طريق Command Prompt

اما الـ 64 بت فليس له نصيب على ما أعتقد ..

عموماً ننتظر محاولاتك علها تأتي بما هو جديد ومفيد

[أبو قاسم]

 

ملف احصاء جميل  من ابداع الاستاذ العيدروس والاستاذ   والرشدي  بس يوجد بة اشكالية انة وقف عند( حسن 12 ) ولم يستطع الوصول الى (حسن 48 ) ما الاسباب ارجو اعطاء فكرة اذا امكن الرشيدى _ إحصاء_111.rar

تم تعديل نوفمبر 27, 2015 بواسطه صالح احمد ابو سيف

[أبو قاسم]

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

[أبو قاسم]

للرفع

[أبو قاسم]

للرفع

[الـعيدروس]

السلام عليكم

الاخ الفاضل صالح احمد ابو يوسف

 افتح موضوع جديد لطلبك 

ولن يقصر معك الجميع كلن حسب وقته

 

اخي ياسر خليل

شاهد المرفق تقويم خاص لاادري لمن هو من ضمن الارشيف

 عدلنا عليه ان شاء الله يعمل معك عمل معي مع 64 بت اوفيس 2013

البحث بين تاريخين_A3.rar

[KHMB]

السلام عليكم ورحمة الله

عزيزي الاستاذ الفاضل السيد علي العيدروس  حفظك الله

عمل معي بنظام 64 بت واوفيس 2013 100 %

جزاك الله خير الدنيا والآخرة وجزاء الله اخي الفاضل الأستاذ ياسر خليل أبو البراء .