كشف حساب مجمع

[الدهشوري]

السادة خبراء المنتدى الرائع :

 ارغب في عمل كشف حساب مجمع لعهد مسلمة والشرح موجود بالمرفق 

كشف حساب.rar

[الدهشوري]

يا استاذه هذا الصرح الجميل لم اتعود منكم علي عدم الرد ..... وشكراً

[كريم الفلسطيني]

سلام..

 

رايت ملفك المرسل

انا شخصيا لم افهم مالذي تريده بالظبط

و ربما حدث هذا مع الاعضاء الاخرين...

 

[سليم حاصبيا]

اقترح ان تضع كل عهدة غي ورقة خاصة تتم تسميتها باللغة الاجنبية لتسهيل التعامل مع الملف

و ان تكون البيانات في نفس الخلايا

 

تم تعديل فبراير 15, 2016 بواسطه سليم حاصبيا

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

أخي الفاضل الدهشوري

إليك حل بالأكواد (رغم أنك طلبت أن يكون بالمعادلات) .. لعل وعسى أن يكون المطلوب .. وأنا شخصياً أفضل التعامل بالأكواد

Sub ExtractData()
    Dim arrData, arrOut(1 To 1000, 1 To 5), I As Long, P As Long, D1 As Date, D2 As Date, isQualified As Boolean
    D1 = ورقة2.Range("E2").Value
    D2 = ورقة2.Range("H2").Value
    
    With ورقة1
        arrData = .Range("A1:H" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
        For I = 1 To UBound(arrData, 1)
            If arrData(I, 1) = "التاريخ:" Then
                If arrData(I, 2) >= D1 And arrData(I, 2) <= D2 Then
                    P = P + 1
                    arrOut(P, 1) = arrData(I, 7)
                    arrOut(P, 5) = arrData(I, 2)
                    isQualified = True
                Else
                    isQualified = False
                End If
            End If
            If arrData(I, 1) = "إجمالى" And isQualified Then arrOut(P, 2) = arrData(I, 2)
        Next I
    End With
    
    ورقة2.Range("B5").Resize(UBound(arrOut, 1), UBound(arrOut, 2)).Value = arrOut
End Sub

تقبل تحياتي

كشف حساب.rar

[كريم الفلسطيني]

On 15/02/2016 at 9:16 PM, ياسر خليل أبو البراء said:

أخي الفاضل الدهشوري

إليك حل بالأكواد (رغم أنك طلبت أن يكون بالمعادلات) .. لعل وعسى أن يكون المطلوب .. وأنا شخصياً أفضل التعامل بالأكواد

Sub ExtractData()
    Dim arrData, arrOut(1 To 1000, 1 To 5), I As Long, P As Long, D1 As Date, D2 As Date, isQualified As Boolean
    D1 = ورقة2.Range("E2").Value
    D2 = ورقة2.Range("H2").Value
    
    With ورقة1
        arrData = .Range("A1:H" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
        For I = 1 To UBound(arrData, 1)
            If arrData(I, 1) = "التاريخ:" Then
                If arrData(I, 2) >= D1 And arrData(I, 2) <= D2 Then
                    P = P + 1
                    arrOut(P, 1) = arrData(I, 7)
                    arrOut(P, 5) = arrData(I, 2)
                    isQualified = True
                Else
                    isQualified = False
                End If
            End If
            If arrData(I, 1) = "إجمالى" And isQualified Then arrOut(P, 2) = arrData(I, 2)
        Next I
    End With
    
    ورقة2.Range("B5").Resize(UBound(arrOut, 1), UBound(arrOut, 2)).Value = arrOut
End Sub

تقبل تحياتي

كشف حساب.rar

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

بالنسة للمعادلات

ماهي المعادلات التي يمكن ان اعمل بها لاصل لنفس النتيجة ؟

شكرا

[الدهشوري]

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

ما انجزتموه يفى بالغرض وشكراً

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

وجزيت خيراً بمثل ما دعوت أيا دهشوري ..

الحمد لله أن تم المطلوب على خير ، وإن شاء الله تجد من يقدم لك حل باستخدام المعادلات (ولكن لابد لاستخدام المعادلات أن تكون ورقة البيانات منتظمة بشكل يسهل معه استخدام المعادلات)

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

[كريم الفلسطيني]

سلام اخي

بقد عملت لك الملف بالمعادلات

انا عملت بطريقة بسيطة

و لو احد من الاخوة لديه ما هو افضل فليقم بتعديله

 

مع العلم اني اضفت ورقة قمت بتنظيم المعطيات فيها

يمكنك اخفائها....

 

 

 

كشف الحساب بالمعادلات.rar

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

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

بارك الله فيك على مبادرتك الطيبة بتقديم حل بالمعادلات

جرب في الورقة المسماة "تصفية عهدة" في الجدول الثاني اللي هو بتاريخ 21/10/2015 غير السنة إلى 2016 (بهذا لن يتم إدراجه في الكشف المجمع ) ..تحدث فجوة في كشف النتائج لأن التاريخ لا يقع ضمن التاريخين المحددين .. فتظهر النتيجة صفر ويبقى هذا الصف فجوة في البيانات ..

تقبل تحياتي