تطبيق على البحث المتقدم باستخدام المصفوفات

[عاطف عبد العليم محمد]

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

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

والمرجو من    استاذنا    الاخ / ياسر العربي    صاحب كود البحث باستخدام المصفوفات 

                     استاذنا  الأخ / ياسر خليل       صاحب شرح الكود وتعديله

                      او من اي اخ كريم

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

وفق الله الجميع 

نموذج حسابات.rar

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

وعليكم السلام أخي الكريم عاطف

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

قم بشرح المطلوب بلغة الإكسيل ..صفوف أعمدة ورقة عمل .. حتى أفهم المطلوب كما وضح ما هي شكل النتائج المتوقعة

والترحيل من أين سيتم وإلى أين سيتم وما هي شروط الترحيل بالتفصيل

أرجو ألا تكون متضايق من ردي هذا

 

[عاطف عبد العليم محمد]

استاذي ياسر خليل ( ابو البراء )  اسعدك الله في الدارين  

لست متضايق من ردك بل على العكس ، احييت املي في تنفيذ الحل

الترحيل من أين ؟ من صفحة ( قيود اليومية) 

الترحيل الى اين ؟ الى صفحة ( بنوك وصندوق) 

ترحيل ماذا ؟ ترحيل السطر الذي به رقم الحساب الموجود في صفحة ( بنوك وصندوق )

شروط الترحيل ؟

الشرط الأول رقم الحساب   وهو موجود في الخلية m705   والرقم الثاني في الخلية v705  والرقم الثالث في الخلية ae705  وهكذا الفرق بينهم 9 

والشرط الثاني التاريخ يكون بين  ويشمل  التاريخين الموجودين في اعلى صفحة ( بنوك وصندوق) 

ما الخلايا  التي ترحل ؟    التاريخ الهجري والتاريخ الميلادي ونوع سند القيد ورقم سند القيد والبيان ومدين ودائن 

خانة الرصيد تحسب تلقائيا من نتيجة الترحيل

أين يوضع الترحيل ؟ في صفحة ( بنوك وصندوق )  لكل حساب على حدة والترحيل يبدء من صف رقم 709 

 

كيف اذهب الى صف رقم 709 ؟ اضغط على رقم الحساب (   الموجود في عمود f  صفحة بنوك وصندوق )

ماهي شكل النتائج الأخيرة ؟ النتيجة الأخيرة هي  البيانات الموجودة الأن في صفحة ( بنوك وصندوق ) فيكون أرصدة الحسابات 

على التوالي 10 و20 و30و 40 و50

هل من مزيد من التوضيح ؟      لو قرأت استاذي الماكرو  لتبين لك الامر

Sub ترحيـــــ1صفحة()
Application.EnableEvents = False
Application.ScreenUpdating = False
  
   
    d = Range("f7", Range("f7").End(xlDown)).Count
    a = 13: b = 19 'رقم 13 تمثل العمود m     ,  رقم 19 تمثل العمود s
        For I = 1 To d
        Range(Cells(709, a), Cells(1100, b)).ClearContents
        a = a + 9
        b = b + 9
    Next I
    
     
    dat1 = Range("e1").Value      ' شهر البداية
    dat2 = Range("e2").Value       ' شهر النهاية
    rng1 = Sheets("قيوداليومية").Range("m11").Value   'عدد الادخالات موجودة في هذه الخانة
    
    For P = 13 To ((d + 1) * 9) Step 9
        s = 709
        X = Cells(705, P).Value      ' رقم الحساب المطلوب الكشف له
        
        For I = 6 To rng1 + 6  ' ستة لأن البيانات في قيود اليومية من السطر السادس
            x1 = Sheets("قيوداليومية").Cells(I, 3).Value
            date9 = Sheets("قيوداليومية").Cells(I, 5).Value                 '        تاريخ الحساب المتواجد في جدول القيود
            If X <> x1 Or dat1 > date9 Or dat2 < date9 Then GoTo out1     'اذا الحساب ليس هو أو التاريخ ليس بين التاريخ الأدنى والأعلي فلا تنفذ
                    
            Dim m, C, e As Integer
            e = 4
            C = P
           
            For m = 1 To 7
                Cells(s, C).Value = Sheets("قيوداليومية").Cells(I, e).Value
                e = e + 1
                C = C + 1
            Next m
            s = s + 1
out1:
        Next I
       Next P
 
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

ارجو ان أكون وضحت 

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

[عاطف عبد العليم محمد]

في ١١‏/١٠‏/٢٠١٦ at 19:32, ياسر خليل أبو البراء said:

وعليكم السلام أخي الكريم عاطف

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

قم بشرح المطلوب بلغة الإكسيل ..صفوف أعمدة ورقة عمل .. حتى أفهم المطلوب كما وضح ما هي شكل النتائج المتوقعة

والترحيل من أين سيتم وإلى أين سيتم وما هي شروط الترحيل بالتفصيل

أرجو ألا تكون متضايق من ردي هذا

 

ارجو الا تكون متضايق من استجابتي