محمد الموافى قام بنشر نوفمبر 24, 2015 قام بنشر نوفمبر 24, 2015 السلام عليكم ورحمة الله وبركاته ارجو المساعدة فى كود بحث فى الفورم بين تاريخين حسب التاريخ بالملف المرفق وشكلرا لسعة صدركم البحث بين تاريخين.rar 1
الـعيدروس قام بنشر نوفمبر 26, 2015 قام بنشر نوفمبر 26, 2015 السلام عليكم المرفق الاول الشرح والاخر الملف شرح_5.rar البحث بين تاريخين_A.rar 6
أبو قاسم قام بنشر نوفمبر 26, 2015 قام بنشر نوفمبر 26, 2015 سوال هل ممكن نفس الفورم يحسب كم عدد تكرار اسم الزبون بين تاريخين مثلا محمد 5 مرات
محمد الموافى قام بنشر نوفمبر 26, 2015 الكاتب قام بنشر نوفمبر 26, 2015 شكرا لك استاذى الفاضل وجزاك الله خيرا وجعله فى ميزان حسناتك تمام
أبو قاسم قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 سوال هل ممكن نفس الفورم يحسب كم عدد تكرار اسم الزبون بين تاريخين مثلا محمد 5 مرات
ياسر خليل أبو البراء قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 أخي الكريم صالح هل تريد التكرار في النتائج على الفورم ..أم في عمود مستقل بعد أعمدة البيانات الموجودة .. أم عمود مستقل يكتب فيه التكرار زائد ظهور العمود في الليست بوكس الموجود في الفورم؟
الـعيدروس قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 (معدل) اقتباس هل ممكن نفس الفورم يحسب كم عدد تكرار اسم الزبون بين تاريخين مثلا محمد 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 بواسطه الـعيدروس
ياسر خليل أبو البراء قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 أخي الحبيب أبو نصار ما هو التعديل الأخير على الملف ..لكي يجلب عدد التكرارات ؟؟ أضف التعديل إذا لم يكن يضايقك الأمر .. الإضافة الجديدة فقط ومكانها في الكود ..
الـعيدروس قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 اخي ياسر خليل ابو البراء وضحت ماذكرته في نفس المشاركة السابقة مع بعض التعديل
ياسر خليل أبو البراء قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 أخي الكريم أبو نصار اعذرني سأطرح عليك عدة أسئلة متتالية ..أولها هل الفورم المسمى Celndr_Ali له دور في الملف ؟؟ حيث أنه يظهر عندي فوورم فارغ لا يوجد عليه شيء أنا لدي أوفيس 2013 64 بت .. وعلى ما يبدو لي أنك استخدمت الأداة Calenadar التي أصبحت غير متوفرة في النسخ الحديثة ولا أدري ما السبب ؟ بالنسبة للأسطر التي أضيفت لحساب عدد مرات التكرار تعطي النتيجة صفر على الدوام
الـعيدروس قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 النتيجة تظهر اخي ياسر للاسم الذي تحدده في الليست بوكس فقط بمعني ينقر على سطر الاسم في الليست بوكس الذي يريد عدد تكراره خلال الفترة هذا الكلام بعد تحديد الفترة من الى في الحقلين وضغط الزر "إستخراج التقرير" ويلية النقر على الاسم الذي يود معرفة تكراره شاهد مرفق الشرح في المشاركة السابقة ستعرف مااقصد
أبو قاسم قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 بارك الله فيك وتشكر على مجهودك الاكثر من رائع
مختار حسين محمود قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 (معدل) أخى العيدروس عمل رائع بارك الله فيك بس فيه ملحوظتين جربت ادخال التاريخين من 1/11/2015 الى 10/11/2015 وحدث الآتى اسم محمد تكرر فى هذه الفترة مرتين بينما يظهر فى الليبل أنه تكرر صفر لى طلب : تبدأ بالبيانات فى النتائج بالتاريخ ثم الباقى ثم ثم أرجوا أن تظهر البيانات فى الفورم كالتالى : رقم العميل اسم العميل كود الصنف ......وهكذا تحياتى تم تعديل نوفمبر 27, 2015 بواسطه مختار حسين محمود
الـعيدروس قام بنشر نوفمبر 27, 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 2
مختار حسين محمود قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 ما شاء الله عليك رائع أخى الكريم جعل فى ميزان حسناتك
ياسر خليل أبو البراء قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 أخي الحبيب أبو نصار ما الحل لمشكلة الأداة Calendar >> هل لها حل مع أوفيس 2013 64 بت ؟
الـعيدروس قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 اخي ياسر بحمل اوفيس 2013 64 بت واجرب ان شاء الله ارفق لك حل هنا بعد ان ارى السبب تحياتي
ياسر خليل أبو البراء قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 أعتقد أنه يمكن حل المشكلة في أوفيس 2010 أو 2013 (32 بت فقط) بتحميل الملف MSCAL.OCS ثم تسجيله عن طريق Command Prompt اما الـ 64 بت فليس له نصيب على ما أعتقد .. عموماً ننتظر محاولاتك علها تأتي بما هو جديد ومفيد
أبو قاسم قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 (معدل) ملف احصاء جميل من ابداع الاستاذ العيدروس والاستاذ والرشدي بس يوجد بة اشكالية انة وقف عند( حسن 12 ) ولم يستطع الوصول الى (حسن 48 ) ما الاسباب ارجو اعطاء فكرة اذا امكن الرشيدى _ إحصاء_111.rar تم تعديل نوفمبر 27, 2015 بواسطه صالح احمد ابو سيف
أبو قاسم قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 وهل تستطيع جعل كلمة البحث والنتائج في فورم واحد
الـعيدروس قام بنشر نوفمبر 28, 2015 قام بنشر نوفمبر 28, 2015 السلام عليكم الاخ الفاضل صالح احمد ابو يوسف افتح موضوع جديد لطلبك ولن يقصر معك الجميع كلن حسب وقته اخي ياسر خليل شاهد المرفق تقويم خاص لاادري لمن هو من ضمن الارشيف عدلنا عليه ان شاء الله يعمل معك عمل معي مع 64 بت اوفيس 2013 البحث بين تاريخين_A3.rar 3
KHMB قام بنشر نوفمبر 28, 2015 قام بنشر نوفمبر 28, 2015 السلام عليكم ورحمة الله عزيزي الاستاذ الفاضل السيد علي العيدروس حفظك الله عمل معي بنظام 64 بت واوفيس 2013 100 % جزاك الله خير الدنيا والآخرة وجزاء الله اخي الفاضل الأستاذ ياسر خليل أبو البراء .
الردود الموصى بها