AbuuAhmed

بدل في رقم الإزاحة (2) واجعله 0 Cells(.Row, .Column + 2) = NewValue

محاولتي حسب فهمي التشغيل من الكود نفسه. الارقام والنصوص_02.xlsm

لا بأس عليك، أجر وعافية.

دالة round تعمل مع الأرقام الموجبة والسالبة بنفس الطريقة، لا تحتاج إلى استخدام دالة if

ضع مثال أو صورة للخطأ وأعتقد أنك فحصت المرفق رقم 2 وليس 3، حيث تم تبديل المرفق. وإذا كان الخطأ في رقم 3 فأنا أعتذر عن المواصلة.

أنا تخصصي أكسس أكثر منه اكسل. أضفت 3 وحدات نمطية (موديولات) لـ أبو هادي، من له قدرة في استخدام امكانيات الاكسل في استخدام تقويم أم القرى فليفدنا. هناك شرط يجب أن تنتبه له وهو خصائص خلايا التاريخ يجب أن تكون لتقويم أم القرى وإلا ستتفاجأ بنتائج خاطئة. فرق مدة إيجار بين تاريخين هجري_03.xlsm

جرب هذا الحل، مع ملاحظة أني الحسابات على التقويم الهجري وليس أم القرى، غالبا ستكون النتائج متشابهة ما عدا نهاية الشهور ربما تكون فيها اختلاف. جربت تجربتين خفيفتين، جربه أكثر ربما تظهر هفوات تحتاج إلى تصحيح الكود. فرق مدة إيجار بين تاريخين هجري_01.xlsm

حل عن طريق الـ vba، دالة لحساب أي يوم من الأسبوع بين تاريخين WeekDaysCount_01.xlsm

عدلت في المعادلة ربما تعمل معك، جرب =IF(F8*0.0199<1.99,1.99,IF(F8*0.0199>2.99,2.99,F8*0.0199))

الدالة، تتطلب النص وترتيب الدرجة في النص 1 للأول 2 للثاني: Option Explicit Function GetDeg(ByVal inText As String, DegSeq As Byte) As Variant Dim Pos1 As Integer, Pos2 As Integer Dim Deg As Variant GetDeg = "" If DegSeq < 1 Or DegSeq > 2 Then Exit Function Do While InStr(1, inText, " ") > 0 inText = Replace(inText, " ", " ") Loop Pos2 = InStr(1, inText, " درج") If Pos2 = 0 Then Exit Function If DegSeq = 2 Then Pos2 = InStr(Pos2 + 1, inText, " درج") If Pos2 = 0 Then Exit Function End If Pos1 = InStrRev(inText, " ", Pos2 - 1) If Pos1 > 0 And Pos2 > 0 Then Deg = Mid(inText, Pos1 + 1, Pos2 - Pos1 - 1) End If If IsNumeric(Deg) Then GetDeg = Val(Deg) End Function ضفه في ملفك أو انشئ ملف جديد ووحدة نمطية جديدة والصق الشفرة/الكود

عملت لك حل بالكود فصل الارقام عن الاحرف_01.xlsm

طلبك الآن يخالف طلبك الأول ربما أنك لا تريد أن ترى في الأيام الباقي 30 يوم، إذا كان كذلك اعتره شهر وأضفه على الشهور وصفر الأيام. طول الشهر 20 يوم_04.xlsm

نعم صحيح، ولا تعديل في كودر vba طول الشهر 20 يوم_03.xlsm

إذا لم تتابع فكيف نعرف حصلت على الحل أم لا!! احتمال آخر للحل إذا كان فهمي لمطلبك صحيحا: طول الشهر 20 يوم_02.xlsm

افحصه طول الشهر 20 يوم.xlsm