مساعده بجعل نتائج معينة فقط هى التى تظهر

[محمود أبوالدهب]

ارجوا من اهل الخبرة هنا مساعدتى وشكرا لكم جميعا 

بالبداية يوجد اربع صفوف بالاعلى لادخال البيانات من  الصف 4 الى 7 وبهذه النسخة للشرح لا يعمل فيها الا ادخال البيانات الذى بالصف اربعه (4) وباقي الصفوف لا تعمل والفكرة سريعا انها يتم ادخال تاريخ في الخية الصفراء جنب -من تاريخ- , وتاريخ الانتهاء في -الى تاريخ  -كما بالمثال الاعلى من 1/4/2010 الى 30/4/2014 وايضا لابد ادخال  النسبة بالمعاش وفي هذا المثال كان الناتج 1/2 المعاش وترتب علي ذاك ,,,,,,, ان الصفوف التى بالاسف من اصف 9 الى الاخر مسؤلة عن اظهار النتيجة ..... فكما تلحظون تظههر النتيجة بلاسفل فالجدوال التى تظهر النتيجة حتى هذا التاريخ والجداول الاخرى التى لم يصل التاريخ اليها تظل فارعة ......... فهل من طريقة تجعل تلك الجداول  لا تظهر نهائيا (اى الجداول الفارغه ) وتظهر فقط الجداول التى بها بيانات ومعنى الامر مش مجرد كود لاحفال الخلايا الفارغة فانا اعمل به بمكرو التصفيه والطباعة ولاكن ياخذ وقت او ان الامر يتعب العين فى انظر لتك كل الجداول فلو انا استخدم ادخال البايانت في باقي اصفوف 5 و 6 و 7 لاتعب ذاك عينى ولارهقنى النظر في كل تلك الخلايا الفارغة والتى بيها بيانات وقد تربكنى ......... فارجو لو ان احد ما عنده حل تلك المشكلة ان يطلعنى عليها وشكرا للكم جميعا                                                                                                         
 

 

شرح بيسط اخر بالصورة 

وهناك نسخه من اللشرح داخل المرفق

المصنف1.rar

[محمود أبوالدهب]

كل سنة وانتم طيبين يظهر رمضان مش مخلى الخبراء فاضين خير وبانتظار الرد وشكرا جميعا مرة اخرى

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

اطلعت على الملف وحاولت فهم المطلوب . ومع الرغم من كثرة التفاصيل التي ذكرتها إلا أن الموضوع مبهم (خصوصاً أنك ذكرت أنك لا تريد كود لإخفاء الجداول الفارغة)

المطلوب يلزمه كود ليقوم بعملية الإخفاء للصفوف الغير مرغوب فيها .. حاول ترفق شكل الورقة بعد إخفاء الجداول الغير مرغوب فيها كنموذج للإطلاع عليه

[محمود أبوالدهب]

3 ساعات مضت, ياسر خليل أبو البراء said:

اطلعت على الملف وحاولت فهم المطلوب . ومع الرغم من كثرة التفاصيل التي ذكرتها إلا أن الموضوع مبهم (خصوصاً أنك ذكرت أنك لا تريد كود لإخفاء الجداول الفارغة)

المطلوب يلزمه كود ليقوم بعملية الإخفاء للصفوف الغير مرغوب فيها .. حاول ترفق شكل الورقة بعد إخفاء الجداول الغير مرغوب فيها كنموذج للإطلاع عليه

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

شرح ادق رابط على youtube اتمنى ن الفكرة توصل 

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

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

أخي الكريم محمود

المشكلة في هيكلة الملف .. غير مريحة للعمل عليها في الحقيقة

عموماً جرب الكود التالي عله يفي بالغرض

Sub Test()
    Dim rng As Range
    Dim cel As Range

    Application.ScreenUpdating = False
        With ActiveSheet
            .Rows("12:131").Hidden = False
            If Not IsEmpty(.Range("D4")) And Not IsEmpty(.Range("H4")) Then
                For Each cel In .Range("B12:B55")
                    If cel.Value = "النسبة 1" Then
                        If cel.Offset(1) = "" Or cel.Offset(1) = 0 Then
                            If rng Is Nothing Then Set rng = cel.Resize(4) Else Set rng = Union(cel.Resize(4), rng)
                        End If
                    End If
                Next cel
                If Not rng Is Nothing Then
                    rng.EntireRow.Hidden = True
                End If
            Else
                .Rows("12:55").Hidden = True
            End If
            If .Range("D55") = "" Or .Range("D55") = 0 Then .Rows("54:55").Hidden = True
            Set rng = Nothing: Set cel = Nothing
            '===============================================================
            If Not IsEmpty(.Range("D5")) And Not IsEmpty(.Range("H5")) Then
                For Each cel In .Range("B56:B99")
                    If cel.Value = "النسبة 2" Then
                        If cel.Offset(1) = "" Or cel.Offset(1) = 0 Then
                            If rng Is Nothing Then
                                Set rng = cel.Resize(4)
                            Else
                                Set rng = Union(cel.Resize(4), rng)
                            End If
                        End If
                    End If
                Next cel
                If Not rng Is Nothing Then
                    rng.EntireRow.Hidden = True
                End If
            Else
                .Rows("56:99").Hidden = True
            End If
            If .Range("D99") = "" Or .Range("D99") = 0 Then .Rows("98:99").Hidden = True
            Set rng = Nothing: Set cel = Nothing
            '===============================================================
            If Not IsEmpty(.Range("D6")) And Not IsEmpty(.Range("H6")) Then
                For Each cel In .Range("B100:B131")
                    If cel.Value = "النسبة 3" Then
                        If cel.Offset(1) = "" Or cel.Offset(1) = 0 Then
                            If rng Is Nothing Then
                                Set rng = cel.Resize(4)
                            Else
                                Set rng = Union(cel.Resize(4), rng)
                            End If
                        End If
                    End If
                Next cel
                If Not rng Is Nothing Then
                    rng.EntireRow.Hidden = True
                End If
            Else
                .Rows("100:131").Hidden = True
            End If
            If .Range("D104") = "" Or .Range("D104") = 0 Then .Rows("100:108").Hidden = True
            If .Range("D131") = "" Or .Range("D131") = 0 Then .Rows("129:131").Hidden = True
    
            Set rng = Nothing: Set cel = Nothing
        End With
    Application.ScreenUpdating = True
End Sub

 

[محمود أبوالدهب]

اشكرك شكرا جزيلا استاذنا العزيز 

بنسبة كبيرة ادى الغرض بس لو امكن هل ممكن شرح واحده من الثلاث بالمكرو مع اضافة بسيطه من حضرتك لو امكن واتمنى مكنش بتعب حضرتك 

ان المكرو بالجهاز بالهيئة لا يعمل اذا كان به اى كلمات عربي فممكن نلغي كلمة النسبة 1 و2 و 3 من المكرو 

وايضا الخلية h7 و l7 مسؤلين عن نتائج باجدول من الصف 9 الى 11 الى هو  "صرف المنحة"

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

ولو وضع هذا المكرو بورك شيت الللصفحة هل حيعمل تلقائي ام ماذا ؟؟ ولا لازم اضع له ايكونه يعمل عند الضغط عليها ؟؟

- - - - - -  واخر شي انا لاحظة ان حضرتك ابديت انزعاجك من التصميم فلو حضرتك تفدنى في الامر اكون شاكر لحضرتك 

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

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

الأفضل في حل أي مشكلة هو تناول نقطة نقطة .. حتى إذا انتهيت منها انتقلت لأخرى 

النقطة الأولى : شرح الماكرو : 

يعتمد الكود على عمل حلقة تكرارية لنطاق محدد ويطابق وجود نص معين .. لاحظت وجود النص "النسبة 1" في الجداول في الجزء الأول فقمت بالاعتماد عليها فإذا كانت الخلية تساوي النص المذكور ، يتم اختبار الخلية التالية (التي تقع تحت خلية العنوان "النسبة 1") فإذا كانت الخلية فارغة أو قيمتها تساوي صفر يتم وضع الخلية بامتداد 4 صفوف (عدد صفوف الجدول) في متغير من النوع نطاق بحيث يكون أسرع في التنفيذ ... وهكذا مع كل خلية داخل الحلقة التكرارية ، وفي نهاية المطاف يتكون لديك نطاق مجمع فيه الصفوف التي تم تطابق الشروط معها ونقوم بإخفاء الصفوف لذلك النطاق مرة واحدة لكل جزء وهذا أعتقد أسرع قليلاً 

 

النقطة الثانية : جهاز العمل لا يعمل إذا كان به كلمات عربي .. ما هي نسخة الأوفيس ونسخة الويندوز المنصبة عليه؟

جرب الصورة التالية لعلها تحل مشكلة جهاز العمل

حاول تناقش نقطة نقطة .. لتجد استجابة أسرع من إخوانك بالمنتدى

[محمود أبوالدهب]

43 دقائق مضت, ياسر خليل أبو البراء said:

الأفضل في حل أي مشكلة هو تناول نقطة نقطة .. حتى إذا انتهيت منها انتقلت لأخرى 

النقطة الأولى : شرح الماكرو : 

يعتمد الكود على عمل حلقة تكرارية لنطاق محدد ويطابق وجود نص معين .. لاحظت وجود النص "النسبة 1" في الجداول في الجزء الأول فقمت بالاعتماد عليها فإذا كانت الخلية تساوي النص المذكور ، يتم اختبار الخلية التالية (التي تقع تحت خلية العنوان "النسبة 1") فإذا كانت الخلية فارغة أو قيمتها تساوي صفر يتم وضع الخلية بامتداد 4 صفوف (عدد صفوف الجدول) في متغير من النوع نطاق بحيث يكون أسرع في التنفيذ ... وهكذا مع كل خلية داخل الحلقة التكرارية ، وفي نهاية المطاف يتكون لديك نطاق مجمع فيه الصفوف التي تم تطابق الشروط معها ونقوم بإخفاء الصفوف لذلك النطاق مرة واحدة لكل جزء وهذا أعتقد أسرع قليلاً 

 

النقطة الثانية : جهاز العمل لا يعمل إذا كان به كلمات عربي .. ما هي نسخة الأوفيس ونسخة الويندوز المنصبة عليه؟

جرب الصورة التالية لعلها تحل مشكلة جهاز العمل

حاول تناقش نقطة نقطة .. لتجد استجابة أسرع من إخوانك بالمنتدى

اشكرك جزيلا وسأخذ في الاعتبار الامر كثرة الاسلئة

ثانيا : حاولت كثيرا في الامر ولكن جهاز الهيئة عبارة عن مستقبل سيرفر من المركز الرئيسي ولم تبدى اى محاولات منى لتصحيح الامر وليس لي حق الدخول على administro

وعليه ممكن اغير النسبة لاى كمه اخرى وتحل المشكل ان شاء الله 

 

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

 

تم تعديل يونيو 19, 2017 بواسطه محمود أبوالدهب

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

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

وحاول أن تستخدم الأكواد بدلاً من المعادلات التي قد تثقل وترهق الملف بشكل كبير خصوصاً إذا كثرت أوراق العمل وكثرت البيانات

أرجو أن يساعدك ذلك في حل مشكلتك إن شاء الله

(رجاء يرجى عدم اقتباس الردود الطويلة لكي لا يطول الموضوع بدون داعي)

تقبل وافر تقديري واحترامي وكل عام وأنت بخير

[محمود أبوالدهب]

هل بالامكان ان تعطيني مثال على الاكوارد بدلا من المعادلات بلملف السابق ارفاقة بجداول النتيجة الخاصة بالنسبة 1 لان مبتدء في الاكسيل وما اعرفه عنه عرفته عن طريقة هذا الموقع المحترم

 

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

أخي الكريم محمود

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

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

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

ربما أتغيب الفترة القادمة (كل عام وأنتم بخير) .. وتقبل الله منا ومنكم

[محمود أبوالدهب]

كل عام وانته بخير وشكرا جزيلا والله استفد كتير من حضرتك 

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

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

والحمد لله الذي بنعمته تتم الصالحات