محمد حسن المحمد

وعليكم السلام ورحمة الله وبركاته
أخي الكريم  ..ضع المعادلة التالية في الخلية G19 واسحب نزولاً
=IF(E19="";"";IF($H$11="";"";IF(D19<=12;1000;IF(D19<=22;1538;IF(D19>22;1296))))) للارسال.xlsm

وعليكم السلام ورحمة الله وبركاته
تفضل اخي الكريم
 
معلومات التلاميذ خاصة بدفتر الاحصاء.xlsx

وعليكم السلام ورحمة الله وبركاته
إن كنت تريد إجمالي الغياب يرجى وضع المعادلة التالية في الخلية Y7
=SUM(COUNTIFS(C7:X7;"غ");COUNTIFS(C7:X7;"م");COUNTIFS(C7:X7;"ب")) وفي الخلية Z7
=COUNTIFS(C7:X7;"م") ثم اسحب نزولاً ..بالتوفيق إن شاء الله تعالى  .والسلام عليكم
 

وعليكم السلام
هل هذا هو المطلوب؟
في ورقة المخزن بدءاً من الخلية D2
=IF(B2="";"";SUMIF(المشتريات!$B$2:$D$1000;المخزن!B2;المشتريات!$D$2:$D$1000)-SUMIF(المبيعات!$B$2:$D$1000;المخزن!B2;المبيعات!$D$2:$D$1000)) يرجى التجربة....

U.194 PL for BAS.xlsx

أخي الكريم  ..عدل المعادلة كما يلي:
=RANK(B6;$B$6:$B$28;0) المصنف1 (1).xlsb

وعليكم السلام  ..تفضل أرجو أن يكون المطلوب
تحريك الصف العلوي والسفلي.xlsm

وعليكم السلام ..قم أولاً بتحويل تنسيق الأرقام إلى رقم لأنها منسقة على شكل نص من  V9:V15
أو اضرب قيمة كل خلية بـ 1
أما القيم الرقمية في العمود .AC9:AE15
استبدل كلمة دائن بفراغ وحوله إلى رقم   ..أو استخدم المعادلة التالية:
=SUBSTITUTE(AC9;"دائن";"") نموذج اوفيسنا.xlsx

السلام عليكم أخي الكريم
من تبويب DATA: Text to Columns <<

ثم Next تختار Comma



تقبل تحياتي.

تفضل أخي الكريم
=IF($D5>=1*TEXT(TODAY();"dd");$D5-1*TEXT(TODAY();"dd");1*TEXT(EOMONTH(TODAY();1);"dd")-TEXT(TODAY();"dd")+$D5-1)
موعد الرواتب (1).xlsx

المشكلة في تنسيق الخلايا
 

المثال.xlsx

السلام عليكم
=IF(F3>=80%;"ممتاز";IF(F3>=60%;"جيد";IF(F3<60%;"ضعيف"))) تفضل
كتابة دالة شرطية.xlsx

السلام عليكم أخي الكريم
هذا كود تفقيط جزى الله خيراً من عمله ووضعه بين أيدي الناس ليعملوا به
يمكنك تعديله ليناسب عملك
Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim Myno As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim i As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo < 0 Then TheNo = TheNo * -1 ReMark = "يتبقى لكم " Else ReMark = "فقط " End If If TheNo = 0 Then NoToTxt = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "أربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "أربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "واحد" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "أربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== GetNo = Format(TheNo, "000000000000.00") i = 0 Do While i < 15 If i < 12 Then Myno = Mid$(GetNo, i + 1, 3) Else Myno = "0" + Mid$(GetNo, i + 2, 2) End If If (Mid$(Myno, 1, 3)) > 0 Then RdNo = Mid$(Myno, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(Myno, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(Myno, 2, 1) My10 = MyArry2(RdNo) If Mid$(Myno, 2, 2) = 11 Then My11 = "إحدى عشر" If Mid$(Myno, 2, 2) = 12 Then My12 = "إثنى عشر" If Mid$(Myno, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12 End If If (i = 0) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (i = 3) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (i = 6) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyThou = GetTxt + " ألف" Else MyThou = GetTxt + " آلاف" If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " ألف" If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " ألفان" End If End If If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If i = i + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur + " " + "لا غير" Else NoToTxt = ReMark + MyFraction + " " + MySubCur + " " + "لا غير" End If Else NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + " " + "لا غير" End If End Function  

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

وتظهر أيضاً عند تحويل الورقة إلى Page layout كما في الصورة التالية:

السلام عليكم أخي الكريم
إليك ما طلبت على أن تترك من لم يحصل على شيء دون إدخال أية قيمة 
تقبل تحياتي لك
=IF(OR(C3="";Q3=0);"";IF(AND(O3>0;P3="");O3&$O$1;IF(AND(P3>0;O3="");P3&$P$1;IF(AND(O3>0;P3>0);CONCATENATE(O3;$O$1;"+";P3;$P$1))))) تجريبي كتاب تنفيذ.xlsx

أخي الكريم يمكن ذلك بتغيير المعادلة كالآتي مع الانتباه أنه سيكون لديك مرجع دائري
تقوم بتفعيله كما هو مبين في الصورة أدناه:

=IF(D1=TRUE;C1;A1*B1)  
test.xlsx

السلام عليكم ورحمة الله وبركاته
أخي الكريم أشرف إن دققت في المعادلة تجد أنه باستخدام الدالة and سيأخذ الأرقام بين 5 -10 باستثناء هذين الرقمين للأسف
أما المعادلة التي لا تستثنيهما هي كالآتي إن سمح أمرك أخي الحبيب:((يمكنك تجريبها)).
=IF(AND(I5>=5;I5<=10);I5;0) تقبل تحياتي العطرة.

تعديل معادله IF.xlsx

السلام عليكم ورحمة الله وبركاته
لحساب معدل النمو نطرح نتيجة الشهر السابق من نتيجة الشهر الحالي ونقسم الناتج على نتيجة الشهر السابق *100
هكذا والله أعلم وعليه فإنني أضع بين أيديكم الملف المرفق برجاء تجربته
تقبل تحياتي العطرة
=((F5*G5)-(A5*B5))/(A5*B5)
حساب معدل التغيير.xlsx

تفضل اخي الكريم
 
الفرق بين تاريخين66999999776660 (1).xlsx

السلام عليكم ورحمة الله وبركاته 💐
تفضل اخي الكريم
=IF(A2="";""; IF(A2>=1000;A2*1500;IF(AND(A2<1000;A2>0);A2*750;0)))  
ضرب المبلغ اذا كان اقل من 1000.xlsx

تفضل أخي الكريم
=IF(A2="";"";IF(A2>=1000;1500;IF(AND(A2<1000;A2>0);750;0))) اذا كان الرقم اكبر من يصرب.xlsx

السلام عليكم أخي الكريم
يرجى تجربة الملف المرفق مع رجاء الإبقاء على الخليتين A5 :A6 دون تغيير أو مسح لأنها تحتوي على الـ Criteria وقد تم إخفاؤها من حيث جعل لون الكتابة مثل لون خلفية الخلية
قمت بنقل تصفية البيانات إلى sheet2  حيث كلما تقوم بالتغيير في sheet1 يتم التغيير بشكل تلقائي في sheet2  
تقبل تحياتي

Salary_Printing.xlsm

السلام عليكم ورحمة الله وبركاته
بعد إذن الأستاذ نزار حل آخر بالمعادلات
يرجى تجربته
 
الهدف.xlsx

السلام عليكم
تفضل التعديل حسب طلبك الأخير
 
سجل مراجعة فرع الإسكندرية.xlsx

السلام عليكم ورحمة الله وبركاته
أخي الكريم أرجو أن يكون هذا الحل مناسباً ولكن هنا 3 تكست بوكس كل منها بلغة (عربي - إنكليزي - فرنسي)
أشكر من خلال هذا الموضوع الأخت ساجدة العزاوي على تطرقها لمثل هذه المسائل الهامة. بإمكانك أخي الكريم متابعة هذا الفيديو من هنا
أرجو أن تعم فائدته ...تقبل تحياتي العطرة ... والسلام عليكم.

تبديل لغة التكست بوكس.xlsm

السلام عليكم أخي الكريم
هذا المرفق من ملفاتك - أخي الكريم - مع بعض التعديلات
أرجو أن يناسبك

Private Sub TextBox1_Change() Application.ScreenUpdating = False ActiveSheet.ListObjects("Data").Range.AutoFilter Field:=7, Criteria1:="*" & [e2] & "*", Operator:=xlFilterValues Application.ScreenUpdating = True End Sub TEST.xlsm