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

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

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

وعليكم السلام ورحمة الله وبركاته المعادلة هي تاريخ الانتهاء مطروحاً منه تاريخ اليوم والله اعلى واعلم

السلام عليكم ورحمة الله وبركاته الحل بأسلوب آخر بديناميكية أفضل موعد الرواتب.xlsx

أحسنت أستاذ ماجد ماهر 🙂

=IF(1*TEXT(EOMONTH(TODAY();0);"dd")>30;EOMONTH(TODAY();0)-21-TODAY()&"يوم";IF(1*TEXT(EOMONTH(TODAY();0);"dd")=30;EOMONTH(TODAY();0)-20-TODAY()&"يوم";IF(1*TEXT(EOMONTH(TODAY();0);"dd")=29;EOMONTH(TODAY();0)-19-TODAY()&"يوم";IF(1*TEXT(EOMONTH(TODAY();0);"dd")=28;EOMONTH(TODAY();0)-18-TODAY()&"يوم"))))

السلام عليكم أخي الكريم ..حباً وكرامة تعتمد هذه المعادلة على دالة حساب آخر كل شهر EOMONTH (الشهر الحالي) قمت بتحويل النتيجة لنص TEXT حسب اليوم (dd) . فإن كان الشهر أكثر من 30 يوم نطرح منه 4 لينتج لدينا الرقم 27 ...وإن كانت 30 نطرح 3 ...... وهكذا ... دالة IF المركبة تم استخدام الشروط من خلالها للحصول على نتيجة الشهر الذي نحن فيه حصراً...حسب عدد أيامه.. أما الضرب بالعدد 1 لتحويل المعادلة من نص TEXT ... هذا ما تسنى لدي من وقت لتوضيح هذه المعادلة ..راجياً لكم التوفيق والسداد ..والسلام عليكم. =IF(1*TEXT(EOMONTH(TODAY();0);"dd")>30;EOMONTH(TODAY();0)-4-TODAY()&"يوم" ;IF(1*TEXT(EOMONTH(TODAY();0);"dd")=30;EOMONTH(TODAY();0)-3-TODAY()&"يوم" ;IF(1*TEXT(EOMONTH(TODAY();0);"dd")=29;EOMONTH(TODAY();0)-2-TODAY()&"يوم" ;IF(1*TEXT(EOMONTH(TODAY();0);"dd")=28;EOMONTH(TODAY();0)-1-TODAY()&"يوم"))))

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

السلام عليكم إخوتي الكرام بعد إذن الأخ الكريم الذي وصل إلى النتيجة ، إليكم طريقة أخرى بمعادلة واحدة فقط =IF(1*TEXT(EOMONTH(TODAY();0);"dd")>30;EOMONTH(TODAY();0)-4-TODAY()&"يوم";IF(1*TEXT(EOMONTH(TODAY();0);"dd")=30;EOMONTH(TODAY();0)-3-TODAY()&"يوم";IF(1*TEXT(EOMONTH(TODAY();0);"dd")=29;EOMONTH(TODAY();0)-2-TODAY()&"يوم";IF(1*TEXT(EOMONTH(TODAY();0);"dd")=28;EOMONTH(TODAY();0)-1-TODAY()&"يوم")))) وهناك معادلة أخرى فقط للملاحظة قد لا يحتاجها الأخ السائل: =" باقي"&$C$5&" "&"بناء على تاريخ نزول الراتب والذي يوافق يوم 27 من كل شهر ميلادي" والله ولي التوفيق ..والسلام عليكم موعد الرواتب.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

السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام الحمد لله الذي بنعمته تتم الصالحات بادئ ذي بدء ، ثم الشكر لأخي الحبيب @hassona229....وأقول له الدال على الخير كفاعله جزاكم الله خيراً وأقول لفريق الموقع الكريم بارك الله بجهودكم الأخ @Ali Mohamed Ali وأستاذنا @محمد طاهر عرفه الذي لا يألو جهداً في مساعدته لنا جميعاً ... أخي الكريم @ابراهيم الحداد تهانينا الحارة بعودتك ....وهل يخفى القمر؟! .... نذكر تماماً زيزو العجوز ...الذي ألفناه ....والمؤمن كما يعلم الجميع يألف ويؤلف... مع أجمل تحياتي ....تقبلوا مروري .... والسلام عليكم.

وعليكم السلام تفضل أخي الكريم المصنف1.xlsm

شكراً جزيلاً على مروركم الكريم .

ما شاء الله بارك الله جزاكم الله خيراً ووفقكم إلى كل خير ...آمين تقبل تحياتي العطرة والسلام عليكم

شكراً جزيلاً على مروركم الكريم

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

السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ محمد صالح المحترم وإثراء للموضوع أرى أنه يمكن الحل - كما ذكر أستاذنا العزيز محمد - بالتنسيق الشرطي مضافاً إليه التحقق من الصحة لطول النص لأرقام الهواتف والبطاقة ولمنع تكرار الاسم أيضاً تقبلوا تحياتي العطرة والسلام عليكم. رسائل تنبيه من عدة اعمدة.xls

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

السلام عليكم أخي الكريم إليك ما طلبت على أن تترك من لم يحصل على شيء دون إدخال أية قيمة تقبل تحياتي لك =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

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

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

الحمد لله الذي بنعمته تتم الصالحات...جزاكم الله خيراً على هذا الدعاء الطيب... لكن كيف تحولت أفضل إجابة ؟!!. سبحان الله....ليست الغاية أفضل إجابة ... بل الغاية وجه الله تعالى وصدقة عن ولدي .... لكن كيف تحولت بعد ...... ؟؟؟؟؟!!!... سبحان الله والسلام عليكم

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

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