Mahmoudhamed

السلام عليكم 

عندي مشكلة في معادلة sumbycolor

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




 

Function SumByColor(CellColor As Range, SumRange As Range)
Application.Volatile
Dim ICol As Integer
Dim TCell As Range
ICol = CellColor.Interior.ColorIndex
For Each TCell In SumRange
If ICol = TCell.Interior.ColorIndex Then
SumByColor = SumByColor + TCell.Value
End If
Next TCell
End Function

هل هناك أحد يمكنه مساعدتى !!!

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

استخدم المعادلة التالية 

=IF(G2>1,(F2*0.012),IF(G2>0.9,((G2*F2)*0.01),IF(G2>0.8,(F2*0.009),IF(G2>0.75,((G2*F2)*0.01),IF(G2>0.7,(F2*0.0075),IF(G2>0.65,((G2*F2)*0.01),IF(G2>0.6,(F2*0.0065),IF(G2>0.5,((G2*F2)*0.01),0))))))))

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

بداية من 80% حتى 84.99 % يستحق 90% من ال 1%

بداية من 90% حتى 99.99% يستحق نفس النسبة المحققة من ال 1%

والصحيح أن تكون نهاية الشريحة هو بداية الشريحة التالية ، وهو ما قمت بتعديله في المعادلة إجتهادا مني (حتى 89.99%)

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

معادلة حساب عمولة بشروط نسب المحققات (1).xlsx

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

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

أود المساعدة في إيجاد طريقة ، بحيث إذا كتبت  
kis
تظهر لي نتيجة 
Pakistan
من ضمن النتائج

وشكرا لمساعدتكم

السلام عليكم

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

مثال : أريد تحديد الخلايا في العمود  A المشابهة لنفس أرقام العمود B ، ولكن إذا إستخدمت highlite cells - duplicate value بين العمودين ، فيسحدد أيضا بعض الخلايا الموجود في عمود A بحكم أنها مكررة في نفس العمود A وهذا ما لا أريده

مرفق نسخة من الملف 

أرجوا المساعدة ، وتقبلوا تحياتي أعضاء المنتدى المحترمين.

Table1-table2.xlsx

السلام عليكم 

محتاج ماكرو من خلاله أربطه بمفتاح في ملف إكسل ومن خلاله أشغل صوت من ملف الميديا الأساسي في الويندوز 

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

شكرا مقدما لمساعدتكم ...

السلام عليكم 

أستخدم دالة للتجميع باستخدام لون الخلية إسمها 

Sumbycolor 

وفيما يلي الكود الخاص بها 

 

Function SumByColor(CellColor As Range, SumRange As Range)
Application.Volatile
Dim ICol As Integer
Dim TCell As Range
ICol = CellColor.Interior.ColorIndex
For Each TCell In SumRange
If ICol = TCell.Interior.ColorIndex Then
SumByColor = SumByColor + TCell.Value
End If
Next TCell
End Function

بلا شك الدالة مفيدة جدا في التقارير ، ولكن أحيانا يحدث أن تتوقف الدالة عن العمل ويظهر في خانة النتيجة 
#N/A

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

edit in formula bar + Enter

هل من طريقة أخرى لتفادي المشكلة في هذه الدالة ؟ّ!!!!!!!

شكرا لمساعدتكم مقدما 

ألف شكر ، خالص تحياتي 

التنسيق في كتابة التعليق غير مظبوط ، هل من الممكن ان تقوم بتعديل الملف واعادة ارساله ، وشكرا لتعبك.

شكرا لك ، ولكن هل يمكنك شرح المعادلة لي بحيث يمكنني تعديل عدد الأيام قبل تاريخ الإستحقاق (20 يوم مثلا) ، ولك جزيل الشكر

السلام عليكم 

لو سمحتم كنت محتاج مساعدة بحيث إني أميز الخلية / أو الصف الذي يحتوي على تاريخ قريب للسداد بلون مميز ، ويختفي هذا اللون بعد هذا التاريخ .

حسب المثال المرفق
تاريخ اليوم هو: 20/09/2017

لو افترضنا أننا أريد تلوين الصفوف التي تستحق السداد خلال شهر ، معنى ذلك أنني أريد أن تكون تواريخ 23/09/2017 ، 17/10/2017 مميزين ، بينما تاريخ يوم 01/07/2017 بلون عادي حيث أنني قد قمت فعلا بالسداد

أشكركم مقدما على مساعدتكم

شكرا جزيلا.

ألف شكر ، ولكن هل هناك طريقة بديلة لضغط 
CTRL + SHIFT + ENTER 

لأنه كل مرة أقوم بالضغط على الخية تختفي هذه الأقواس }، وتتغير القيمة الناتجة من المعادلة

أنا دلوقتي عاوز اخر قيمة موجودة مقابل التاريخ ، ولكن أنا عاوز كمان لو لم يجد هذه القيمة يجيب لي القيمة في اقرب تاريخ قبل هذا اليوم 

مثلا في الملف المرفق ، انا حددت تاريخ يوم 24 ، لو حبيت اغيرها واكتب مثلا يوم 25 ، واليوم دة مش موجود في الجدول ، عاوزه يجيب لي قيمة يوم 24

شكرا لمساعدتكم مقدما يا أساتذة

date file.rar