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

الشافعي · فبراير 26, 2018

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

**احمدزمان** · فبراير 27, 2018

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

ThisWorkbook

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

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

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

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

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

الشافعي · مارس 2, 2018

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

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

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

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

حسبة.xlsm

للرفع

الشافعي · مارس 2, 2018

سبحان الله والحمد لله

**احمدزمان** · مارس 2, 2018

السلام عليكم

شرح الكوود.doc

**احمدزمان** · مارس 3, 2018

السلام عليكم

اخي الفاضل

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

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

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

CUMIPMT	المالية	إرجاع الفائدة المتراكمة المدفوعة بين فترتين
CUMPRINC	المالية	إرجاع رأس المال التراكمي المدفوع على قرض بين فترتين
ISPMT	المالية	حساب دفعات الفائدة المدفوعة أثناء فترة استثمار معينة

EFFECT	المالية	إرجاع النسبة الفعلية السنوية للفائدة
IPMT	المالية	إرجاع دفعات الفائدة لاستثمار لفترة محددة
ISPMT	المالية	حساب دفعات الفائدة المدفوعة أثناء فترة استثمار معينة
NOMINAL	المالية	إرجاع النسبة الاسمية السنوية للفائدة
PRICE	المالية	إرجاع السعر لكل قيمة اسمية لـ 100 ر.س. لورقة مالية يستحق عنها فائدة دورية
PRICEMAT	المالية	إرجاع السعر لكل قيمة اسمية لـ 100 ر.س. للأوراق المالية التي يستحق عنها فائدة عند موعد الاستحقاق
RATE	المالية	إرجاع معدل الفائدة لكل فترة من فترات المرتب الدوري

الشافعي · مارس 3, 2018

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

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

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

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

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

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

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

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

حسام مصطفي · مارس 3, 2018

ما معني بدون ماكرو... حيث ان الكود هو الماكرو

فهل تقصد بدون زر

تقبل وافر تحياتي

الشافعي · مارس 3, 2018

اي نعم بدون زر

جزاك الله خير

الشافعي · مارس 4, 2018

للرفع

الشافعي · مارس 4, 2018

شكرا لكم

شكرا الاستاذ احمد

تم الوصول للحل

الشافعي · مارس 4, 2018

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

AM.xlsx

**احمدزمان** · مارس 5, 2018

لا مشكلة

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

و لكن السئال

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

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

مثال

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

الشافعي · مارس 6, 2018

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

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

AM (1).xlsx

تم تعديل مارس 6, 2018 بواسطه الشافعي
تغيير الملف

**احمدزمان** · مارس 7, 2018

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

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

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 خلايا التي ذكرتها

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

الشافعي · مارس 10, 2018

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

انا تعبتك معاي واسف جدا

ربنا يجعله في ميزان حسناتك

AM (22.xlsx

**احمدزمان** · مارس 12, 2018

و عليكم السلام

image.png.76f826b042bc0c3195e9e9ec1642dc8a.png

**محمد طاهر عرفه** · مارس 14, 2018

السلام عليكم

الاخ الشافعي

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

**احمدزمان** · مارس 14, 2018

شكرا استاذ طاهر

جزاك الله خيرا و احسن الله اليك

الشافعي · مارس 15, 2018

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

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

هذا هو الملف

AM (22 (1).xlsx

تم تعديل مارس 15, 2018 بواسطه الشافعي
كتبه شسء

تسجيل الدخول

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

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

الشافعي

احمدزمان

الشافعي

الشافعي

احمدزمان

احمدزمان

الشافعي

حسام مصطفي

الشافعي

الشافعي

الشافعي

الشافعي

احمدزمان

الشافعي

احمدزمان

الشافعي

احمدزمان

محمد طاهر عرفه

احمدزمان

الشافعي

Join the conversation

محتوي مشابه

ربط جدولين في جدول رئيسي

سؤال : استعراض الصور بشريط متحرك داخل النموذج

قاعدة بيانات صور الأصناف

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information