أبو قاسم

ربنا يوفقك صراحة ابداع ولك الشكر والتقدير على تجاوبك بهذة السرعة

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

للرفع

للرفع

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

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

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

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

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

لكم كل الشكر والتقدير يفي بالغرض وزيادة تحياتي للجميع وعلى اتفاعل

جزيتم خير الجزء على هذا العمل

اخواني الكرام ارجو ان الاقي طريقة منكم في الاتي : اخفاء جميع صفوف الورقة واظهارها بزر امر فقط الصف 1 يبقى ثابت اخفاء صفوف محددة.rar

ارفعة الى موقع خارجي ونسخ لرابط

الكود الاول Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False On Error Resume Next Dim R As Integer If Not Intersect(Target.Cells(1, 1), Union(Range("B3:B5000"), Range("o3:o5000"))) Is Nothing Then R = Target.Row If Cells(R, "B").Value <> "" Then Cells(R, "A").Value = R + 4948 Cells(R, "C").Value = WorksheetFunction.VLookup(Cells(R, "B"), [TUNNEL3], 2, 0) Else Union(Cells(R, "0"), Cells(R, "0")).ClearContents End If End If If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 9 Then With Target.Offset(, 1) .Formula = "=MOD(" & (Target - Target.Offset(, -1)) & ",1)": .Value = .Value End With End If If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 12 Then With Target.Offset(, 1) .Formula = "=MOD(" & (Target - Target.Offset(, -4)) & ",1)": .Value = .Value End With End If If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("E3:E5000")) Is Nothing Then With Target(1, 2) .Value = Date Application.ScreenUpdating = True End With End If On Error GoTo 0 End Sub الكود الثاني Sub Circles() Dim c As Range Dim MyRng As Range Set MyRng = Range("j3:j500") Call RemoveCircles For Each c In MyRng If c.Value < Cells(1, 2) Then Set v = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) v.Fill.Visible = msoFalse v.Line.ForeColor.SchemeColor = 10 v.Line.Weight = 1.25 End If Next End Sub

اشكرك على ردك ولاكن كانت الفكرة تتلخيص كما المشاركة السابقة

للرفع

للرفع

اشكرك على الرد هذا تصوري يكون على فورم

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

اشكرك ابداع اكثر مما كنت اتصور لم يصل تفكيري الى هذا المستوى من ابداعك اشكرك جزيل الشكر وربنا يجزيك الف خير دنيا واخرة

للرفع التفاصيل داخل الملف

ارجو من سيادتكم التعديل على الفورم التالي في الملف المرفق احصاء.rar احصاء.rar

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

ارجو الشرح اكثر شي جميل جزيت خيرا

بحث تاريخ ماهي الطريقة