لزهر مدلل قام بنشر يناير 24 مشاركة قام بنشر يناير 24 السلام عليكم أريد تحويل المعادلات المرفقة في الملف إلى كود vb لتسهيل عملية حساب معامل السنوات و الشهور و بالنسبة لحساب الشهور يجب أن يكون مرتبط بعدد السنوات مثلا مثلا إذا تجاوزت السنوات 6 فإن معدل الحساب بالنسبة للشهور يتغير و هكذا بعد السنة 11 إلخ. التفصيل موجود في الملف. Calcul IEP.xlsx رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر يناير 25 الكاتب مشاركة قام بنشر يناير 25 السلام عليكم أخي AbuuAhmed أنا أريد تحويل المعادلات في الجدول إلى كود VB بحيث أدخل الرقم كما في الخلية B11 تطلع لي النتيجة كما في الخلية E8 و كذلك J8 رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر يناير 25 مشاركة قام بنشر يناير 25 (معدل) اختصار للكود Function calcIEP(ByVal Period As Double) As Double Dim yr(), yy As Byte, mm As Byte Dim Pr(), Per As Double, Pos As Byte, p As Byte yr = Array(6, 5, 10, 5) Pr = Array(0.02, 0.018, 0.015, 0.04) Pos = InStrRev(Period, ".") mm = IIf(Pos = 0, 0, Mid(Period, Pos + 1)) Period = Fix(Period) For p = 1 To 4 yy = yr(p - 1): Per = Pr(p - 1) If Period > yy And p < 4 Then Period = Period - yy calcIEP = calcIEP + yy * Per Else calcIEP = calcIEP + Period * Per + (Per / 12 * mm) Exit For End If Next p End Function تم تنقيح الكود وتغيير المرفق. Calcul IEP_03.xlsm تم تعديل يناير 25 بواسطه AbuuAhmed تنقيح الكود وتغيير المرفق 1 رابط هذا التعليق شارك More sharing options...
ميدو63 قام بنشر يناير 28 مشاركة قام بنشر يناير 28 السلام عليكم حبيت اشكر الجميع حيث استفدت ايضا من هذة المشاركة ولى طلب هل يمكن ان يتم اضافة سطور بالكود لابدال المعادلات بالقيم (اى دون ان تظهر المعادلات عند الوقف على الخلايا... شكرا لكم جميعا رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر يناير 28 الكاتب مشاركة قام بنشر يناير 28 بارك الله فيك أخي الكريم مازال شيئ واحد فقط و هو كيفية تحويل الأرقام بعد الفاصلة إلى أرقام صحيحة مثلا 173.33 أريدها تساوي 33 ظهرت مشكلة أخرى و هي أن عدد الشهور 10 أو 1 يحسبها مثل بعضهما رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر يناير 29 مشاركة قام بنشر يناير 29 (معدل) منذ ساعه, لزهر مدلل said: ظهرت مشكلة أخرى و هي أن عدد الشهور 10 أو 1 يحسبها مثل بعضهما وعليكم السلام احذف اسم الدالة VALUE لتصبح النتيجة نص بدلا من رقم كذلك المدخل Period للدالة calcIEP من Double إلى String لتصبح الدالة بشكلها النهائي: Function calcIEP(ByVal Period As String) As Double Dim yr(), yy As Byte, mm As Byte Dim Pr(), Per As Double, P As Byte yr = Array(6, 5, 10, 5) Pr = Array(0.02, 0.018, 0.015, 0.04) P = InStrRev(Period, ".") mm = IIf(P = 0, 0, Mid(Period, P + 1)) Period = Fix(Period) For P = 1 To 4 yy = yr(P - 1): Per = Pr(P - 1) If Period > yy And P < 4 Then Period = Period - yy calcIEP = calcIEP + yy * Per Else calcIEP = calcIEP + Period * Per + (Per / 12 * mm) Exit For End If Next P End Function Calcul IEP_05.xlsm تم تعديل يناير 29 بواسطه AbuuAhmed رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر يناير 29 الكاتب مشاركة قام بنشر يناير 29 حذفتها لكن لم تتغير إذا أمكن أخي أن تجربها معذرة أخي و أرجوا أن يتسع صدركم لي قمت قمت بتعديل في الملف و نقلت له الكود المعدل لكن إذا كتبت مثلا 17.10 تحسب 17.1 أنظر الملفCalcul IEP.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة AbuuAhmed قام بنشر يناير 29 أفضل إجابة مشاركة قام بنشر يناير 29 لا بد تدخل على تنسيق خلية المدة وتجعلها نص. Calcul IEP_06.xlsm 1 رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر يناير 29 الكاتب مشاركة قام بنشر يناير 29 بارك الله فيك على المجهود و سعة صدركم و جعله الله في ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
ميدو63 قام بنشر يناير 30 مشاركة قام بنشر يناير 30 السلام عليكم ولى طلب ( كتبة من قبل بالموضوع( ان امكن هل يمكن ان يتم اضافة سطور بالكود لابدال المعادلات بالقيم (اى دون ان تظهر المعادلات عند الوقف على الخلايا... شكرا لكم جميعا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.