اذهب الي المحتوي
أوفيسنا

ارجو شرح الكود اللي لونه اخضر


الردود الموصى بها

Call MC
    ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value
    ThisWorkbook.Worksheets("Step Up Feature").Range("I15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value
    Do
        ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value + 1000
    Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("H13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("C13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("M23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("L23").Value - 20
        ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value - 1000

    'Do
        'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value + 1000
    'Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("i13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("c13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("q23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("p23").Value - 20

    'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value - 1000
    ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k5").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k11").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h16").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k12").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h17").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k13").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h14").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k7").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h13").Value
    MsgBox ("Calculation Completed")

End If
       
If ChangeProtection = True Then
        .Protect (MyPassword)
        End If
    End With

End Sub

رابط هذا التعليق
شارك

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

ThisWorkbook

ThisWorkbook هذا الملف الحالي - زتستخدم لكي لا يتم تشغيل الكود على ملف آخر

Worksheets("Step Up Feature") اسم الورقة المطلوب العمل عليها او الرجوع لها

Loop Until  كرر العملية المذكورة سابقا الى ان يتحقق الشرط - ويذكر الشرط بعدها

وهنا ذكر الشرط مع OR اي انه تتكرر العملية الى ان يتحقق واحد من الشروط التالية

 

اتمنى ان اكون اوضحت لك المطلوب

 

  • Like 1
رابط هذا التعليق
شارك

جزاك الله خير لكن للاسف ما قدرت اوصل للي احتاج 

انا برفق املف كامل وارجو معرفة كيف تم حساب المبلغ في شيت Step Up Feature الخانة رقم h15 

ارجو شرح الكود وهل ممكن ان اغير الكود الى معادلة 

ادا امكن تغير الكود الى معادلة ما هي 

حسبة.xlsm

للرفع 

رابط هذا التعليق
شارك

السلام عليكم

اخي الفاضل

هذه مجموعة من الدوال التي تختص بمواضيع حساب القروض و الفائدة

مع انني لا اعرف طريقة استخداماها و لم استخدمها سابقا

ولكن وضعتها لك لتستفيد منها

CUMIPMT

المالية

    إرجاع الفائدة المتراكمة المدفوعة بين فترتين

CUMPRINC

المالية

    إرجاع رأس المال التراكمي المدفوع على قرض بين فترتين

ISPMT

المالية

    حساب دفعات الفائدة المدفوعة أثناء فترة استثمار معينة

 

EFFECT

المالية

    إرجاع النسبة الفعلية السنوية للفائدة

IPMT

المالية

    إرجاع دفعات الفائدة لاستثمار لفترة محددة

ISPMT

المالية

    حساب دفعات الفائدة المدفوعة أثناء فترة استثمار معينة

NOMINAL

المالية

    إرجاع النسبة الاسمية السنوية للفائدة

PRICE

المالية

    إرجاع السعر لكل قيمة اسمية لـ 100 ر.س. لورقة مالية يستحق عنها فائدة دورية

PRICEMAT

المالية

    إرجاع السعر لكل قيمة اسمية لـ 100 ر.س. للأوراق المالية التي يستحق عنها فائدة عند موعد الاستحقاق

RATE

المالية

    إرجاع معدل الفائدة لكل فترة من فترات المرتب الدوري

رابط هذا التعليق
شارك

السلام عليكم استاد الكريم احمد 

شكرا لك على مجهودك 

والله يجعله في ميزان حسناتك شرح الكود اللي انته ارسلته لي ممكن يوصلني للنتيجة 

جزاك الله خير وشكرا 

سوال اخير واسف على الاطاله 

لو انا عاوز احط الكود هدا في مديوال جديد وينفده بدون ميكرو اكتبه كدا ولا ازاي 

احتاج ان اعمل له مديول خاص وينفذ تلقائي بدون ميكرو


    T ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value
    ThisWorkbook.Worksheets("Step Up Feature").Range("I15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value
    Do
        ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value + 1000
    Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("H13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("C13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("M23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("L23").Value - 20
        ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value - 1000
    'Do
        'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value + 1000
    'Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("i13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("c13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("q23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("p23").Value - 20
    'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value - 1000
    ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k5").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k11").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h16").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k12").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h17").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k13").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h14").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k7").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h13").Value
    MsgBox ("Calculation Completed")
End If

رابط هذا التعليق
شارك

لا مشكلة

تضعة في حدث التغيير في الورقة

و لكن السئال

متى يجب ان يعمل الكود

بمعني عندما يتم ادخال اي بيانات ثم يعمل الكود

مثال

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then
Application.Run "اسم الماكرو المطلوب عمله"
End If
End Sub

 

رابط هذا التعليق
شارك

يعمل الكود عن تغيير في  اي من او كل من الدخل الشهري والالتزامات ومدة التمويل بالاشهر 

هدا الملف موجود به الخلايا الدي يتم تغييرها ليعمل الكود او جزء منها 

AM (1).xlsx

 

تم تعديل بواسطه الشافعي
تغيير الملف
رابط هذا التعليق
شارك

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

اسعد الله صباحكم بكل خير

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TA
TA = Target.Address
If TA = "$C$2" Or TA = "$C$3" Or TA = "$C$8" Then
Application.Run "ضع هنا اسم الماكرو المطلوب ان يعمل "
End If
End Sub

 

اخي الفاضل

خليك معي خطوة خطوة

في الصورة المرفقة

اولا ادخل الى محرر VB

بالضغط على Alt+F11

1 - اضغط دبل كليك ضغطتين سريعة على اسم الورقة التي سوف تعمل عليها

2 - اختار من القائمة كلمة Worksheet

3 - اختار من القائمة change

انسخ الكود الموجود اعلاه الى مكانه

المكان الذي يطابق اول سطر موجود في الأعلى

غير الكلمات العربية الى اسم الماكرو المطلوب عمله

يجب ان يكون الماكرو موجود في نفس هذا الملف

الآن

ارجع الى ملف اكسل

و اكتب في اي خلية من 3 خلايا التي ذكرتها

سوف يعمل الماكرو تلقائي بعد الكتابه و الخروج من الخلية

 

AAA.jpg

رابط هذا التعليق
شارك

السلام عليكم

الاخ الشافعي

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

  • Like 1
رابط هذا التعليق
شارك

شكرا والله يجزاكم خير

وهل يمكن تحويل الكود اللي بالملف الى دالة 

هذا هو الملف

AM (22 (1).xlsx

تم تعديل بواسطه الشافعي
كتبه شسء
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information