حسين العصلوجى

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

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

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

هذا حسب ما فهمت من كلامك اي تعديل خبرني التواصل من خلال الفورم.rar

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

ما هو التطوير الذي تريده للدالة ويمكن اضافته لها وعمل دالة معرفة تفي باحتياجاتك

اخي الغالي شغلتك بسيطه وما تحتاج داله معرفه ولا اي اكواد جرب المرفق لعله يفي بالغرض واي تعديل خبرني _Hدالة نسب.rar

اذا :- المطلوب هو عمل دالة تستند في عملها الي جدول نسب تقوم انت بادخاله يدويا وتستطيع تغير نطاق القيم واضافة نطاقات جديده؟

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

Sub hide() lr = Range("A65436").End(xlUp).Row For X = 1 To lr If Application.Sum(Range(Cells(X, "A"), Cells(X, "M"))) = 0 Then Rows(X).Select Selection.EntireRow.Hidden = True End If Next End Sub حيلة صغيره لكني اعتقد انها تفي بالغرض بانتظار اثراءات اخري للاعضاء *حاول دائما ارفاق ملفات في مواضيعك لشرح المطلوب بصورة افضل والتطبيق عليه تقبل تحياتي hide.rar

الاخ / عاطف ماهي مشكلتك مع هذا الكود حتي نتمكن من مساعدتك

اخي الغالي / ابو البراء تحية طيبه لك علي مشاركتك ونقاشك لان هذا هو هدف المنتدي طرح العديد من الرؤي ومناقشتها للوصول للافضل واضافة المزيد من الخبرات انا اتفق معك تماما ان الحلقات التكرارية تسبب بطء الكود في حالة كم البيانات الكبير لكن الكود بوضعه الاول ايضا سيسبب بطء كبير لك ان تتخيل 1000 دالة في الملف تتغير بتغير كل قيمه فالشيت لكن :- مع اضافة السطر الذي اقترحته يكون هو الحل الامثل والاسرع تقبل تحياتي

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then 1 r = 1 LR = Range("E65436").End(xlUp).Row Range("$c$1:$c$" & LR).ClearContents For x = 1 To LR If Cells(x, "E") <> "" Then Cells(x, "C") = r r = r + 1 End If Next End If End Sub اثراءا للموضوع حل اخر باستخدام الاكود دون ادراج دالة في ملف الاكسل ترقيم تلقائي3.rar

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

ملفك يحتوي شيت واحد للعملاء والموردين فكيف يتم التفريق وما هو الشكل المطلوب للكشف برجاء التوضيح في ملف